I. MỤC TIÊU:
1. Kiến thức:
- Biết viết chương trình Pascal có câu lệnh lặp For..do.
2. Kĩ năng:
- Rèn luyện kĩ năng đọc hiểu chương trình
3. Thái độ:
- Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc.
4. Năng lực hướng tới:
- Hình thành năng lực sử dụng công nghệ thông tinvà truyền thông, năng lực giải quyết vấn đề dựa trên tin học, năng lực tự học.
II. CHUẨN BỊ:
+ Giáo viên: Giáo án,SGK, tài liệu tham khảo, phòng máy.
+ Họcsinh: Vở ghi và sách giáo khoa, chuẩn bị bài ở nhà.
III.HOẠT ĐỘNG DẠY - HỌC:
1. Ổn định lớp
2. Kiểm tra bài cũ: trong khi thực hành.
3. Bài mới:
|
Hoạt động của GV |
Hoạt động của HS |
Nội dung |
|
+ Hoạt động 1: Bài tập 2 - Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình. ? Kết quả chủ chương trình nhận được trong bài 1 có những nhược điểm nào. ? Nên sửa lại bằng cách nào. - Chỉnh sửa câu lệnh lặp của chương trình sau: for i:=1 to 10 do begin GotoXY(5,WhereY); writeln(N,' x ',i:2,' = ',N*i:3); writeln ; end; - Dịch và chạy chương trình với các giá trị gõ vào từ bàn phím. Quan sát kết quả nhận được trên màn hình. + Hoạt động 2: Tìm hiểu chương trình sau: Program tao_bang; Uses crt; Var i,j: byte; Begin Clrscr; For i:= 0 to 9 do Begin For j:= 0 to 9 do Write(10*i + j:4); Writeln; End; Readln; End. - Gõ và chạy chương trình, quan sát kết quả trên màn hình. |
+ Có hai nhược điểm sau đây: - Các hàng kết quả quá sát nhau nên khó đọc. - Các hàng kết quả không được cân đối với hàng tiêu đề. + Nên sửa lại 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 đó. + Học sinh chỉnh sửa theo sự hướng dẫn của giáo viên. + Học sinh thực hiện theo yêu cầu của giáo viên. + Tìm hiểu chương trinh theo sự hướng dẫn của giáo viên. + Học sinh độc lập gõ chương trình. + Nhấn F9 để dịch và sửa lỗi chương trình + Nhấn Ctrl + F9 để chạy chương trình và kiểm tra kết quả. |
1. Chỉnh sửa chương trình để làm đẹp kết quả trên màn hình. 1.Tìm hiểu chương trình sau: * Bài tập 3/62/sgk (cấu trúc for ...do lòng nhau). Program tao_bang; Uses crt; Var i,j: byte; Begin Clrscr; For i:= 0 to 9 do Begin For j:= 0 to 9 do Write(10*i + j:4); Writeln; End; Readln; End. |
IV. CỦNG CỐ (5 phút)
- GV chiếu bài làm của một số nhóm lên màn hình và gọi đại diện các nhóm khác nhận xét.
- Giáo viên nhận xét, cho điểm và đánh giá tiết thực hành.
V. HƯỚNG DẪN VỀ NHÀ: (2 phút)
-Xem lại nội dung đã thực hành và thực hành lại cho thành thạo.
- Viết thuật toán của bài toán sau để chuẩn bị cho tiết sau thực hành tiếp: viết ra bảng cửu chương 2.
VI. RÚT KINH NGHIỆM:
.........................................................................................................................................
.........................................................................................................................................
.........................................................................................................................................
