Hoạt động 2: 30’ -Bài tập: + Bài tập 1 -Giáo viên đưa ra nội dung bài tập, -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.. -Yêu cầu một học sinh[r]
Trang 1Tuần: 21 Ngày soạn:5/1/2010
BÀI TẬP
I Mục tiêu:
1 Kiến thức: Sử dụng các kiến thức đã học để làm một số bài tập
2 Kĩ năng: Rèn luyện kĩ năng sử dụng các câu lệnh trong Pascal
3 Thái độ: Thái độ học tập nghiêm túc, yêu thích môn học.
II Chuẩn bị:
Gv: Sách giáo khoa, máy tính điện tử
Hs: xem bài trước ở nhà
III Tiến trình bài dạy:
Hoạt động 1: 8’
-Ổn định lớp:
-Kiểm tra bài cũ:
-Viết chương trình pascal
cho bài 6 SGK (T61)
Hoạt động 2: 30’
-Bài tập:
+ Bài tập 1
-Giáo viên đưa ra nội dung
bài tập,
-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
-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
-Diễn tả lại một lần để học
sinh hiểu sâu hơn về chương
trình
-HS phân tích bài toán tìm hướng giải quyết
-Đọ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
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 smax<A then smax:=A; End;
Lop8.net
Trang 2+ 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
- Đưa ra công thức tính day
thừa:
day thừa =1*2*3*4*5*….*n
Đạ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
- 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ả
Hoạt động 3:5’
-Củng cố:
-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, rút kinh nghiệm
buổi học
Hoạt động 4:2’
-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ố tự nhiên
đầu tiên
-HS phân tích bài toán tìm hướng giải quyết
-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)
-HS: chép lại chương trình đã chạy vào
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
Lop8.net