Giáo án Tin học Lớp 8 - Tiết 41: Bài thực hành 5: Sử dụng lệnh lặp For...Do - Năm học 2013-2014
HOẠT ĐỘNG CỦA GV VÀ HS
- 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ả.
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.
- 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 cho đúng theo chương trình đã chạy.
Tuần 22 Bài: Bài thực hành 5 Tiết: 41 Ngày dạy:14/01/2013 Sử dụng lệnh lặp FOR do 1. Mục tiờu: 1.1 Kiến thức Hoùc sinh bieỏt: - 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. Học sinh hieồu: - Sử dụng được câu lệnh ghép. 1.2 Kĩ năng HS thành thạo: Viết được chương trình có sử dụng vòng lặp for do. Học sinh thực hiện thành thạo: Rèn luyện kỹ năng đọc hiểu chương trình có sử dụng vòng lặp for .. do. 1.3 Thỏi độ - thoi quen: Thỏi độ nghiờm tỳc cẩn thận. - tớnh cỏch: tích cực làm các bài tập thực hành. 2. Nội dung học tập - Mục đớch, yờn cầu. - Nội dung. 3. Chuẩn bị: 3.1 Gv: Tài liệu tin lớp 8 3.2 HS: SGK tin 8, vở ghi 4. Tổ chức cỏc hoạt động học tập 4.1. ổn định tổ chức và kiểm diện - ổn định lớp. - kiểm diện học sinh. 4.2. kiểm tra miệng: - Hãy nêu cấu trúc câu lệnh lặp ? Cho ví dụ minh hoạ? 4.3. Tiến trỡnh bài học Hoạt động 1: Viết chương trình cho các bài tập. Mục tiờu: kiến thức: HS biết viết cỏc c/t bài tập. kĩ năng: rốn luyện kĩ năng viết cõu lệnh. Phương phỏp, phương tiện dạy học phương phỏp: Đàm thoại – vấn đỏp phương tiện: mỏy tớnh Cỏc bước của hoạt động: HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG BÀI HỌC - 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ả. 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. - 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 cho đúng theo chương trình đã chạy. Hoạt động 2: Bảng cửu chương. Mục tiờu: kiến thức: HS biết viết cỏc c/t bài tập. kĩ năng: rốn luyện kĩ năng viết cõu lệnh. Phương phỏp, phương tiện dạy học + phương phỏp: Đàm thoại – vấn đỏp + phương tiện: mỏy tớnh Cỏc bước của hoạt độ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 - 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ả. 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 Writeln(n,’x’,i:2,’=’,n*i:3); Readln; End. 5. Tổng kết và hướng dẫn học tập 5.1 Tổng kết. 5.1 Hướng dẫn học tập - Đối với bài học ở tiết học này: + Hiểu được cõu lệnh lặp. - Đối với bài học ở tiết học sau: + Hoùc baứi + Xem laùi phaàn coứn laùi cuỷa baứi. 6. phụ lục.
File đính kèm:
- t 41.doc