TIẾT 49 – BÀI TẬP Bài Tập 2: Viết chương trình giải bài toán cổ: “Vừa gà vừa chó Bó lại cho tròn Ba mươi sáu con Một trăm chân chẵn” Hỏi số chó và số gà?... Uses crt; “Vừa gà vừa chó Var[r]
Trang 1Kiểm tra bài cũ
Câu 1: Em hãy trình bày cú pháp của câu lệnh lặp với số lần biết trước và chưa biết trước?
Trả lời:
Cú pháp câu lệnh biết trước:
For <biến đếm>:= <giá trị đầu> to <giá trị cuối>
do <câu lệnh>;
Cú pháp câu lệnh chưa biết trước:
while <điều kiện> do <câu lệnh>;
Trang 2Ví dụ 5: Viết chương trình tính tổng
T
a) Sử dụng câu lệnh lặp với số lần biết trước ?
b) Sử dụng câu lệnh lặp với số lần chưa biết trước ?
TIẾT 49 – BÀI TẬP
Trang 3Bài tập 1: Viết chương trình tính tích của 10 số tự
nhiên đầu tiên.
a)Sử dụng câu lệnh lặp với số lần biết trước ?
b) Sử dụng câu lệnh lặp với số lần chưa biết trước ?
Trang 4Var T, i: integer;
Begin T:=1; i:=1;
While i<=10 do Begin
T:=T*i;
i:=i+1;
End;
Writeln(‘Tich cua 10 so
tu nhien dau tien la: ‘,t);
Readln
End
Var T, i: integer;
Begin
T:=1;
For i:=1 to 10 do
T:=T*i;
Writeln(‘Tich cua 10 so
Tu nhien dau tien la: ‘,t);
Readln
End
a) Sử dụng lệnh lặp với số
lần biết trước:
b) Sử dụng câu lệnh lặp với số lần chưa biết trước:
Trang 5TIẾT 49 – BÀI TẬP
Bài Tập 2: Viết chương trình giải bài toán cổ:
“Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con Một trăm chân chẵn”
Hỏi số chó và số gà?
Trang 6Uses crt;
Var ga, cho:byte;
Begin
Clrsccr;
Cho:=1;
While cho<26 do
Begin
Ga:=36 - cho;
If ga*2 +cho*4=100 then
Write(‘So ga la: ‘,ga:3,’So cho la: ‘,cho:3); Cho:=cho+1;
End;
Readln
End
“Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con Một trăm chân chẵn” Hỏi số chó và số gà?