Giáo án Tin học 8 - Tiết 41 - Bài thực hành 5: Sử dụng lệnh lặp for…do

Ngày soạn: 13/01/2018
Ngày dạy: 15/01/2018
Tuần 22
Tiết: 41 
BÀI THỰC HÀNH 5: SỬ DỤNG LỆNH LẶP FORDO
I. MỤC TIÊU:
1. Kiến thức: Sử dụng được câu lệnh ghép.
2. Kĩ năng: 
- Viết được chương trình có sử dụng vòng lặp với số lần biết trước;
- Rèn luyện kĩ năng đọc hiểu chương trình có sử dụng vòng lặp với số lần biết trước.
3. Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn.
II. CHUẨN BỊ:
1. Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu.
2. Học sinh: Vở ghi, sách giáo khoa.
III. CÁC HOẠT ĐỘNG DẠY – HỌC: 
1. Ổn định lớp: (1’)
8A1:
8A2:
2. Kiểm tra bài cũ: 
Lồng ghép trong nội dung bài học.
3. Bài mới:
	* Hoạt động khởi động: Để củng cố lý thuyết về câu lệnh for...to...do ta vào bài thực hành.
Hoạt động của GV
Hoạt động của HS
Nội dung ghi bảng
Hoạt động 2: (25’) Nội dung bài tập 1.
+ GV: Chỉ ra câu lệnh cần thực hiện trong bài.
+ GV: Yêu cầu HS thực hiện gõ đoạn chương trình sau và thực hiện các yêu cầu:
- Tìm hiểu ý nghĩa của các câu lệnh trong chương trình, dịch chương trình và sửa lỗi, nếu có.
- Chạy chương trình với các giá trị nhập vào lần lượt bằng 1, 2,..., 10. Quan sát kết quả nhận được trên màn hình.
+ GV: Quan sát, hướng dẫn HS thực hiện trên máy.
+ GV: Yêu cầu HS thực hiện chạy chương trình với dữ liệu lần lượt là 1, 2, , 10.
+ GV: Giải thích cho HS các câu lệnh các em còn vướng mắc.
+ GV: Chỉ ra các lỗi các em thường gặp khi viết chương trình.
+ GV: Chốt nội dung bài tập 1.
+ HS: Chú ý lắng nghe và hiểu nội dung bài.
+ HS: Gõ đoạn chương trình:
Uses Crt;
Var n, i: Integer;
BEGIN
 Clrscr;
 Write(‘Nhap n = ’); Readln(n);
 Writeln;
 Writeln(‘Bang nhan ’,n);
 Writeln;
 For i:=1 To 10 Do Writeln(N, ‘ x ’, i:2, ‘ = ’, n*i);
Readln;
END.
+ HS: Tự giác thực hiện theo sự hướng dẫn của GV.
+ HS: Thực hiện chạy với các bộ dữ liệu trên, quan sát kết quả nhận được.
+ HS: Tìm hiểu các câu lệnh các em chưa thật sự nắm rõ.
+ HS: Chú ý sửa các lỗi thường mắc phải.
+ HS: Tập trung chú ý lắng nghe.
1. Bài tập 1.
Uses Crt;
Var n, i: Integer;
BEGIN
 Clrscr;
 Write(‘Nhap n = ’); Readln(n);
 Writeln;
 Writeln(‘Bang nhan ’,n);
 Writeln;
 For i:=1 To 10 Do Writeln(N,‘x’,i:2,‘= ’, n*i);
Readln;
END.
Hoạt động 2: (18’) Nội dung bài tập 2.
+ GV: Yêu cầu HS nhận xét về cách hiển thị của chương trình bài tập 1.
+ GV: Vậy để được cân đối ta cần phải làm gì?
+ GV: Cách chỉnh sửa như thế nào cho đẹp mắt và khoa học?
+ GV: Nhận xét cách thực hiện của HS đưa ra mẫu cho HS quan sát.
+ GV: Hướng dẫn HS thực hiện chỉnh sửa chương trình.
+ GV: Đưa ra yêu cầu bài 2.
+ GV: Yêu cầu HS sửa câu lệnh theo như yêu cầu.
For i := 1 to 10 do
Begin
 GotoXY(5,WhereY); writeln(N, ‘ x ’, i:2, ‘ = ’, N*i:3);
 Writeln
End;
+ GV: Cho HS quan sát chương trình đã sửa so với chương trình chưa sửa và so sánh.
+ GV: Câu lệnh GotoXY chia màn hình máy tính thành những gì?
+ GV: Đưa ra những lưu ý khi các em sử dụng câu lệnh GotoXY.
+ GV: Chỉ sử dụng được câu lệnh GotoXY, WhereX và WhereY khi khai báo gì?
+ GV: Hướng dẫn các em về câu lệnh WhereX và WhereY.
+ GV: Chức năng của câu lệnh WhereX và WhereY là gì?
+ GV: Cho HS áp dụng thực hiện giải thích câu lệnh trong bài tập.
+ HS: Hàng kết quả sát nhau nên khó đọc; Hàng kết quả không được cân đối với hàng tiêu đề.
+ HS: Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình.
+ HS: Nên sửa chương trình bằng cách chèn thêm một hàng trống giữa các hàng kết quả và đẩy các hàng này sang phải một khoảng cách nào đó.
+ HS: Quan sát mẫu sau khi sửa để nhận biết.
+ HS: Thực hiện theo các yêu cầu của GV đưa ra.
+ HS: Thực hiện yêu cầu bài 2.
+ HS: Thêm lệnh GotoXY vào chương trình.
For i := 1 to 10 do
Begin
 GotoXY(5,WhereY); writeln(N, ‘ x ’, i:2, ‘ = ’, N*i:3);
 Writeln
End;
+ HS: Quan sát hai chương trình và nhận xét về thay đổi và khác nhau của hai chương trình.
+ HS: Chia thành các cột và các hàng, được tính bắt đầu từ góc trên bên trái.
+ HS: Chú ý lắng nghe và hiểu về phần lưu ý khi sử dụng câu lệnh.
+ HS: Sau khi khai báo thư viện crt của Pascal.
+ HS: Tập trung chú ý lắng nghe, hiểu thêm về câu lệnh.
+ HS: WhereX Cho biết số thứ tự của cột và WhereY cho biết số thứ tự của hàng.
+ HS: Thực hiên theo yêu cầu của GV đưa ra.
2. Bài tập 2.
For i:= 1 To 10 Do
Begin
 GotoXY(5,Where); Writeln(n, ‘ x ’, i:2, ‘ = ’, n*i:3);
 Writeln;
End;
4. Củng cố 
	- Củng cố trong nội dung bài học. 
5. Dặn dò: (1’)
 	- Xem trước nội dung phần tiếp theo của bài.
IV. RÚT KINH NGHIỆM: 
............................................................................................................................................................................................................................................................................................................................