NS:ND: ND:
Tiết 53 - 54: BÀI TẬP A. Mục tiêu:
- 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. - Biết sử dụng câu lệnh ghép.
B. Phơng pháp
1. Phơng pháp: Thuyết trình, nêu vấn đề, vấn đáp2. Phơng tiện: Máy tính, . 2. Phơng tiện: Máy tính, .
C. Chuẩn bị:
1. Giáo viên:
- Chuẩn bị một số thuật tốn và chơng trình .- Chuẩn bị máy tính,. - Chuẩn bị máy tính,.
2. Học sinh:- Thực hiện nhiệm vụ về nhà của tiết trớc.
D. Tiến trình bài dạy:
Bài 1: Lập 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. 1 1 1 1 ... ( ) 2 3 A n Z n = + + + ∈ GIẢI 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 tỡm ƯCLN(a,b). Biết a, b được nhập từ bàn phớm. a,b∈Z
Giải
Program timUCLN; Uses Crt;
Var a,b,r,a1,b1: integer; BEGIN
ClrScr;
Write(‘Nhap so thu nhat, a= ‘); Readln(a); a1:= a; Write(‘Nhap so thu hai, = ‘); Readln(b); b1:= b; While a mod b <> 0 do
r:= a mod b;a: = b; b: = r; a: = b; b: = r; End;
Write (‘ Vay UCLN(‘, a1, ‘;’,b1,’)=’,b:2); Readln
END.
Bài 3: Viết chương trỡnh tỡm BCNN(a,b). Biết a, b được nhập từ bàn phớm. a,b∈Z
Giải
Program timBCNN; Uses Crt;
Var a,b,n,min,max,max1: integer; BEGIN
ClrScr;
Write(‘Nhap so thu nhat, a= ‘); Readln(a); a1:= a; Write(‘Nhap so thu hai, = ‘); Readln(b); b1:= b; If a>b then
Begin max: = a; min:=b; End Else Begin max:=b; min:= a; End; n:= 2; max1:=max;
While max mod min <> 0 Do Begin
max:= max1*n; inc(n); {n:=n+1} End;
Write (‘ Vay BCNN(‘, a, ‘;’,b,’)=’,max:2); Readln
END.
NS:ND: ND:
Tieỏt 55: KIỂM TRA 1 TIẾT
I. MUẽC TIÊU: