Ôn luyện và ghi nhớ kiến thức trong các bài tập trên.[r]
(1)ỦY BAN NHÂN DÂN QUẬN 11
TRƯỜNG THCS NGUYỄN VĂN PHÚ
NỘI DUNG TRỌNG TÂM TUẦN 12/HK2 MÔN: TIN HỌC
Trong thời gian học sinh nghỉ dịch bệnh Covid – 19
TIẾT 59+60 (THEO PPCT)
BÀI TẬP 1.Nội dung:
Bài tập
Viết chương trình tính tổng n số tự nhiên (n = 1,2,3,…) để ta nhận tổng Tn lớn 60? Ghi nhận lại kết chạy chương trình
Trả lời: Uses crt;
Var S,n: integer; Begin
Clrscr; S:= 0; n:= 0; While S<= 60
Begin n:= n+1; S:= S+n;
Writeln(‘So n nho nhat de tong > 60 la ’, n); Writeln(‘Tong dau tien > 60 la’, S);
End
Bài tập 2:
Sử dụng câu lệnh lặp for…do để giải toán cổ sau: Trăm trâu ăn trăm bó cỏ
(2)Ba bó
Mấy trâu đứng, trâu nằm trâu già?
Trả lời:
Program Tinh_So_trau; Uses crt;
Var td, tn, tg : integer; Begin
Clrscr;
For td:= to 100 for tn:= to 100
begin
tg:= 100 - td – tn;
if (td*5 + tn*3 + tg/3 = 100) then
writeln(‘ Trau dung: ’, td, ‘; Trau nam: ’, tn, ‘;Trau gia:’, tg); end;
Readln; End
2 Câu hỏi luyện tập: