Tin học 8. Lặp với số lần biết trước

• 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]

 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?

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¶

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Ø?

 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

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.

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

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

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

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

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;

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.

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:

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