Giáo án Tin học Lớp 8 - Bài thực hành 6: Sử dụng lệnh lặp While ... do ..

Bài thực hành 6. 
SỬ DỤNG LỆNH LẶP WHILE ..DO.. 
1. Ôn lại bài cũ: 
* Câu lệnh lặp với số lần đã biết trước Có dạng lệnh: 
 For to do ; 
* Ví dụ: Viết chương trình: 
 In ra màn hình thông báo : “ Lớp 8B học rất giỏi ”. 
* Viết chương trình: 
2. Câu lệnh lặp While .. do: 
a* Dạng lệnh: 
while do ; 
b) Ví dụ: 
Program Lop8B; 
Uses crt; 
Var i:Integer; 
Begin 
 Clrscr ; 
 Writeln(‘Lớp 8B học rất giỏi ); 
For i:=1 to 10 do writeln(‘Lớp 8B học rất giỏi’); 
readln; 
End. 
 Bác Hoàng Anh có 5 triệu đồng. Trong đợt dịch Covid, trung bình mỗi ngày Bác 
chi tiêu 120 000 đồng. Hỏi bao nhiêu ngày thì Bác hết tiền. 
Program Lop8B; 
Uses crt; 
Var i:Integer; 
Begin 
 Clrscr ; 
 Writeln(‘Lớp 8B học rất giỏi ); 
While dem<10 do 
writeln(‘Lớp 8B học rất giỏi’); 
readln; 
End. 
* Dạng Câu 
Lệnh For 
...do 
* Hoạt động: 
* Lặp hữu hạn các câu lệnh: 
* Thuật 
toán: 
* Áp dụng: 
* Khhung 
CT: 
* BTVN: 
b) Ví dụ: Bác Hoàng Anh có 5 triệu đồng. Trong đợt dịch Covid, trung bình mỗi 
ngày Bác đi chợ chi tiêu 120 000 đồng. Hỏi bao nhiêu ngày thì Bác không thể đi chợ 
hoặc hết tiền. 
Tiền := 5 triệu; 
Ngày:=0; 
Tiền := Tiền - 120 000 
Ngày:=Ngày +1; 
ĐK: Tiền >=0 
Đúng 
Sai 
Kết thúc Tiền <120 000 
In ra màn hình : 
Số ngày tiêu hết tiền 
Số tiền còn lại.