Cau lenh lap

Bài toán
Giáo viên : Nguyễn Xuân Lãm
Bài toán
MỤC TIÊU BÀI HỌC
Học sinh nắm được cú pháp, ý nghĩa của câu lệnh REPEAT . UNTIL
Học sinh hiểu và so sánh được sự khác biệt giưa lệnh lặp xác định và lệnh lặp không xác định
Học sinh vận dụng được câu lệnh lặp REPEAT . UNTIL để giải bài toán cụ thể.
Bài toán
I. Bài toán :
Một người gửi vào ngân hàng số tiền là a với lãi suất hàng tháng là l . Hỏi sau bao nhiêu tháng người đó nhận được số tiền là b?
Ý tưởng giải thuật :
Phân tích :
Tiền lãi sau 1 tháng :
a*l
Tiền vốn sau 1 tháng :
a = ?
a = a + a*l
- Khi nào thì hết gửi tiền vào ngân hàng ?
khi a>=b
B1 : nhập a, b , l
B2 : t=0
B3 : a:=a+a*l
t:=t+1
B4 : kiểm tra a>=b
- Nếu đúng thì làm B5
- Nếu sai thì làm B3
B5 : Thông báo t. Kết thúc
II. Lưu đồ:
Lưu đồ
III. Lưu đồ tổng quát:
Luu d? tq
Phát biểu :
Lặp lại công việc cho đến khi điều kiện đúng
ĐK
CÔNG VIỆC
IV. Cú pháp :
REPEAT
Công việc
UNTIL Ñieàu kieän
Cú pháp
Chú ý :
Vòng lặp REPEAT thực hiện công việc rồi kiểm tra điều kiện.
Công việc được thực hiện ít nhất 1 lần
Và cũng có thể thực hiện mãi mãi.
Trong Công việc phải có một hoặc nhiều lệnh làm thay đổi biểu thức điều kiện làm nó dần đến đúng.
Công việc không cần dùng Begin … end

Ý NGHĨA: : Lặp lại công việc cho đến khi điều kiện đúng
V. Chương trình :
Một người gửi vào ngân hàng số tiền là a với lãi suất hàng tháng là l . Hỏi sau bao nhiêu tháng người đó nhận được số tiền là b?
PROGRAM Bank;
VAR a,b,l : real ; t : integer;
BEGIN
Write(‘Nhap a , b , l : ‘);
Readln(a,b,l);
t := 0 ;
REPEAT
a := a + a*l ;
t := t + 1 ;
Until a>=b;
Writeln(‘So thang là ‘, t );
Readln;
END.
Chuong trình
V. Chương trình :
Một người gửi vào ngân hàng số tiền là a với lãi suất hàng tháng là l . Hỏi sau bao nhiêu tháng người đó nhận được số tiền là b?
PROGRAM Bank;
VAR a,b,l : real ; t : integer;
BEGIN
Write(‘Nhap a , b , l : ‘);
Readln(a,b,l);
t := 0 ;
REPEAT
a := a + a*l ;
t := t + 1 ;
UNTIL a>=b
Writeln(‘So thang là ‘, t );
Readln;
END.
Chuong trình
PROGRAM Bank;
VAR a,b,l : real ; t : integer;
BEGIN
Write(‘Nhap a , b , l : ‘);
Readln(a,b,l);
t := 0 ;
REPEAT
a := a + a*l ;
t := t + 1 ;
UNTIL a>=b
Writeln(‘So thang là ‘, t );
Readln;
END.
a
b
l
t
a>=b
1.000.000
1.200.000
0.1
0
False
1.100.000
1






REPEAT
a := a + a*l ;
t := t + 1 ;
UNTIL a>=b
1.210.000
2
TRUE
2
Bài tập về nhà:
Bài t?p
1. Tính n! = 1*2*…*n
2.
Tính tổng S