Đọc và tìm hiểu chơng trình trong Đọc thêm 1– Tính gần đúng số Pi.

Một phần của tài liệu Giáo án Tin học 8_Cả năm (Trang 83 - 85)

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,bZ

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,bZ

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:

Một phần của tài liệu Giáo án Tin học 8_Cả năm (Trang 83 - 85)

Tải bản đầy đủ (DOC)

(119 trang)
w