Tiết 47 - Tin8

Tiết 47: Bài tập (tiếp)
Ngày soạn: 22/02/2009
I/ Mục tiêu:
- Ôn tập lại về kiến thức của bài 6 và bài 7.
- Vận dụng câu lệnh lặp biết trước và câu lệnh lặp chưa biết trước vào làm một số bài tập.
II/ Phương pháp: Thuyết trình, vấn đáp, thảo luận.
III/ Chuẩn bị: Một số bài tập
IV/ Hoạt động dạy và học:
1/ Kiểm tra bài cũ:
Việc đầu tiên mà câu lệnh While…do cần thực hiện là gì?
A. Thực hiện sau từ khoá Do
B. Kiểm tra giá trị của điều kiện.
C. Thực hiện sau từ khoá then
D. Kiểm tra câu lệnh.
Hãy chọn phương án đúng.
(Đáp án B)
2. Bài mới:
Hoạt động của GV
Hoạt động của HS

Hoạt động 1: Chữa bài tập về nhà
Bài 1: Viết chương trình: Lần lượt nhập vào các số nguyên từ bàn phím, việc nhập sẽ kết thúc khi tổng các số nguyên nhập vào lớn hơn hoặc bằng 1000. báo ra màn hình có bao nhiêu số nguyên được nhập vào và tổng của các số nguyên đó.
- Hãy viết thuật toán.
- GV gọi HS viết chương trình
- Gọi HS khác nhận xét
Chương trình:
Program Tong;
var a, t, dem: integer;
Begin
Write (`nhap vao mot so:`); Readln(a);
t: = a; dem: =1;
While t< 1000 do
Begin
Write (`nhap so tiep theo:`); readln(a);
t:= t+a;
dem:= dem+1;
end;
Writeln(` so lan nhap la:`, dem, ` lan`);
Writeln(`tong so la:`, t);
readln;
End.
Bài 2: Một người gửi vào ngân hàng 1 trăm triệu đồng với lãi suất 1,25 % / tháng. Hỏi sau bao lâu (mấy năm, mấy tháng) người ấy sẽ trở thành tỷ phú.
Viết chương trình
Để viết chương trình trên ta sử dụng những biến nào?
Program Typhu;
const ls = 0.0125;
var n, t: integer;
tc, tg: real;
begin
t:= 0; tg:= 100000000;
tc:=1000000000;
While tg< tc do
begin
tg:= tg+ tg* ls;
t:= t+1;
end;
n:= t div 12;
t:= t mod 12;
writeln (` de tro thanh ty phu can phai gui:`, n,` năm và `, t,` thang`)`;
readln; End.
Bài 3: Em có một số tiền ban đầu là a, em mang số tiền này gửi tiết kiệm với lãi suất hàng tháng là 1,2%.
Hỏi sau 10 tháng gửi, em thu được số tiền là bao nhiêu.
? Ta sử dụng câu lệnh nào?
GV gọi HS lên bảng trình bày
GV gọi HS khác nhận xét
Viết chương trình
Program Tiengui;
var a: Real;
i: integer;
begin
Writeln(` nhap vao so tien ban dau:`); Readln(a);
for i:= 1 to 10 do a:= a+ a*0.012;
Writeln(` so tien thu được sau 10 thang gui la:`, a);
Readln;
End.






HS viết thuật toán
Bước 1: Nhập một số nguyên a;
t <- a, dem <- 1
Bước 2: nếu T>=1000, chuyển đến bước 4
Bước 3: t<- t+a;
dem<- dem +