III. Tiến trình lên lớp:
a. phần trắc nghiệm: Khoanh trịn đúng mỗi câu: 0,5 điểm
Câu 1 2 3 4 5 6
Đáp án A B C A B D
PHẦN II: Tệẽ LUẬN.
Cãu 4: Chón khai baựo hụp leọ a) Const n=5;
Var a,b: array[1..n] of real;
c) Var n: real;
Var a,b: array[1:n] of real; b) Var a,b: array[100..1] of real; d) Var a,b: array[1...10] of real;
Lần lửụùt ủiền caực giaự trũ khi thửùc hieọn ủoán leọnh bẽn
i 0 1 2 3 4 5
i mod 2 S
Cãu 1:ẹiền ủuựng moĩi coọt: 0,5 ủieồm Cãu 2: (4 ủieồm) Program cau2; var i,n:integer; s: real; begin write(‘nhap n:’); readln(n); s:=0; i:=1; while i<=n do begin s:=s+1/i; i:=i +1; end; writeln(‘S = 1 + 1/2 + 1/3 + ... + 1/n = ‘,s:4:2); readln; end. i 0 1 2 3 4 5 i mod 2 0 1 0 1 0 1 S 0 1 0 4 4 9
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.
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?
E. For <bieỏn ủeỏm>= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; F. For <bieỏn ủeỏm>:= <giaự trũ ủầu> to <giaự trũ cuõớ> do <cãu leọnh>; G. For <bieỏn ủeỏm>:= <giaự trũ cuõớ> to <giaự trũ ủầu> do <cãu leọnh>; H. 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( ‘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