vaø vieäc thöïc hieän leänh laëp keát thuùc.Neáu ñieàu kieän ñuùng, thöïc hieän caâu leänh vaø quay laïi böôùc 1... Baøi taäp :[r]
(1)
Chào mừng quí thầy
Chào mừng q thầy
đến dự
đến dự
TRƯỜNG THCS THỊ TRẤN VĨNH HƯNG
(2)(3) Học thuộc bài
Nhặt cọng rau hết rau Bài tốn: Viết ch ơng trình nhập vào
dãy số gặp dừng lại, tính tổng số vừa nhập
Hãy kể tên hoạt động đ ợc thực hiện lặp lặp lại với
số lần lặp xỏc nh tr c?
(4)Bài toán 1:
Bài toán 2:
N S 1 2 3 4
N S 1 2 3 4
Cho đến S>1000 Cho biết N
TÝnh tæng
TÝnh tæng
1 Các hoạt động lặp với số lần ch a biết tr ớc
(5)XuÊt ph¸t
0
S 1
LÇn 1
2
LÇn 2
+
Lần N
N
Mỗi lần thực giá trị tổng S tăng thêm bao nhiªu?
Sau lần thực giá trị tổng S tăng thêm ? i đơn vị với i= 1;2;3;.N
(6)Bài toán 1: Bài toán 2:
N
S 1 2 3 S 1 2 3 N
Cho đến S>1000
Số lần lặp xác định
Việc tăng giá trị cho tổng S đ ợc lặp lặp
li cho n khi
S>1000 Việc tăng giá trị cho
tổng S đ ợc lặp lặp lại N lần.
S ln lp ch a xác định.
(7)B1: Khëi t¹o S=0; N:=0;
B2: Nếu S<= 1000 thực tăng N thêm đơn vị,
ng ợc lại chuyển tới B4
B3: Cộng N vào S => sang B2 B4: In kết quả: N số tự nhiên
nhỏ cho S>1000, Tỉng S vµ kÕt thóc
S:=0; N:=0;
WHILE S<=1000 DO
Begin N:=N+1;
S:=S+N; END;
Writeln( Số N nhỏ để S>1000 , N)‘ ’ Writeln( Tổng >1000 ,S);‘ ’
N S 1 2 3 4
Thuật toán Ch ơng trình
(8)Q
WHILE <Điều kiện> DO <Câu lệnh>;
Điều kiện: th ờng phép so sánh
Trong đó:
Câu lệnh lặp với số lần lặp ch a xác định Pascal:
Câu lệnh: câu lệnh đơn hay
c©u lƯnh ghÐp
VÝ dơ: While S<100 do S:= S+1;
2 Ví dụ lệnh lặp với số lần ch a xác định
VÝ dô : i:= 1;
While S<100do
(9)Dựa vào lưu đồ cho biết cách thực hiện cõu lnh?
Điều kiện
Đúng
Câu lệnh
(10) Câu lệnh lặp thực sau :
Bước 1: Kiểm tra điều kiện
Bước 2: Nếu điều kiện sai, câu lệnh bị bỏ qua
(11)HÃy hoàn thiện ch ơng trình giải
(12)B1: Khëi t¹o S=0; N:=0;
B2: Nếu S<= 1000 thực tăng N thêm n v,
ng ợc lại chuyển tíi B4
B3: Céng N vµo S => sang B2 B4: In kết quả: N số tự nhiên
nhá nhÊt cho S>1000,
S:=0; N:=0;
WHILE S<=1000 DO
Begin N:=N+1;
S:=S+N; END;
Writeln( Số N nhỏ để S>1000 , N)‘ ’
‘ ’
N S 1 2 3 4
Thuật toán Ch ơng tr×nh
(13)Program Bai_toan;
Var N:Integer; S:Real;
BEGIN
S:=0;N:=0;
WHILE s< = 1000 DO BEGIN
N:=N+1; S:=S+N; END;
Writeln(‘So N nho nhat de tong >1000 la’,N);
Writeln(‘Gia tri cua tong S =',S); Readln;
(14)100 1 4 1 3 1 2 1
1
S
S:=0;
For i:=1 to 100 do S:=S + 1/i; Writeln( S = , S);‘ ’
Dïng lÖnh FOR DO Dïng lÖnh Whie Do
S:=0; i:=1;
While i<=100 do
begin
S:=S + 1/i; i:=i+1;
end;
‘ ’
Cã thÓ sư dơng lƯnh While
(15)HÃy hoàn thiện ch ơng trình giải
(16)Program Bai_toan;
Var i:Integer; S:Real;
BEGIN
S:=0; i:=1;
WHILE i < = 100 DO BEGIN
S:=S+1/i; i:=i+1; END;
Writeln(‘Gia tri cua tong S =',S); Readln;
(17)Bài tập :
Hãy tìm lỗi sửa thành câu hoàn chỉnh trong câu lệnh sau :
a X:= 10; While X:=10 do X:= X+ 5;
X:= 10; While X = 10 X:= X+5;
b X:= 10; While X = 10 do x = x +5 ;
X:= 10; While X = 10 x := x +5 ;
c S:= 0; n:=0 ; While s<= 10 do n:= n+1; S:= S +n;
S:= 0; n:=0 ; While s<= 10
begin
n:= n+1; S:= S +n;
(18)Ghi nhí!
Ngoài cấu trúc lặp với số lần lặp x¸c
định tr ớc, ngơn ngữ lập trình cịn có câu lệnh lặp với số lần ch a biết tr ớc.
While do câu lệnh lặp với số lần
(19)