Tin học lớp 8. Tiết 40.

Dạy lớp: 8A; 8B; 8E. Ngày soạn: 09/01/2010.
Tiết PPCT: 39. Ngày dạy: 19/01/2010.
Bài thực hành 5: Sử dụng lệnh lặp for ... do (T2)
I. Mục tiêu:
1. Kiến thức Vận dụng kiến thức của vòng lặp for… do, câu lệnh ghép để viết chương trình, tìm hiểu câu lệnh gotoxy(), where<>, lệnh for lồng trong for
2. Kỹ năng.
Viết chương trình có sử dụng vòng lặp for … do;
Sử dụng câu lệnh ghép trong chương trình;
Rèn luyện kỹ năng đọc hiểu chương trình có sử dụng vòng lặp for ….. do.
3. Thái độ: Thái độ học tập nghiêm túc, tích cực làm các bài thực hành.
II. Phương pháp:
- chia nhóm nghiên cứu làm bài tập, vấn đáp.
III. chuẩn bị của GV, HS
1. Chuẩn bị của GV: - Giáo án, SGK, phòng máy, phần mềm pascal
2. Chuẩn bị của HS: - SGK, vở ghi, bút
IV. Tiến Trình lên lớp:
1. định lớp
2. Kiểm tra bài cũ. (kiểm tra xen trong bài thực hành)
3. Vào bài mới: . Giáo viên vào bài
4. Bài mới:
Hoạt động của thầy và trò
Nội dung ghi bảng

Hoạt động 1: Làm đẹp màn hình kết quả bằng lệnh gotoxy, where

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 chưa 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.
* Lưu ý: 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

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.
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