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

KIỂM TRA BÀI CŨ
NỘI DUNG:
Nêu cấu trúc dạng lặp tiến?
Giải thích các thành phần trong cấu trúc.
Cho ví dụ.
KIỂM TRA BÀI CŨ
BÀI 10.
Tiết 2
Nội dung
Các ví dụ
3
Biết sử dụng câu lệnh lặp của Turbo Pascal
Ví dụ 1. Thuật toán tong_1a
B2. S = 1/a; N = 0;
B1. Nhập a
B3. N:=N + 1;
B4. Nếu N > 100 thì đến bước 6;
B5. S:=S+1/(a+N); chuyển đến B3.
B6. In ra S rồi kết thúc.
Readln(a);
S:=1/a;
For N:=1 to 100 do
S:= S + 1/(a+N);
Write(‘Tong la : ‘,S);
Nội dung
begin
clrscr;
Write (`nhap vao gia tri a=`);
Readln (a);
s:=1.0/a;
for n:=1 to 100 do
s:=s+1.0/(a+n);
Writeln (`s=`,s:5:2);
readln
end.
PHẦN KHAI BÁO
program tong_1a;
uses crt;
var n, a: integer;
s: real;
PHẦN THÂN
Ví dụ 2.
Viết chương trình thực hiện việc nhập từ bàn phím hai số nguyên M và N (MVí dụ 2.
1. Xác định Input, Output của bài toán?
2. Xây dựng thuật toán cho bài toán?
Nội dung
Thuật toán:
B1. Nhập M, N;
B2. S := 0;
B3. Cho biến i chạy từ M đến N
kiểm tra
nếu i chia hết cho 3 hoặc 5 thì
cộng vào S.
B4. Xuất S.
BÀI TẬP CHUẨN BỊ
Viết chương trình nhập vào 3 số nguyên. Kiểm tra xem 3 số đó có là 3 cạnh của một tam giác vuông không? In kết quả ra màn hình.