• Ban đầu biến đếm sẽ nhận giá trị đầu, sau mỗi vòng lặp, biến đếm được tự động tăng thêm một đơn vị cho đến khi bằng giá trị.. cuối[r]
(1)(2) Em đánh 2 lần ngày
Kim gi©y quay 60 vòng giờ HÃy kể tên hoạt
động được thực lặp lặp lại với số lần
định biết trư ớc?
(3)O O O O O
VÝ dô 1: VÝ dô 2:
Program in1; Uses crt;
Begin
Writeln('O'); End.
Program in4; Uses crt;
Begin
Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O');
End.
KÕt qu¶
(4)O
O
Mọi ngơn ngữ lập trình có câu lệnh giúp thực nhiều câu lệnh lặp lặp lại một câu lệnh Đó cỏc cõu lnh lp.
Nếu viết ch ơng trình in hình 100 chữ
O
‘ ’ th× nhØ?
(5) Câu lệnh lặp với số lần lặp biết tr ớc Pascal:
FOR <biến đếm> := <giá trị đầu> TO <giá trị cuối> DO < câu lệnh>;
Giá trị đầu Giá trị cuối giá trị nguyên.
Cõu lnh cú th l cõu lệnh đơn giản(một lệnh) lệnh ghép (nhiều lệnh)
Trong đó
For , to , từ khóa.
Bin m l biến kiểu nguyên
(6)Chú ý :
• Ban đầu biến đếm nhận giá trị đầu, sau mỗi vòng lặp, biến đếm tự động tăng thêm đơn vị giá trị
cuối.
(7)Program in4; Uses crt; Begin Writeln('O'); Writeln('O'); Writeln('O'); Writeln('O'); End. Program in4; Uses crt; Begin
For i:=1 to Writeln('O');
End.
Ban đầu biến đếm (i=1<4) lệnh in đ ược thực In mh chữ O đầu tiên
Biến đếm i tăng đơn vị (i=2<4) lệnh in đ ược thực in mh chữ O thứ hai
T ơng tự nh biến đếm i giá trị cuối (i=4) lệnh đ ược thực lần cuối kết thúc hình có chữ O.
O O O O
Hoạt động lệnh For to
(8)Program in4; Uses crt;
Begin
For i:=1 to 10 do begin
Writeln('O'); delay(100);
end;
End.
+ Hai lệnh đưược đặt hai từ khoá begin, end Câu lệnh ghép
O O O O O O O O O O
(9)VÝ dô 5: Tính tổng n số tự nhiên liªn tiÕp S = + + + + + n
NhËn xÐt:
S = 0
S = S + 1
S = S + 2 S = S + 3
S = S + n
1 S
Việc tính S đ ợc lặp lặp lại 100 lần theo quy luật
Ssau = Str ưíc+ i
với i tăng lần l ượt từ đến100
2
3 4 n
(10)
DiƠn t¶ thuËt to¸n
Program tinhtong; Uses crt;
Var S,i : Integer; Begin
S:=0;
Write(‘Nhap so n’); Read(n); For i:=1 to n do S:=S +i; Writeln('Tong S=',S);
Readln; End.
Ch ơng trình
Khai báo
Làm biến tổng Nhập giá trị cuối
(11)1! = 1
2! = 2
3! = 3 4! = 4
VÝ dơ 3: TÝnh N! (TÝch N sè tù nhiªn đầu tiên) N! = 1.2.3.4 N
GT = 1
GT = GT 2 GT = GT 3 GT = GT 4
Hãy xỏc nh:
- Giá trị khởi tạo GT - Giá trị đầu, cuối
bin m i
-Câu lệnh đ ợc lặp GT:=1;
(12)Em h·y khai b¸o biÕn cho toán trên? Em hÃy viết câu lệnh nhập vào N?
Begin
Clrscr;
Write('Nhap N= '); Readln(N);
Khëi t¹o GT b»ng bao nhiªu?
GT:=1;
Hãy viết câu lệnh lặp với giá trị biến đếm câu lệnh đ ợc lặp
For i:=1 to N GT:=GT*i;
In kÕt qu¶?
Writeln('Tich cua N so tu nhien =',GT); Readln;
End.
(13)
Uses crt;
Var i,N : Integer; S : real;
BEGIN
Readln;
END.
S:=0;
FOR i:=1 to N do S := S+1/i; Writeln(‘ Tong S =’,S:8:3);
Write(‘ Nhap vao gia tri cua N :’);readln(N);
Program Tinh_tong2;
Dựa vào bi hóy xỏc nh:
- Giá trị khởi tạo S - Giá trị đầu, cuối
bin m i
-Câu lệnh đ ợc lặp
N
S 1
4 1 3 1 2 1
1
S:=0;
For i:=1 to N do S:= S + 1/i;
Lập ch ơng trình tính tổng sau:
(14)Ghi nhí!
Cấu trúc lặp đ ược sử dụng để thị
cho máy tính thực lặp lại hoạt động đó, thư ờng với dữ liệu khác nhau,
điều kiện đ ược thỏa mãn
Mọi ngơn ngữ lập trình có câu
lệnh lặp th hin cu trỳc lp
Ngôn ngữ Pascal thĨ hiƯn cÊu tróc lỈp