slide bài giảng câu lệnh lặp

c/ Hoạt động của câu lệnh: d/ Lưu ý: BÀI 7: CÂU LỆNH LẶP Tiết 40 Câu lệnh lặp với số lần biết trước trong Ngôn ngữ lập trình Pascal có dạng?... Ghi nhớ thị cho máy tính thực hiện lặp l

1

2

3 Ví dụ về câu lệnh lặp:

a/ Cú pháp:

b/ Trong đó:

- For, To, Do là:

- Biến đếm:

- Giá trị đầu, giá trị cuối:

- Câu lệnh

c/ Hoạt động của câu lệnh:

d/ Lưu ý:

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Câu lệnh lặp với số lần biết trước trong Ngôn ngữ lập trình Pascal có dạng?

3 Ví dụ về câu lệnh lặp:

Ví dụ 3: Chương trình sau sẽ in ra màn hình thứ tự lần lặp:

Program lap;

Uses crt;

Var i: integer;

Begin

For i:= 1 to 10 do

Writeln (‘day la lan lap thu ’, i );

Readln;

end.

BÀI 7: CÂU LỆNH LẶP

Tiết 40

day la lan lap thu 1 day la lan lap thu 2 day la lan lap thu 3 day la lan lap thu 4 day la lan lap thu 5 day la lan lap thu 6 day la lan lap thu 7 day la lan lap thu 8 day la lan lap thu 9 day la lan lap thu 10

Theo em dự đoán thì trên màn hình sẽ hiển thị lên kết

quả như thế nào sau khi chạy chương trình?

Lần lặp thứ i Kết quả viết ra màn hình

Số lần lặp= 10-1+1=10(lần)

Số lần lặp= ?

Ví dụ 3: Chương trình sau sẽ in ra màn hình thứ tự lần lặp:

3 Ví dụ về câu lệnh lặp:

Áp dụng:

Hãy viết chương trình in ra màn hình các số từ 1 đến 10

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Program lap;

Uses crt;

Var i: integer;

Begin

For i:= 1 to 10 do

Writeln (‘day la lan lap thu ’, i );

Readln;

end.

day la lan lap thu 1 day la lan lap thu 2 day la lan lap thu 3 day la lan lap thu 4 day la lan lap thu 5 day la lan lap thu 6 day la lan lap thu 7 day la lan lap thu 8 day la lan lap thu 9 day la lan lap thu 10

1 2 3 4 5 6 7 8 9 10

3 Ví dụ về câu lệnh lặp:

Áp dụng:

Hãy viết chương trình in ra màn hình các số từ 1 đến 10

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Program lap;

Uses crt;

Var i: integer;

Begin

For i:= 1 to 10 do

Writeln ( i );

Readln;

end.

1 2 3 4 5 6 7 8 9 10

3 Ví dụ về câu lệnh lặp:

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Để in một chữ “O” trên màn hình ta sử dụng lệnh nào? Để in nhiều chữ “O” trên màn hình ta làm như thế nào?

For i:= 1 to 20 do Writeln (‘O’);

3 Ví dụ về câu lệnh lặp:

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Ví dụ 4: Hiệu ứng trứng rơi

For i:= 1 to 20 do

begin

Writeln (‘O’);

delay(100)

end;

O O O O O O O O O O O O O O O O O O O O

Uses crt;

Var i: integer;

Begin

For i:= 1 to 20 do

begin

Writeln (‘O’);

delay(100)

end;

Readln

end

Bài 4 (SGK-61) Sau khi thực hiện đoạn

chương trình sau, giá trị j bằng bao nhiêu?

For i:=0 to 5 do j:=j+2;

Số lần lặp = 5 – 0 + 1 = 6 (Lần)

Sau mỗi vòng lặp giá trị j tăng thêm 2

Sau 6 vòng lặp giá trị j = 12

Nhận biết câu lệnh lặp

Bài 5 (SGK-61) Các câu lệnh Pascal sau đây

có hợp lệ hay không, vì sao?

a/ For i:=100 to 1 do writeln(‘A’);

b/ For i:=1.5 to 10.5 do writeln(‘A’);

c/ For i=1 to 10 do writeln(‘A’);

d/ For i:=1 to 10 do; writeln(‘A’);

e/ Var x:Real;

Begin

For x:=1 to 10 do writeln(‘A’);

End

Nhận biết câu lệnh lặp

Bài 5 (SGK-61) Các câu lệnh Pascal sau đây

có hợp lệ hay không, vì sao?

a/ For i:=100 to 1 do writeln(‘A’);

b/ For i:=1.5 to 10.5 do writeln(‘A’);

c/ For i=1 to 10 do writeln(‘A’);

d/ For i:=1 to 10 do; writeln(‘A’);

e/ Var x:Real;

Begin

For x:=1 to 10 do writeln(‘A’);

End

4 Tính tổng và tích bằng câu lệnh lặp:

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Ví dụ 5: Tính tổng S = 1+2+3+…+N

Uses crt;

Var N, i: integer;

S: longint;

Begin

Write(‘nhap so N=‘); readln(N);

S:=0;

For i:= 1 to N do S:= S + i;

Writeln (‘Tong S= ‘, S);

Readln

end

4 Tính tổng và tích bằng câu lệnh lặp:

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Ví dụ 6: Tính Tích N! = 1*2*3*…*N Uses crt;

Var N, i: integer;

P: longint;

Begin

Write(‘nhap so N=‘); readln(N);

P:=1;

For i:= 1 to N do p:=p*i;

Writeln (N ,’ != ’, p);

Readln

end

Ví dụ 5: Tính tổng S = 1+2+3+…+N

4 Tính tổng và tích bằng câu lệnh lặp:

BÀI 7: CÂU LỆNH LẶP

Tiết 40

Ví dụ 6: Tính Tích N! = 1*2*3*…*N

Program Tinh_Giai_thua;

Uses crt;

Var N, i: integer;

P : longint;

Begin Write(‘nhap so N=‘); readln(N);

P:=1;

For i:= 1 to N do p:=p*i;

Writeln ( N ,’ != ’, p );

Readln end

Ví dụ 5: Tính tổng S = 1+2+3+…+N

Program Tinh_tong;

Uses crt;

Var N, i: integer;

S : longint;

Begin

Write(“nhap so N=‘); readln(N);

S:=0;

For i:= 1 to N do S:= S + i;

Writeln (‘ Tong S= ‘, S );

Readln

end

Sau khi thực hiện đoạn chương trình sau giá

Bài tập nhóm

01 11 12

1 phút

01 11

12 11 12 Hết thời gian Thời gian

A:=0; B:=1;

For i:=1 to 5 do A:=A+1; B:=B+1

A:=0; B:=1;

For i:=1 to 5 do Begin A:=A+1; B:=B+1; End;

Câu 1

Câu 2

Nhóm 1,2,3

Nhóm 4,5,6

Ghi nhớ

thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi

một điều kiện nào đó được thoả mãn

câu lệnh lặp để thể hiện cấu trúc lặp

lặp với số lần lặp cho trước bằng câu

lệnh For … do

Củng cố

- Học bài cũ

- Làm các bài tập còn lại trong phần câu hỏi và bài tập trang 60,61(sgk)

- Xem trước: Bài thực hành số 5