Mét ng êi göi vµo mét sè tiÒn ban ®Çu lµ a.[r]
(1)Đoạn lệnh sau đúng hay sai?
IF a>=b THEN Max:= a;
Else Max:=b
Sai Đúng
Vì sao???
(2)(3)(4)Nội dung giảng
Nội dung giảng
ã Cấu trúc vòng lặp WHILE DO
(5)1 Cấu trúc vòng lặp WHILE DO
Vịng lặp While Do vịng lặp có số b ớc lặp khơng xác định
CÊu tróc cđa nã nh sau:
WHILE <BiĨu thøc ®iỊu kiƯn> DO <LƯnh>;
(6)1 CÊu tróc cđa vßng lỈp WHILE DO
Trong
- WHILE, DO từ khoá Pascal qui định
- Biểu thức điều kiện (BTĐK): biểu thức logic cho giá trị TRUE FALSE
- Lệnh: Là lệnh (Công việc) mà ch ơng trình ph¶i thùc hiƯn
* Chó ý:
Nếu sau DO có nhiều lệnh (Từ hai lệnh trở lên) phải đặt lệnh Begin End;
(7)2 Hoạt động vòng lặp WHILE DO
Q trình hoạt động vịng lặp đ ợc thực theo l u đồ sau:
(8)2 Hoạt động vòng lặp WHILE DO
Hoạt động vòng lặp gồm b ớc: - B ớc 1: Kiểm tra biểu thức điều kiện - B ớc 2:
+ Nếu biểu thức điều kiện chuyển sang b ớc
+ Nếu biểu thức điều kiện sai kết thúc vòng lặp chuyển sang công việc
(9)2 Hoạt động vòng lặp WHILE DO
* NhËn xÐt:
Quá trình lặp lặp lại biểu thức điều kiện sai dừng
(10)3 Bài tập vận dụng
Bài 1:
Viết đoạn ch ơng trình hiển thị hình chữ số tự nhiên
Giải
n:=0;
While (n<5) Do Begin
Write(n:2); n:= n+1; End;
(11)3 Bµi tËp vËn dơng Bµi 2:
Viết ch ơng trình tính giá trị biểu thức sau (n số nguyên nhập từ bàn phím)
(12)Ch ơng Trình tính giá trị BiểuThức: A = + 1/2 + 1/3 + + 1/n
Program Tinh_GTBT; Uses CRT;
Var i,n: integer; A: Real; BEGIN clrscr;
Writeln(‘ Chuong trinh tinh gia tri bieu thuc’); Write(‘ Nhap n = ‘); Readln(n);
A:=0 ; i:=1;
While (i <= n) Do Begin
A:= A + 1/i; i:= i + 1; End;
Writeln(‘ Gia tri cua bieu thuc la A = ’,A:0:2); Readln;
(13)Bài tập nhà
Bài 1:
Tìm ớc chung lớn (UCLN) số nguyên d ơng a,b
Bài 2:
LÃi suất hàng tháng gửi tiết kiệm không kì hạn 1% Một ng ời gửi vào số tiền ban đầu a Hỏi sau bao
nhiêu tháng ng ời đạt đ ợc số tiền lớn b
END
(14)BiĨu thøc ®iỊu kiƯn
LƯNh
SAI
§óng
L u Đồ miêu tả q trình hoạt động vịng lặp WHILE DO
KiĨm tra BTĐK
Thực lệnh
(15)Mô thuật toán: In số tự nhiên hình
Bắt đầu
n := 0
0 < 5?
Viết hình n:= 1
0 1 2 3 4
1 < 5?
Viết hình n:= 2
2 < 5?
Viết hình n:= 3
3 < 5?
ViÕt hình n:= 4
Sai
Đúng
4 < 5?
Viết hình n:= 5
5 < 5?
KÕt thóc
(16)vòng lặp WHILE DO
* Hot ng
- B íc 1: KiĨm tra BT§K.
- B íc 2:
+ Nếu BTĐK chuyển sang b ớc 3.
+ NÕu BT§K sai kết thúc vòng lặp chuyển sang công viÖc tiÕp theo.
- B ớc 3: Thực lệnh sau Do sau quay b ớc 1.
WHILE <BiĨu thøc ®iỊu kiƯn> DO <LƯnh>;
* CÊu tróc