Tiết 40

Ngày dạy: 11/ 01 / 2010

Tiết 40:
Bài tập (tiết 2)
Mục tiêu:
1. Kiến thức Củng cố kiến thức vòng lặp với số lần biết trước và câu lệnh ghép
2. Kỹ năng: Vận dụng vòng lặp for …….to…….do và câu lệnh ghép viết một số bài toán đơn giản.
3. Thái độ Thái độ học tập nghiêm túc, tích cực làm các dạng bài tập ứng dụng.
Chuẩn bị:
- Sách giáo khoa, giáo án, tài liệu tin học có liên quan.
- Đọc tài liệu ở nhà trước khi
Tiến trình lên lớp:
Kiểm tra bài cũ
Kiểm tra sự chuẩn bị của học sinh .
? Một em lên bảng viết chương trình pascal cho bài 6 SGK (T61).
Bài mới:
Hoạt động của GV và hs
Nội dung ghi bảNG

Hoạt động 1:Bài tập 1
Giáo viên đưa ra nội dung bài tập,
HS phân tích bài toán tìm hướng giải quyết.
Gv: hướng dẫn học sinh cách làm và viết chương trình lên bảng và yêu cầu học sinh đọc hiểu.
HS: đọc lại chương trình giáo viên đã viết trên bảng và tìm hiểu từng câu lệnh
GV: yêu cầu một học sinh đứng tại vị trí diễn tả tuần tự ý nghĩa của chương trình thông qua diễn tả công việc của từng lệnh trong chương trình.
GV: diễn tả lại một lần để học sinh hiểu sâu hơn về chương trình

Hoạt động 1:Bài tập 2
Giáo viên đưa ra nội dung bài tập,
HS phân tích bài toán tìm hướng giải quyết.
GV: Đưa ra công thức tính day thừa:
day thừa = 1*2*3*4*5*….*n
HS: dựa vào bài tập 1 viết chương trình cho bài toán. (viết theo nhóm).
Đại diện của nhóm đứng lên bảng trình bày kết quả. Các nhóm khác nhận xét, rút kinh nghiệm.
GV: Kết luận kết quả cuối cùng.
Yêu cầu một học sinh lên máy chính gõ chương trình vào máy, cả lớp sửa lỗi nếu có, cho chương trình chạy thử, học sinh quan sát kết quả.
HS: chép lại chương trình đã chạy vào.
Bài tập 1: Nhập vào n số nguyên từ bàn phím, tìm số lớn nhất trong dãy số vừa nhập
Program tim_max;
Uses crt;
Var i, n, smax, A : integer;
Begin
Clrscr;
Writeln(‘nhap vao n’); readln(n);
Smax:=-23768;
For i:= 1 to n do
Begin
Writeln(‘nhap vao so thu ’,i); readln(A);
If smaxEnd;
Writeln(‘so lon nhat la’,A); readln
End.

Bài tập 2: Viết chương trình tính day thừa của n số tự nhiên đầu tiên.
Program tinh_day_thua;
Uses crt;
Var i, n : integer; kq: longint;
Begin
Clrscr;
Writeln(‘nhap vao n’); readln(n);
Kq:=1;
For i:= 1 to n do
Kq:=kq*i;
Writeln(‘ket qua la’,kq); readln
End.


Tổng kết đánh giá (4’) :
Kiểm tra đánh giá
Giáo viên hệ thống lại toàn bộ nội dung bài học.
Nhấn mạnh ý nghĩa và công dụng, cách sử dụng vòng lặp for … do
Nhận xét, rut kinh nghiệm buổi học.
Hướng dẫn về nhà:
Học bài theo sách giáo khoa và vở ghi, Ôn lại các kiến thức chính đã học và luyện viết, làm đi làm lại nhiều lần.
Học kĩ lí thuyết, viết chương trình tính tông 100 số tự nhiên, N số