TIN 8 - TUAN 22 - TIET 41 + 42.doc

Ngày soạn: 20/01/2013
Ngày dạy: 22/01/2013

Bài thực hành 5: SỬ DỤNG LỆNH LẶP FOR…DO (t1)
I. MỤC TIÊU:
1. Kiến thức: Viết được chương trình có sử dụng vòng lặp For…Do
2. Kĩ năng: Đọc hiểu chương trình có vòng lặp For…Do
3.Thái độ: Có ý thức tư duy, có thái độ ham học hỏi, tác phong làm việc nghiêm túc.
II. CHUẨN BỊ:
1. Giáo viên: SGK, giáo án, máy chiếu, phòng máy
2. Học sinh: Đọc trước bài, SGK, đồ dùng học tập
III. TIẾN TRÌNH TIẾT DẠY:
1. Ổn định tổ chức lớp : (2’)
2. Kiểm tra bài cũ: Kết hợp kiểm tra trong quá trình thực hành
3. Bài mới : (40’)

Hoạt động của giáo viên
Hoạt động của học sinh
Kiến thức ghi bảng

Hoạt động 1: Bài tập 1 (28’)

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 được nhập từ bàn phím và dừng màn hình để quan sát kết quả.
GV: Yêu cầu học sinh khai báo.





GV: Nhập n?
GV: Writeln dùng để làm gì?


GV: Giải thích vòng lặp For và in ra kết quả bảng nhân.

Bước
i
i< 10?
Writeln(N,’x’,I,’=’,N*i)

1
1
Đúng
3x1=3

2
2
Đúng
3x2=6

3
3
Đúng
3x3=9

4
4
Đúng
3x4=12

5
5
Đúng
3x5=15

6
6
Đúng
3x6=18

7
7
Đúng
3x7=21

8
8
Đúng
3x8=24

9
9
Đúng
3x9=27

10
10
Đúng
3x10=30

11
11
Sai
Không thực hiện lệnh writeln ( ). kết thúc vòng lặp



HS: Chú ý nghe giảng và hướng dẫn viết chương trình chạy thử trên bảng.

HS: Viết chương trình
Program Bangnhan;
Uses crt;
Var N, i: integer;
Begin
Clrscr;
Write (‘nhap so N =’); Readln (N);
Writeln;
Writeln (‘Bang nhan ‘N,);
Writeln;
For i:=1 to 10 do
Writeln(‘N, ‘x’, i:2,’ = ‘,N*i:3);
Readln
End.
HS: Bấm tổ hợp phím ctrl+F9 chạy chương trình suất ra màn hình một bảng nhân.
Nhap so N=8
Bang nhan 8
8 x 1 = 8
8 x 2 = 16
8 x 3 = 24
8 x 4 = 32
8 x 5 = 40
8 x 6 = 48
8 x 7 = 56
8 x 8 = 64
8 x 9 = 72
8 x 10 = 80
* Bài tập 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 được nhập từ bàn phím và dừng màn hình để quan sát kết quả.

Hoạt động 2: Bài tập 2 (12’)

GV: Vì bảng nhân được in ra không đẹp lắm, muốn đưa bảng nhân ra giữa thì làm thế nào?
GV: Giới thiệu lệnh
Gotoxy(a,b): có tác dụng đưa con trỏ về cột a,hàng b.
Wherex: cho biết số thứ tự của cột.
Wherey: cho biết số thứ tự của hàng.
GV: Thử với gotoxy(40,12) sẽ đưa 1 dòng ra giữa. Nhưng muốn cho bảng nhân ra giữa thì phải để trong begin .. end;
GV: Gợi ý cho - HS sửa lại chương trình trên.
GV: Chạy chương trình theo từng bước để học sinh thấy rõ.
Bước
i
i<10 ?
Writeln(N,’x’,I,’=’,N*i)

1
1
Đúng
Đi tới cột 40 3x1=3

2
2
Đúng
Đi tới cột 40 3x2=6

3
3
Đúng
Đi tới cột 40 3x3=9

4
4
Đúng
Đi tới cột 40 3x4=12

5
5
Đúng
Đi tới cột 40 3x5=15

6
6
Đúng
Đi tới cột 40 3x6=18

7
7
Đúng
Đi tới cột 40 3x7=21

8
8
Đúng
Đi tới cột 40 3x8=24

9