GV: - Giáo án, SGK, phòng máy, phần mềm pascal HS: - SGK, vở ghi, bút
III. Tiến Trình dạy học : 5. ổn định tổ chức :
Ngày dạy Lớp Tiết HS vắng Nhận xét hoạt động dạy học
20/01/2009 8A 5
22/01/2009 8B 4
07/02/2009 8C 2
Giáo án Tin Học 8
21/01/2009 8D 3
20/01/2009 8E 3
2. Kiểm tra bài cũ:
Hãy nêu cấu trúc câu lệnh lặp ? Cho ví dụ minh hoạ?
3. Bài mới: Chúng ta đã nghiên cứu lý thuyết về vòng lặp for … do. để biết vòng lặp chạy nh thế nào thì hôm nay chúng ta cùng nhau đi vào tiết thực hành. Giáo viên ghi tên bài học lên bảng.
Hoạt động của thầy và trò Nội dung ghi bảng Hoạt động 1: Viết chơng trình cho các bài tập đã cho về nhà.
- GV: yêu cầu mỗi dãy gõ một bài vào máy (10’)
- HS: gõ chơng trình, chạy thử chơng trình, và báo cáo kết quả.
- GV: hỗ trợ học sinh trong quá trình thực hành.
- Sau khi kết quả chạy chơng trình đã đúng, gv yêu cầu học sinh chữa bài của mình đã làm ở nhà cho đúng theo ch- ơng trình đã chạy.
Bài 1: Tính tổng của n số tự nhiên đầu tiên
Program tinh_tong;
Uses crt;
Var i, n: integer; tong: longin; Begin
Clrscr; Tong:=0;
Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n do
Tong: = Tong+i;
Writeln(‘Tong của’, n,’so tu nhien dautien la’,tong);
Readln;
End.
2. Viết chơng trình tìm xem có bao nhiêu số dơng trong n số nhập vào từ bàn phím
Program tinh_so_cac_so_duong;
Uses crt;
Var i,A, dem, n: integer; Begin
Clrscr; Dem:=0;
Writeln(‘Nhap vao so n’); readln(n); For i:=1 to n do
begin
writeln(‘nhap vao so thu’,i); readln(A); if A>0 then dem:=dem+1;
end;
Writeln(‘So cac so duong la’,dem); Readln;
End.
Hoạt động 2: Bảng cửu chơng.
- GV: Đa ra nội dung của bài toán. - HS: Nghiên cứu bài toán, tìm input
và output.
- GV: Đa nội dung chơng trình lên màn hình, yêu cầu học sinh đọc hiểu chơng trình.
- HS: đọc, phân tích câu lệnh tìm hiểu hoạt động của chơng trình. - GV: yêu cầu một học sinh đứng tại
vị trí trình bày hoạt động của chơng trình, các nhóm khác cùng tham gia phân tích.
- HS: tham gia hoạt động của giáo viên
Bài 2: Viết chơng trình in ra màn hình
bảng nhân của một số từ 1 đến 9, và dừng màn hình để có thể quan sát kết quả. Program Bang_cuu_chuong; Uses crt; Var i, n: integer; Begin Clrscr;
Writeln(‘Nhap vao so n’); readln(n); Writeln(‘Bang nha’,n);
Writeln;
For i:=1 to 10 do
Giáo án Tin Học 8
- GV: yêu cầu học sinh lập bảng hoạt động của chơng trình theo mẫu: Giả sử N=2:
Bớc i i<=10 Writeln(n,’.’,i,’=’,n*i)
1 1 đúng 2.1=2
- HS: các nhóm lập bảng và đại diện nhóm báo cáo kết quả.
- GV: nhận xét.
- GV: cho chơng trình chạy trên máy, yêu cầu học sinh quan sát kết quả.
Writeln(n,’x’,i:2,’=’,n*i:3); Readln;
End.
Hoạt động 3: Củng cố và HD học ở nhà
-Nhận xét, rút kinh nghiệm tiết thực hành - Về nhà xem trớc bài thực hành 2 SGK (T63) viết chơng trình in ra màn hình bảng cửu chơng từ 2 đến 9.
Ngày 01 tháng 02 năm 2009
Tiết: 40
Bài thực hành 5: Sử dụng lệnh lặp for …..do
I. Mục tiêu:Qua bài học này HS cần đạt đợc :
- Vận dụng kiến thức của vòng lặp for… do, câu lệnh ghép để viết chơng trình, tìm hiểu
câu lệnh gotoxy(), where<>, lệnh for lồng trong for
- Viết chơng trình có sử dụng vòng lặp for … do;
Sử dụng câu lệnh ghép trong chơng trình;
Rèn luyện kỹ năng đọc hiểu chơng trình có sử dụng vòng lặp for ….. do. - Thái độ học tập nghiêm túc, tích cực làm các bài thực hành.