IV. Tiến Trình lên lớp:
5. Củng cố (2 )’ Nhận xét, rút kinh nghiệm tiết thực hành Tiết
Tiết 2
Hoạt động của thầy và trị Kiến thức cần đạt
Hoạt động 1: Làm đẹp màn hình kết quả bằng lệnh gotoxy, where (20’) - Giáo viên cho chạy kết quả của bài
thực hành Bang_cuu_chuong Yêu cầu học sinh quan sát kết quả và nhận xét khoảng cách giữa các hàng, cột. - HS: quan sát và đa ra nhận xét. - ? Cĩ cách nào để khoảng cách giữa
các hàng và các cột tăng lên? - GV: Giới thiệu câu lệnh gotoxy và
where.
- GV: yêu cầu học sinh mở chơng trình Bang_cuu_chơng và sửa lại chơng trình theo bài trên màn hình của giáo viên.
HS: gõ chơng trình vào máy, sửa lỗi chính tả, chạy chơng trình, quan sát kết quả.
GV: yêu cầu học sinh quan sát kết quả và so sánh với kết quả của chơng trinh khi cha dùng lệnh gotoxy(5, wherey)
- HS: quan sát và nhận xét.
Bài 2 sgk (T63)
a) Giới thiệu lệnh gotoxy(), wherex - Gotoxy(a,b)
Trong đĩ: a là chỉ số cột, b là chỉ số hàng - ý nghĩa của câu lệnh là đ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.
* Lu ý: Phải khai báo th viện crt trớc khi
sử dụng hai lệnh trên
a) Chỉnh sửa chơng trình nh sau: Program Bang_cuu_chuong;
Uses crt;
Var i, n: integer; Begin
Clrscr;
Writeln(‘Nhap vao so n’); readln(n); Writeln(‘Bang nha’,n); Writeln; For i:=1 to 10 do begin gotoxy(5, wherey); Writeln(n,’x’,i:2,’=’,n*i:3); Readln; End. Hoạt động 2: sử dụng lệnh For lồng trong for (28’)
GV: giới thiệu cấu trúc lệnh for lồng, hớng dẫn học sinh cách sử dụng lệnh.
Bài 3 SGK (T64).
HS: ghi chép cấu trúc và lĩnh hội GV: đa nội dung chơng trình bài thực hành 3 lên màn hình, yêu cầu học sinh đọc chơng trình, tìm hiểu hoạt động của chơng trình.
HS: hoạt động theo nhĩm, tìm hiểu hoạt động của chơng trinh, đại diện của nhĩm báo cáo kết quả thảo luận. GV: cho chạy chơng trình.
HS : quan sát kết quả trên màn hình.
- For <biến đếm1:= giá trị đầu> to <giá trịcuối> do cuối> do
For <biến đếm 2:=giá trị đầu> to <giátrị cuố> do
< câu lệnh>;
Program Tao_bang;
Uses crt;
Var i,j: byte; Begin Clrscr; For i:=1 to 9 do Begin For j:=0 to 9 do Writeln(10*i+j:4); Writeln; End; Readln; End. Hoạt động 3: kết thúc (2’) - HS: tắt chơng trình ứng dụng, tắt máy, tắt nguồn.