III. Tiến trình lên lớp: 1 Tổ chức.
đáp á n+ thang điểm và hớng dẫn chấm Câu 1 :
A= 1+2+3+..+n
ở đây n là số tự nhiên được nhập từ bàn phím. (viết bằng lệnh while .. do)
Câu 2 : Bạn h y tính tổng ã
(viết bằng lệnh for ... do)
(L u ý : Mỗi câu đợc ghi lại thành 1 File ở Mydocmens cĩ tên là LOP8A1_1.PAS Và
LOP8A1_2.PAS).
đáp án + thang điểm và h ớng dẫn chấm.Câu 1 : Câu 1 :
Làm đúng cho 5 điểm :
Câu Nội dung Điểm
1 Program B1 ; Program B1 ; Uses CRT; Var i, n: integer; tong: real; 1,5 Begin Clrscr;
write('cho so tu nhien n: '); Readln(n); tong:=0; i:=1; 1,5 while i<= n do Begin tong:= tong+ i; i: = i+1; End; 1 writeln(' Tong can tim la: ', tong:12:6);
Readln; End. 1 2 Làm đúng cho 5 điểm 1,5 Program B2; Var i: byte; s: real; Begin s:=0; 1,5
For i:=1 to 20 do s:= s+1/i; 1 Writeln(' 1+ 1/2 + 1/3 + .. . + 1/20 = ', s: 14:10);
Readln; End. 1
1. Thu bài ( HD về nhà)
- Giáo viên thu bài cuat học sinh. - Về nhà làm lại bài này vào vở,
- 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.
- Giờ sau chúng ta ơn tập các em chuẩn bị.
---o0o--- Tiết 68: ơn tập I/ Mục tiêu:
• Củng cố lại tồn bộ kiến thức đã đợc học từ bài 5 đến bài 9 và phần mềm học tập ở học kỳ 2. • Thực hiện làm các bài trắc nghiệm. Vận dụng vào để viết đợc những chơng trình đơn giản • Cĩ kỹ năng thành thạo thực hiện máy tính và viết chơng trình trên máy tính.
II/ 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
III. Tiến trình lên lớp:1. Tổ chức. 1. Tổ chức.
2. Kiểm tra .
- Kiểm tra sự chuẩn bị của học sinh . 3. Bài mới :
Hoạt động của giáo viên Hoạt động của học sinh
Giáo viên cho học sinh ơn lại lý thuyết Theo sách giáo khoa.
(Học sinh về nhà tự ơn)
Học sinh thực hiện theo yêu cầu của học ghiáo viên
Ơn bài tập vận dụng:
Khoanh troứn chửừ caựi ủửựng trửụực keỏt quaỷ ủuựng Cãu 1: Phaựt bieồu naứo sau ủãy laứ ủuựng ?
A. Caỏu truực laởp ủửụùc sửỷ dúng ủeồ chổ thũ cho maựy tớnh thửùc hieọn laởp lái moọt vaứi hoát ủoọng naứo ủoự cho ủeỏn khi moọt ủiều kieọn naứo ủoự ủửụùc thoaỷ maừn.
B. Chổ ngõn ngửừ laọp trỡnh Pascal mụựi coự caực cãu leọnh laởp ủeồ theồ hieọn caỏu truực laởp.
C. Ngõn ngửừ Pascal theồ hieọn caỏu truực laởp vụựi soỏ lần laởp cho trửụực baống cãu leọnh while…do D. Ngõn ngửừ Pascal theồ hieọn caỏu truực laởp vụựi soỏ lần laởp chửa bieỏt trửụực baống cãu leọnh For…do
Cãu 2: Leọnh laởp naứo sau ủãy laứ ủuựng?
A. For <bieỏn ủeỏm>= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; B. For <bieỏn ủeỏm>:= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; C. For <bieỏn ủeỏm>:= <giaự trũ cuõớ> to <giaự trũ ủầu> do <cãu leọnh>; D. For <bieỏn ủeỏm>: <giaự trũ ủầu> to <cãu leọnh> do <giaự trũ cuoỏi>;
A) For i:=100 to 1 do writeln(‘A’); B) For i:=1.5 to 10.5 do writeln(‘A’); C) For i= 1 to 10 do writeln(‘A’); D) For i:= 1 to 10 do writeln(‘A’);
Cãu 4: Voứng laởp while ..do laứ voứng laởp:
A) Bieỏt trửụực soỏ lần laởp B) Chửa bieỏt trửụực soỏ lần laởp
C.) Bieỏt trửụực soỏ lần laởp nhửng giụựi hán laứ <=100 D) Bieỏt trửụực soỏ lần laởp nhửng giụựi hán laứ >=100
Cãu 5: Cãu leọnh laởp while…do coự dáng ủuựng laứ:
A) While <ủiều kieọn> do; <cãu leọnh>; B) While <ủiều kieọn> <cãu leọnh> do; C) While <cãu leọnh> do <ủiều kieọn>; D) While <ủiều kieọn> do <cãu leọnh>;
Cãu 6: Cho S vaứ i laứ bieỏn nguyẽn. Khi cháy ủoán chửụng trỡnh : s:=0;
for i:=1 to 5 do s := s+i; writeln(s);
Keỏt quaỷ in lẽn maứn hỡnh laứ cuỷa s laứ :
A.11 B. 55 C. 101 D.15
Cãu 7: Trong chửụng trỡnh pascal sau ủãy: Var x : integer ; Begin X:= 3 ; If (45 mod 3) =0 then x:= x +2; If x > 10 then x := x +10 ; End.
X coự giaự trũ laứ maỏy
a) 3 b) 5 c) 15 d)10
Cãu 8: Trong chửụng trỡnh pascal sau ủãy: program hcn; var a, b :integer; s,cv :real ; begin a:= 10; b:= 5; s:= a*b ; cv:= (a +b ) * 2 ;
writeln(‘dien tich hcn la:’ , s ); writeln( ‘chu vi hcn la : ‘ , cv ) ; readln;
end.
Bieỏn s vaứ cv coự giaự trũ laứ maỏy:
a/ s = 10 ; cv = 5 ; b/ s= 30 ; cv = 50 ; c/ s = 50 ; cv = 40 ; d/ s = 50 ; cv = 30 ;
4. Củng cố:
- Giáo viên hệ thống lại tồn bộ nội dung bài học. - Yêu cầu học sinh nhắc lại bài