Hoạt động B1: Kiểm tra điều kiện B2: Nếu điều kiện đúng thì thực hiện câu lệnh và quay lại B1.. B3: Nếu điều kiện sai thoát khỏi vòng lặp...[r]
Trang 1CHÀO MỪNG BẠN ĐẾN
VỚI BÀI GIẢNG
CHÀO MỪNG BẠN ĐẾN
VỚI BÀI GIẢNG
Trang 2SỬ DỤNG KIẾN THỨC LIÊN MÔN VÀO BÀI GIẢNG
Trang 33 Lặp với số lần chưa biết trước và câu lệnh While - do
SỞ GIÁO DỤC VÀ ĐÀO TẠO TUYÊN QUANG
B i 2 à Cho a>2 và N là số nguyên.
Tính tổng và đưa ra màn hình:
Thuật toán
B1: Nhập a;
B2: S:= 1/a; N:=0.
B3: Nếu 1/(a+N) <0.0001 thì thông báo kết quả và
kết thúc.
B4: S:=S+1/(a+N); N:=N+1 B3
Và dừng khi
+
1 +
+ 2 +
1 +
1 +
1 +
1
=
S
N a
a a
a
0001
0
<
+
1
N a
Trang 43 Lặp với số lần chưa biết trước và câu lệnh While - do
Cấu trúc WHILE <điều kiện> DO <Câu lệnh>;
Trong đó: - while, do: là từ khóa
- điều kiện: là biểu thức lôgic hoặc biểu thức quan hệ.
- Câu lệnh: là câu lệnh đơn hoặc câu lệnh ghép.
Hoạt động
Điều kiện
Câu lệnh
S
Đ
B1: Kiểm tra điều kiện
B2: Nếu điều kiện đúng thì thực hiện
câu lệnh và quay lại B1.
B3: Nếu điều kiện sai thoát khỏi vòng
lặp.
Trang 5Program Bai_2;
Var s : Real;
N, a: Integer;
Begin
Write (‘Nhap a =’); Readln(a);
S:=1/a; N:=0;
While 1/(a+i) > 0.0001 do
Begin
N := N + 1;
S := S+1/(a+i);
end;
Write(‘Tong S=’), S:10:3);
Readln
End.
Khai báo
Thân chương trình
Ví dụ 1
Trang 6Tìm ước chung lớn nhất của 2 số nguyên dương M, N.
B1: Nhập M, N.
B2: Nếu M = N thì UCLN là M hoặc N và kết thúc.
B3: Nếu M > N thì M := M - N ngược lại thì N := N - M và quay lại B2
Thuật toán
Ví dụ 2
3 Lặp với số lần chưa biết trước và câu lệnh While - do
Trang 7Program UCLN;
Var M, N: Integer;
Begin
Write(‘ Nhap M va N =’);
Readln(M,N);
While N<>M do
If N > M then M:= M-N else N:=N-M;
Write(‘UCLN la ’, N);
Readln
End.
Khai báo
Thân chương trình
Trang 8Bài tập củng cố
Câu 1: Cho biết câu lệnh While - do là loại câu lệnh
a Lặp với số lần biết trước
b Lặp với số lần chưa biết trước
c Cả a, b đều sai
b Lặp với số lần chưa biết trước
Trang 9Câu 2: Câu lệnh sau từ khóa DO được thực hiện khi
gặp điều kiện
Trang 10TRƯỜNG THPT TRUNG SƠN