Bài 10. Cấu trúc lặp

Bài 10 - Tiết 19
cấu trúc lặp (Tiếp)
Ví dụ 1:
Dữ liệu ra (Output) : Tổng S
Dữ liệu vào (Input) : Nhập a
Cho đến khi
Tính giá trị tổng S, với a là số nguyên và a>2.
thì dừng lại.
3. Lặp với số lần chưA biết trước và câu lệnh while - do
1. Lặp
2. Lặp với số lần lặp biết
trước và câu lệnh for - do
bài 10: cấu trúc lặp (Tiếp)
Bước 2:
S:=1/a; N:=1;
{Khởi tạo S và N}
Bước 3:
Nếu 1/(a+N) < 0.0001
=> Bước 5
Bước 4:
S:=S+1/(a+N);
N:=N+1;
=> quay lại bước 3
thuật toán
Bước 1: Nhập a.
Đưa ra S
=> Kết thúc
? Vòng lặp chỉ dừng khi 1/(a+N)<0.0001
S
Đ
Bước 5: In S => Kết thúc.
bài 10: cấu trúc lặp (Tiếp)
WHILE <Điều kiện> DO ;
Điều kiện
Đúng
Câu lệnh
Điều kiện: Là biểu thức
quan hệ hoặc lôgic.

Câu lệnh: Là một câu lệnh của Pascal.
Sai
Trong đó:
Chừng nào điều kiện còn đúng thì
câu lệnh còn được thực hiện.
bài 10: cấu trúc lặp (Tiếp)
Điều kiện
Câu lệnh
1. Lặp
2. Lặp với số lần lặp biết
trước và câu lệnh for - do
3. Lặp với số lần chưA biết trước
và câu lện while - do
Ví dụ 1
WHILE1/(a+N)>=0.0001DO
Begin
S:=S+1/(a+N);
N:=N+1;
END;
Ví dụ 1:
Nhận xét:
Chừng nào 1/(a+N)>=0.0001 thì còn thực hiện:
+ Tăng giá trị của tổng S thêm 1/(a+N).
+ Tăng N thêm 1 đơn vị.
Tính giá trị tổng S, với a là số nguyên và a>2
thì dừng lại.
Cho đến khi
1. Lặp
2. Lặp với số lần lặp biết
trước và câu lệnh for - do
Ví dụ 1
3. Lặp với số lần chưA biết
trước và câu lện while - do
bài 10: cấu trúc lặp (Tiếp)
Program Bai_toan1;
Uses Crt;
Var a,N: Integer;
S: Real;
BEGIN
Clrscr;
Write(`Nhap gia tri cua a= `);Readln(a);
S:=1/a;N:=1;
WHILE 1/(a+N)>=0.0001 DO
BEGIN
S:=S+1/(a+N);
N:=N+1;
END;
Writeln(`Gia tri cua tong S = `,S:8:3);
Readln;
END.
Chương trình
Ví dụ 2: Lập chương trình nhập vào hai số nguyên dương M,N. Tìm ƯCLN của hai số đó.
B1: Nhập M,N;
B2 : Chừng nào M?N
nếu M>N thì M:=M-N,
ngược lại thì N:=N-M;
B3: Đến khi M=N thì
=> Đưa ra ƯCLN(M,N)=M;
=> Kết thúc.
B1: Nhập M,N
B2 : While M<>N DO
Begin
IF M>N then M:=M-N
else N:=N-M; end;
B3: In ƯCLN(M,N)
Thuật toán
các bước viết chương trình
bài 10: cấu trúc lặp (Tiếp)