- Cú kỹ năng tạo hỡnh nhờ vào cỏc lệnh và điều khiển được cỏc hỡnh học khụng gian đơn giản mà học sinh vẽ.
3. Nội dung đề
ĐỀ SỐ 01 (8a) Câu 1: Lập trình tính tổng: (5đ)
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 (5đ)
(viết bằng lệnh for ... do)
(L u ý : Mỗi câu đợc ghi lại thành 1 File ở Mydocments cĩ tên là LOP8A.PAS Và
LOP8B.PAS).
Đỏp ỏn – Biểu điểm 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ểmProgram B2; 1,5
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
ĐỀ SỐ 02 (8b) Cõu 3: (5 đ)
Viết chương trỡnh tớnh tổng sau: S=1+ 2 + 3 +...+ n sao cho tổng S nhỏ nhất lớn hơn 550 (với n là số nguyờn được nhập vào từ bàn phớm).
Cõu 4 : (5 đ)
a)Viết chương trỡnh nhập vào từ bàn phớm hai số nguyờn a, b. b) so sỏnh và in ra màn hỡnh giỏ trị số lớn hơn.
Đỏp ỏn – Biểu điểm
Câu 1: Viết đúng chơng trình (5 đ)
Program cau_2; var S,n: integer; 1 đ begin S:=0; n:=1; 1 đ while S<=550 do begin n:=n+1; S:=S+n end; 1 đ
writeln('So n nho nhat de tong > 550 la ',n);
writeln('Tong dau tien > 550 la ',S); 1 đ
Readln;
end. 1 đ
Cõu 4: Viết đúng chơng trình (5 đ)
Pr ogram Cau_4; uses crt;
var a, b: integer; 1 đ
Begin
Write(‘ nhap so nguyen a:’); Readln(a) ; 1 đ
Write(‘ nhap so nguyen b:’); Readln(b) ; 1 đ
if a>b then write(‘a’)
else write(‘b’) 1 đ
else write(‘ khong co gia tri nao lon hon’); 1 đ
readln; End.
Ngày soạn: 06/05/2011 Ngày giảng:
Giảng lớp 8A: 09/05/2011 Giảng lớp 8B: 11/05/2011 Tiết 68 ễN TẬP HỌC Kè II 1. Mục tiờu a. Về kiến thức
• 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
b.Về kĩ năng
- Củng cố cỏc kĩ năng đọc hiểu và chỉnh sửa chương trỡnh.
c. Về thỏi độ
- Tớch cực tham gia cỏc hoạt động học tập. - Cú ý thức bảo vệ tài sản.
2. Chuẩn bị của GV và HS
a. Chuẩn bị của GV
- SGK, SGV, SBT, tài liệu, Giỏo ỏn
- Đồ dựng dạy học như mỏy tớnh, projector, phũng mỏy thực hành...
b. Chuẩn bị của HS
- Đọc trước bài học
- Học thuộc kiến thức lý thuyết
3.Tiến trỡnh dạy học
a. Kiểm tra bài cũ :
Kết hợp trong bài học
Đặt vấn đề
Trong bài học hụm nay chỳng ta sẽ đi làm 1 số bài tập thực hành về: Làm việc với
dĩy số.
b. Giảng nội dung bài mới (40’)
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 giá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>;
Cãu 3: Cãu leọnh pascal naứo sau ủãy laứ hụùp leọ?
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 ;
c) Củng cố, luyện tập: 3’
- 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