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

j:=0;
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
2
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.
3
Bài 1: Mô tả thuật toán và viết chương trình nhập vào N số nguyên từ bàn phím, đếm xem có bao nhiêu số nguyên dương trong N số đó?
?Viết mô tả thuật toán.
?Viết chương trình pascal.
4
Mô tả thuật toán:
Bước 1: Nhập N, i1,dem0;
Bước 2: Nhập số thứ i, a>0 thì demdem+1
Bước 3: ii+1;
Bước 4: Nếu i<=N quay về bước 2;
Bước 5: In dem và kết thúc thuật toán.
5
Bài 1:
Viết chương trình:
Program Bai_tap_1;
Uses crt;
Var n, I, a, dem:integer;
Begin
ClrScr;
Write(‘Nhap so n=’);readln(n);
Dem:=0;
For I:=1 to n do
Begin
Write(‘Nhap so thu ‘,I,’=’);readln(a);
If a>0 then dem:=dem+1;
End;
Write(‘Cac so duong la ‘,dem:3);
Readln
End.
6
Bài 2:
Chương trình:
Program Tim_max;
Uses crt;
Var N, i, max,a: integer;
 
BEGIN
Clrscr;
Writeln(‘nhap vao N: ‘); readln(N);
Max:=0;
For i:=1 to n do
Begin
Writeln(‘nhap so thu ‘,i,’ :’);
readln(a);
if maxend;
writeln(‘so lon nhat la: ‘,max);
readln;
END
7
Ghi nhớ

1. Cấu trúc lặp được sử dụng để chỉ 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.
2. Mọi ngôn ngữ lập trình đều có các câu lệnh lặp để thể hiện cấu trúc lặp.
3. Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh For … do