Tiet 38: Cau lenh lap-Cuc Hay

Trường trung học cơ sở đại đứcMôn : Tin học – Lớp 7 Giáo viên giảng dạy:... Các công việc thực hiện nhiều lần.2.. Câu lệnh lặp một lệnh thay cho – nhiều lệnh.. Ví dụ về câu lệnh lặp.. Bi

Trường trung học cơ sở đại đức

Môn : Tin học – Lớp 7

Giáo viên giảng dạy:

? Cho 1 ví dụ với số lần lặp biết trước?

? Cho 1 ví dụ với số lần lặp không biết trước?

1 Các công việc thực hiện nhiều lần.

2 Câu lệnh lặp một lệnh thay cho –

2 Câu lệnh lặp một lệnh thay cho –

nhiều lệnh.

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

- Cú pháp câu lệnh lặp trong Pascal:

For tên biến := giá tri đầu To giá trị

cuối Do câu lệnh trong vòng lăp ;

- Trong đó:

For, To, Do là các từ khoá.

Biến là kiểu số nguyên.

Sau từ khoá Do không có dấu chấm phẩy.

Câu lệnh trong vòng lặp nếu có nhiều hơn

1 lệnh thì đặt trong cặp từ khoá Begin

End.

…

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

- Kiểu dữ liệu số nguyên: Longint có

phạm vi lơn hơn so với kiểu Integer.

Quan sát ví dụ sau:

For i:=1 To 10 Do Writeln (‘lan lap thu’,i) ;

Ví dụ 3:

Program lap;

Var i: Integer;

Begin

For i:=1 to 10 do Writeln ( lan lap thu ,i);‘ ’

Readln;

End

Ví dụ 4:

Uses crt;

Var i: Integer;

Begin clrscr;

For i:=1 to 20 do Begin Writeln ( O ); delay (100); end;‘ ’

Readln;

End

Ví dụ 5:

Program TinhTong;

Var N, i: Integer; S: Longint;

Begin

Writeln (‘Nhap so N =‘); Readln (N); S:= 0;

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

Write (‘Tong cua’,N,’So tu nhien dau tien S’,S); Readln;

End

Ví dụ 6:

Program TinhGiaiThua;

Var N, i: Integer; P: Longint;

Begin

Writeln (‘Nhap so N =‘); Readln (N); P:= 1;

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

Write (N,’!=’,P);

Readln;

End

Viết chương tr ỡnh tính tổng: S=1+2+3+4+5

đáp án

Program Tinh_tong;

Var i: integer;

Begin

Readln;

end.

 Học bài theo vở ghi và SGK.

 Làm bài tâp 3, 4, 5, 60 trang 60, 61 SGK.