Giáo án Tin học 8 - Tiết 39-40, Bài thực hành 5: Sử dụng lệnh lặp For...Do - Năm học 2009-2010 - Ngô Thị Thùy Dung

Bài 1: Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, số được nhập từ bàn phím và dừng màn hình để có thể quan sát kết quả... Gv: Cho Hs quan sát chương trình, hỏi ý n[r]

Ngày soạn: 15/01/2010

Ngày dạy: 20/01/2010

Bài thực hành 5:

SỬ DỤNG LỆNH LẶP FOR…DO

I MỤC TIÊU:

1 Kiến thức:

2 Kĩ năng:

-  ! trình Pascal có câu   for…do

- Nâng cao () * +  ! trình

3 Thái độ:

- Ham thích môn ,

- Tích 0  1

II PHƯƠNG PHÁP:

III CHUẨN BỊ:

1 Giáo viên:

- SGK, tài 4 giáo án

- ;< dùng >? @ máy vi tính

2 Học sinh:

-

- SGK, +< dùng  1@ máy vi tính

IV TIẾN TRÌNH LÊN LỚP:

1 Ổn định lớp (2’)

2 Kiểm tra bài cũ: (5’)

HS1: Hãy  cú pháp câu   For…do

3 Bài mới:

Tiết 39:

Hoạt động 1: Khởi động (6’)

Gv: FC +

Gv: Yêu I Hs (C +J máy, quan sát và báo

cáo tình

Hs: 0 

Hoạt động 2: Bài 1 (15’)

Gv: Cho Hs quan sát ! trình, M ý ) K

O câu P

Hs:

Gv: 86 thích cho Hs  cách 0  K vòng

Bài 1:  ! trình in ra màn hình B6 nhân K -J $S O 1 + 9,

$S +!V 1 O bàn phím và O

màn hình + có  quan sát ( 56,

 for…do A n = 3.

11 11 Sai Không 0  

writeln 9 thúc vòng 

Gv: Cho Hs ghi ! trình vào C,

Hs: Ghi bài

Hs: Gõ ! trình lên máy, >? ! trình

Hoạt động 2: Bài 2 (17w’)

Gv: L>? ! trình cho Hs quan sát

Hs: Quan sát

Gv: 9 56 K ! 1 +!V có 2 !V

+-@

- Các hàng ( 56 sát nhau nên khó +

- Các hàng ( 56 không cân +S A hàng

tiêu +,

Gv: ; cho ( 56 ! trình +e  ta I

f $3 > ! trình Bc cách $3 g thêm

các  gotoxy(a, b), wherex, wherey

Gv: Yêu I Hs + I ! ý trang 63

Hs: ; bài

Gv: Các  gotoxy(a, b), wherex, wherey f $3

g +!V khi nào?

Hs:

Gv: Câu  gotoxy(a, b) dùng + làm gì?

Hs:

Uses crt;

Var i, n: integer;

Begin Clrscr;

Writeln('Nhap vao so n: ');

Readln(n);

Writeln('Bang nhan ',n);

Writeln;

For i:=1 to 10 do Writeln(n,' x ',i:2,' = ',n*i:3);

Readln;

End

Bài 2: Lf $3 ! trình

Gv: Câu  wherex, wherey dùng + làm gì?

Hs:

Gv: Cho Hs quan sát ! trình sau khi f

$3

Hs: Quan sát

Hs: Ghi ! trình vào C,

Hs: Gõ ! lên máy, b và >? !

trình

Tiết 40:

Hoạt động 3: Bài 3 (40’)

Gv: Lr ! câu  if, có  dùng câu  for

< trong -J câu  for khác khi 0  

, 73 g câu  for…do < nhau + in ra

màn hình các $S O 0 + 99 theo > B6 !

hình sau:

Gv: Cho Hs quan sát ! trình trong Sgk 86

thích ý ) O câu  trong ! trình

Hs: Quan sát

Gv: Cho Hs gõ ! trình vào máy, b và >?

! trình

Hs: 0 hành

Gv: Yêu I Hs 6 14 + f B6 ( 56

Uses crt;

Var i, n: integer;

Begin Clrscr;

Writeln('Nhap vao so n: ');

Readln(n);

Writeln('Bang nhan ',n);

Writeln;

For i:=1 to 10 do Begin

Gotoxy(5, wherey);

Writeln(n,' x ',i:2,' = ',n*i:3);

writeln Readln;

End

* s! ý:

- gotoxy(a, b):

hàng b

- wherex: cho B $S t 0 K J ,

- wherey: cho B $S t 0 K hàng

Bài 3:

ra u màn hình.

Hs: 6 1,

Hs:

Hs: '1 xét

Gv: Cho Hs quan sát ! trình sau khi +D +

f

Hs: Quan sát, ghi ! trình vào C,

Hs: Gõ ! trình vào máy, b và >?

! trình

Program tao_bang;

Uses crt;

Var i:byte;

j:byte;

Begin Clrscr;

gotoxy(20,20);

for i:=0 to 9 do begin

for j:=0 to 9 do write(10*i+j:4);

writeln;

gotoxy(20,wherey);

end;

readln end

4 Củng cố: (3’)

- Hs + I z ( ,

- '{ > các ( t +D 0 hành

5 Dặn dò: (2’)

- Coi > lý ? K các bài + | Bb cho  bài 1,

1 Giáo viên:

- SGK, tài 4 giáo án

- ;< dùng >? @ máy vi tính

2 Học sinh:

-

- SGK, +< dùng  1@... Readln;

End

* s! ý:

- gotoxy(a, b):

hàng b

- wherex: cho B $S t K J ,

- wherey: cho B $S t K hàng

Bài 3: