Giáo án Tin học 8 - Tiết 47: Bài tập - Năm học 2009-2010 - Phạm Tuấn Anh

Dạy lớp: 8A; 8B; 8E. Ngày soạn: 21/02/2010. 
Tiết PPCT: 47. Ngày dạy: 26/02/2010.
BÀI TẬP
A. Mục tiêu: 
*) Tiếp tục giúp HS:
+) Biết nhu cầu cần có cấu trúc lặp với số lần chưa biết trước trong ngôn ngữ lập trình;
+) Biết ngôn ngữ lập trình dùng cấu trúc lặp với số lần chưa biết trước để chỉ dẫn máy tính thực hiện lặp đi lặp lại công việc đến khi một điều kiện nào đó được thoả mãn.
+) Hiểu hoạt động của câu lệnh lặp với số lần chưa biết trước. 
+) Biết sửa lổi và viết được chương trình một số bài toán cơ bản.
B. Chuẩn bị: 
1. Giáo viên: Soạn bài, đọc tài liệu tham khảoù, dung cu day học.
2. Học sinh: Đọc trớc bài, làm các bài tập, dụng cụ học tập.
C. Tiến trình tiết dạy: 
I. ổn định tổ chức lớp: - Kiển tra sĩ số: 
II. Kiểm tra bài cũ: - Kiểm tra việc chuẩn bị bài ở nhà của học sinh trong vở.
III. Dạy bài mới:
hoạt động của thầy và trò
kiến thức cần đạt
Hoạt động 1.
Bài tập 1.
Viết thuật toán và chương trình Pascal có câu lệnh lặp với số lần không xác định để tính lũy thừa bậc n của A (tức An), với n là số tự nhiên và A là số thực được nhập vào từ bàn phím. 
GV giới thiệu bài tập tiếp theo, yêu cầu HS thực hiện.
Bài tập 2: 
Tính tích của N số tự nhiên đầu tiên với số lần lặp không xác định (với N là số tự nhiên được nhập vào từ bàn phím).
Bài tập 3: 
Số nguyên p được gọi là ước số thực sự của số nguyên q, nếu q chia hết cho p và p khác 1 và khác chính số q. Viết thuật toán và chương trình để nhập số tự nhiên n và tính tổng các ước số thực sự của n.
Hoạt động 2:
Hướng dẫn về nhà:
Xem lại các bài đã làm, làm tiếp các bài GV yêu cầu, Ôn tập kỹ phần lý thuyết và các dạng bài tập tiết sau kiểm tra lý thuyết.
HS: Thảo luận làm bài.
Bài tập 1:
Thuật toán:
Bước 1. Đọc các giá trị x và n. 
Bước 2. A ơ 1, k ơ 1. 
Bước 3. Nếu k > n, chuyển xuống bước 5.
Bước 4. A = A.x, k ơ k + 1 và quay lại bước 3. 
Bước 5. Thông báo kết quả là A và kết thúc thuật toán.
Chương trình Pascal:
var n,k: integer;
 A, LT: real;
begin
write(‘Nhap so A= ‘); readln(A);
write(‘Nhap so n= ‘); readln(n);
LT:=1; k:=1;
while k<=n do begin LT:=LT*A, k:=k+1 end
end.
 HS thảo luận và làm bài.
Bài tập 2:
Bước 1. Đọc giá trị N. 
Bước 2. T ơ 1, k ơ 1. 
Bước 3. Nếu k ≤ N, T = T.k; ngược lại, chuyển xuống bước 5.
Bước 4. k ơ k + 1 và quay lại bước 3. 
Bước 5. Kết thúc thuật toán.
Bài tập 3:
Thuật toán: 
Bước 1. Đọc giá trị n. 
Bước 2. S ơ 0, i ơ 2. 
Bước 3. Nếu i > n - 1, chuyển xuống bước 5.
Bước 4. Nếu n chia hết cho i, S ơ S + i, i ơ i + 1 và quay lại bước 3.
Bước 5. Ghi giá trị S và kết thúc thuật toán.
Chương trình có thể như sau:
var n,i,S: integer;
begin
write('Cho so tu nhien n= '); readln(n);
i:=2; S:=0;
while i<=n-1 do
 begin
 if (n mod i)=0 then S:=S+i; 
 i:=i+1;
 end;
write('Tong cac uoc so thuc su cua ',n,' la: ',S);
readln;
end.
HS: Chú ý lắng nghe để thực hiện.