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