§10. CÊu tróc lÆp (tiÕp)
1. Lặp
2. Lặp với số lần biết trước và câu lệnh For.do
Bài toán 1: Tính tổng S?
§10. CÊu tróc lÆp (tiÕp)
Gọi số buổi các em đến trường là S. Hỏi một năm học S bằng bao nhiêu?
3. Lặp với số lần chưa biết trước và câu lệnh While.do
a. Cho bài toán 2.

Cho đến khi
- Tìm thuật toán:
§10. CÊu tróc lÆp (tiÕp)
§10. CÊu tróc lÆp (tiÕp)
- Thuật toán:
B1. S:=1/a; N:=0; {Ta khởi tạo S và N}
B2. Nếu 1/(a+N)<0.0001 thì đưa kết quả tổng S rồi kết thúc
B3. N:=N+1;
B4: S:=S+1/(a+N) rồi quay lại bước 2;
§10. CÊu tróc lÆp (tiÕp)
- Nh­ vËy ta thÊy sè lÇn lÆp cña bt2 lµ ch­a biÕt tr­íc.
- ViÖc tÝnh tæng S chØ kÕt thóc khi ®iÒu kiÖn:
được thoả mãn.
Vậy trong NNLT Pascal để mô tả cấu trúc lặp như vậy ta dùng câu lệnh While.do
§10. CÊu tróc lÆp (tiÕp)
- CÊu tróc nh­ sau:
While <®iÒu kiÖn> do ;
+ Trong ®ã:
. §iÒu kiÖn: lµ biÓu thøc logic
. C©u lÖnh: lµ mét c©u lÖnh ®¬n hoÆc ghÐp.

§10. CÊu tróc lÆp (tiÕp)
+ ý nghĩa: Thực hiện câu lệnh cho tới khi điều kiện sai. Được thể hiện trên sơ đồ sau:
§10. CÊu tróc lÆp (tiÕp)
- Được thể hiện trên sơ đồ sau:
§10. CÊu tróc lÆp (tiÕp)
- Thuật toán:
B1. S:=1/a; N=0;
B2. Nếu 1/(a+N)<0.0001 --> while (1/a+N)>=0.0001 do ;
B3. N:=N+1;
B4: S:=S+1/(a+N) rồi quay lại bước 2;
§10. CÊu tróc lÆp (tiÕp)
b. Bài toán 3. Tìm UCLN của 2 số nguyên dương M,N.
- Thuật toán theo cách liệt kê:
§10. CÊu tróc lÆp (tiÕp)
- Thuật toán theo cách liệt kê:
B1. Nhập M,N
B2. Nếu M=N quay lại bước 5
B3. Nếu M>N thì M:=M-N quay lại bước 2
B4. N:=N-M quay lại bước 2
B5. Dưa ra kết qu? rồi kết thúc chương trỡnh

§10. CÊu tróc lÆp (tiÕp)
- Thuật toán theo sơ đồ khối:
§10. CÊu tróc lÆp (tiÕp)
- Từ thuật toán trên ta viết chương trình cho bài toán
§10. CÊu tróc lÆp (tiÕp)
Program Tim_UCLN;
Uses crt;
Var M,N: Integer;
Begin
Clrscr;
Write(`Nhap 2 so M,N: `);
Readln(M,N);

While Not(M=N) do
If M>N then M:=M-N Else N:=N-M;

Writeln(`UCLN la: `,M);
Write(`Go ENTER de ket thuc chuong trinh`);
Readln
End.
§10. CÊu tróc lÆp (tiÕp)
* Củng cố:
- Cấu trúc câu lệnh While. do.

§10. CÊu tróc lÆp (tiÕp)
* Củng cố:
- Cấu trúc câu lệnh While. do.
- ý nghĩa của câu lệnh while.do....

§10. CÊu tróc lÆp (tiÕp)
* Củng cố:
- Cấu trúc câu lệnh While. do.
- ý nghĩa của câu lệnh while.do....
- Và nêu định lí (Bon-Ja-co-pi-ni)