và in ra màn hỡnh kết quả đọc được. Chương trỡnh: uses crt; var s:string; n:integer; f:text; Begin assign(f,'D:\bai.txt'); reset(f);
while not eof(f) do begin readln(f,s); writeln(s); end; close(f); readln
* Lưu ý: Readln để đọc từng dũng với kiểu ký tự.
IV. Củng cố bàiV. Bài tập về nhà V. Bài tập về nhà
- ễn cỏc bài 11,12,13,14,15,16 giờ sau ụn tập chuẩn bị KT 1 tiết.
Ngày soạn: Tuần:
Ngày giảng: Tiết: 39
ễN TẬPI. Mục đớch, yờu cầu I. Mục đớch, yờu cầu
1.Về kiến thức:
- Nắm được cỏc kiến thức bài 11,12,13,14,15,16.
2. Kĩ năng:
- Viết được chương trỡnh đơn giản với một NNLT đó chọn.
3. Thỏi độ:
- Tạo sự ham muốn giải cỏc bài tập băng lập trỡnh.
II. Phương phỏp
- Kết hợp phương phỏp dạy học, chủ yếu là thuyết trỡnh và vấn đỏp, lấy vớ dụ minh hoạ, mở rộng và củng cố vấn đề bằng kiểm tra đỏnh giỏ.
II.Chuẩn bị của giỏo viờn và học sinh
1. Chuẩn bị của giỏo viờn: Soạn giỏo ỏn, SGK, tài liệu tham khảo.
2. Chuẩn bị của học sinh: Làm bài tập được giao, vở ghi, SGK.
III. Tiến trỡn lờn lớp, nội dung bài giảng
1. Ổn định lớp
- Ổn định lớp.
- Yờu cầu lớp trưởng bỏo cỏo sĩ số.
2. Kiểm tra bài cũ
- Kiểm tra trong quỏ trỡnh làm bài tập.
3. Nội dung bài giảng
Hoạt động của thầy và trũ Nội dung
Hoạt động 1: ễn lại lý thuyết bài 11,12,13,14,15,16. Hoạt động 2: Đưa ra bài 1 và hướng dẫn
GV: đưa ra bài tập.
Tớnh xn (Với n là số nguyờn khụng õm)
? Sử dụng kiểu dữ liệu nào và cỏch khai
bỏo?
HS: x, n là số nguyờn. Var x,n: integer;
GV: ?Cỏch tớnh luỹ thừa.
HS: Nhõn x với x đến n lần.
GV: Dựng cấu trỳc lệnh nào trong bài?
HS: Lặp tiền.
GV: yờu cầu hs lờn viết CT.
HS: Lờn bảng viết CT.
GV: Nhận xột, chỉnh sửa bài làm của hs
Bài 1 uses crt; var i,n,x,lt:integer; Begin clrscr; write('Nhap x=');readln(x); write('Nhap n=');readln(n); lt:=1; for i:=1 to n do lt:=lt*x; writeln('X^n=',lt); Readln; End.
IV. Củng cố bàiV. Bài tập về nhà V. Bài tập về nhà
- Làm lại bài tập hụm nay và làm thờm bài tập SBT. - Chuẩn bị trước nội dung bài 14 và 15.
Ngày soạn: Tuần:
Ngày giảng: Tiết: 40
KIỂM TRA 1 TIẾTI. Mục tiờu đỏnh giỏ I. Mục tiờu đỏnh giỏ