Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống
1
/ 17 trang
THÔNG TIN TÀI LIỆU
Thông tin cơ bản
Định dạng
Số trang
17
Dung lượng
1,47 MB
Nội dung
LỚP BÀI TẬP THỰC HÀNH SỬ DỤNG LỆNH LẶP FOR DO Tình 1: Sử dụng câu lệnh lặp for để viết chương trình in hình 50 dấu * CÂU 1: a) Xác định toán Khơng có INPUT: OUTPUT: In hình 50 dấu * b) Viết phần khai báo biến: var j: integer; c) Em chọn gợi ý để hoàn chỉnh câu lệnh lặp in hình 50 dấu * for j:= to 50 write(‘*’); CÂU 2: a) Điền vào chỗ trống để hoàn thiện chương trình j: integer; for j:= to 50 write(‘*’); b) Cho biết dòng lệnh thứ có tác dụng gì? Tình 2: Viết chương trình in hình 10 dòng, dòng có 50 dấu * CÂU 3: a) Xác định tốn INPUT: OUTPUT: Khơng có Hình chữ nhật có 10 dòng, dòng 50 b) Em sử dụng gợi ý để hồn thành chương trình sao2 var i, j: integer; for i:= to 10 writeln; end; CÂU 4: Tình 3: Tính số bút cần mua CÂU 5: a) Em dựa vào sơ đồ khối để trả lời câu hỏi hồn thiện chương trình: to N S:= S + * i; b) Em chạy chương trình kiểm tra kết với thử sau: 420 2256 870 CÂU a) Em dùng gợi ý để hoàn thành chương trình dem:= i mod = dem dem:= dem +1 b) Em chạy chương trình kiểm tra kết với thử sau: Tình 4: Kiểm tra số nguyên t ố CÂU 7: a) Xác định toán INPUT: N OUTPUT: thông báo N SNT N SNT b) Ý tưởng thuật toán: Để kiểm tra xem N có chia hết cho i hay khơng, em khoanh tròn vào đáp án đúng? A N div i = B N div i = C N mod i = D N mod i = c) Chương trình: N mod Tình Bài tốn vui: thỏ gà Tình Bài toán vui: thỏ gà CÂU a) Xác định tốn INPUT: OUTPUT: khơng có số thỏ, số gà b) Em chạy hai chương trình cho biết đáp án 7 36 36 ...Tình 1: Sử dụng câu lệnh lặp for để viết chương trình in hình 50 dấu * CÂU 1: a) Xác định tốn Khơng có INPUT: OUTPUT:... chỉnh câu lệnh lặp in hình 50 dấu * for j:= to 50 write(‘*’); CÂU 2: a) Điền vào chỗ trống để hồn thiện chương trình j: integer; for j:= to 50 write(‘*’); b) Cho biết dòng lệnh thứ có tác dụng gì?... * CÂU 3: a) Xác định tốn INPUT: OUTPUT: Khơng có Hình chữ nhật có 10 dòng, dòng 50 ngơi b) Em sử dụng gợi ý để hoàn thành chương trình sao2 var i, j: integer; for i:= to 10 writeln; end; CÂU