Giáo án Tin học Lớp 8 - Tiết 57: Bài tập (T2) - Năm học 2009-2010

Bài tập
 Tuần 29
Tiết 57
Ngày soạn: 07/03/2010
Ngày dạy: 16/03/2010
I. mục tiêu
1. Kiến thức
	Viết được chương trình Pascal có sử dụng vòng lặp While ... do
Biết sử dụng câu lệnh ghép.
2. Kỹ năng
	Rèn kỹ năng đọc hiểu chương trình có sử dụng vòng lặp while ... do
3. Thái độ
- Thái độ học tập nghiêm túc, tích cực làm các bài tập thực hành.
II. CHUẨN BỊ
1. Giỏo viờn
a. Phương phỏp: : Thuyết trình, nêu vấn đề, vấn đáp
b. Phương tiện: Giỏo ỏn, mỏy chiếu, mỏy tớnh. 
2. HS: Sỏch, vở, làm bài tập về nhà 
III. TIẾN TRèNH DẠY - HỌC
1.Ổn định lớp
- Ổn định trật tự
- Kiểm tra sĩ số
2. Kiểm tra bài cũ
	(kiểm tra trong tiết bài tập)
3. Tiến trình lên lớp
Hoạt động của thầy và trò
Nội dung
GV: Viết đề bài của bài 1 lờn bảng. yờu cầu cả lớp nhỏp bài và chuẩn bị lờn bảng 
HS: Thực hiện yờu cầu
GV: Gợi ý bài 1
GV: Gọi học sinh lờn bảng và đọc tiếp đề bài bài 2 cho HS ghi 
HS: Ghi bài
GV: Gợi ý cỏch lam bài 2Yờu cầu tất cả cỏc em ngồi dưới làm bài?
HS: Thực hiện yêu cầu
GV: Đi kiểm tra và cú thể gọi đem giấy nhỏp chấm điểm
GV: Sau khi học sinh làm bài xong. Nhận xét và cho điểm
GV: Ghi đề bài bài 3, gợi ý và gọi 2 HS lên mụ tả thuật toỏn và viết chương trình Pascal.
HS: Thực hiện yêu cầu
GV: Sau khi học sinh làm bài xong . Nhận xét và cho điểm
Bài 1: Mô tả thuật toán và viết chương trình tính tổng dùng lệnh lặp While ...do. Trong đó n là số tự nhiên 
được nhập từ bàn phím.
GIẢI
*MTTT: 
B1: Nhập n
B2: Nếu i<n thỡ n <- n+1; Ngược lại chuyển B4
B3: tong <-tong+n ;
B4: in kết quả và kết thỳc thuật toỏn
Program tinhA;
Uses CRT;
Var i, n: integer;
tong: real;
BEGIN
Clrscr;
write('cho so tu nhien n: '); Readln(n);
tong:=0; i:=1;
while i<= n do
Begin
tong:= tong+ 1/i;
i: = i+1;
End;
writeln(' Tong can tim la: ', tong:12:6);
Readln;
END.
Bài 2: Viết chương trỡnh nhập vào số nguyờn N. In ra màn hỡnh tất cả cỏc ước số của N.
í tưởng: Cho biến i chạy từ 1 tới N. Nếu N MOD i=0 thỡ viết i ra màn hỡnh.
* MTTT:
B1: Nhập n
B2: Nếu i<=n thỡ i <- i+ 1; Ngược lại chuyển B4;
B3: Nếu n chia i dư 0 thỡ in i
B4: Kết thỳc thuật toỏn
Uses Crt;
Var N,i : Integer;
Begin
Clrscr;
Write('Nhap so nguyen N= '); Readln(N);
i:=0;
While i<= N Do 
Begin
 i:=i+1;
If N MOD i=0 Then Write(i:5); 
end;
Readln;
End.
Baif 3: 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 luỹ thừa bậc n của A(tức An), với n là số tự nhiên và Alà số thực được nhập vào từ bàn phím. 
Thuật toán:
Bước 1. Đọc các giá trị A và n. 
Bước 2. LT ơ 1, i ơ 1. 
Bước 3. Nếu i<= n, chuyển xuống bước 4. Ngược lại chuyển bước 5
Bước 4. LT = LT.A, i ơ i + 1 và quay lại bước 3. 
Bước 5. Thông báo kết quả là LT và kết thúc thuật toán.
Chương trình Pascal:
var n,i: integer;
	 A, LT: real;
begin
write(‘Nhap so A= ‘); readln(A);
write(‘Nhap so n= ‘); readln(n);
LT:=1; i:=1;
while i<=n do begin LT:=LT*A, i:=i+1 end;
Writeln('Luy thua',A,'mu',n,'la',LT:6:2);
readln
end.
4. Củng cố
Nhắc lại cho học sinh một số cách phân tích và làm bài toán sử dụng câu lệnh lặp với số lần chưa biết trước
5. Dặn dò
Về nhà hoàn thiện các bài tập và học bài cũ
iv. rút kinh nghiệm