[r]
(1)TRƯỜNG THCS SUỐI DÂY TIN HỌC 8 ĐỀ THI HỌC KỲ II NĂM HỌC 2009 – 2010
MÔN THI : TIN 8 THỜI GIAN : 45 Phút A / MA TRẬN ĐỀ
Các cấp độ tư Nội dung
Nhận biết Thông hiểu Vận dụng
Tổng
TN TL TN TL TN TL
Câu lệnh điều kiện 2 0
.5ñ
1 0
.25ñ
3 0.75đ
Câu lệnh lặp 3 0
.75đ
1
2ñ
1
3đ 5 5.75đ Lặp với số lần chưa biết trước
2 0
.5ñ
1 0.25ñ
1
2ñ
4 2
.75đ Làm việc với dãy số
2 0.5ñ
1 0
.25ñ
3 0.75đ
Tổng 9
2.25đ 4
4.5ñ 2
3.25ñ 15
10đ B NỘI DUNG ĐỀ
I / Trắc nghiệm(3 đ)
Khoanh tròn chữ đầu câu trả lời mà em cho nhất
Câu 1: Lệnh lặp sau đúng?
A For <biến đếm>= <giá trị đầu> to <giá trị cí> <câu lệnh>; B For <biến đếm>:= <giá trị đầu> to <giá trị cí> <câu lệnh>;
C For <biến đếm>:= <giá trị cí> to <giá trị đầu> <câu lệnh>; D.For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; Câu 2: Vòng lặp while vòng lặp:
A) Chưa biết trước số lần lặp B) Biết trước số lần lặp
C.) Biết trước số lần lặp giới hạn <=100 D) Biết trước số lần lặp giới hạn >=100 Câu 3: Câu lệnh lặp while…do có dạng là:
A) While <điều kiện> do; <câu lệnh>; B) While <điều kiện> <câu lệnh> do; C) While <câu lệnh> <điều kiện>; D) While <điều kiện> <câu lệnh>;
Câu 4: Cho S i biến nguyên Khi chạy đoạn chương trình : s:=0;
for i:=1 to s := s+2; writeln(s);
Kết in lên hình s laø :
(2)TRƯỜNG THCS SUỐI DÂY TIN HỌC 8
A.11 B 55 C 15 D.13
Câu 5: Lần lượt thực đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; Giá trị t
A) t=1 B) t=2 C) t=3 D) t=6
Câu 6: Câu lệnh pascal sau hợp lệ?
A) For i:= to 10 writeln(‘A’); B) For i:=1.5 to 10.5 writeln(‘A’); C) For i= to 10 writeln(‘A’); D) For i:=100 to writeln(‘A’); Câu 7: Chọn khai báo hơp lệ
A) Var a,b: array[1 n] of real; C) Var a,b: array[1:n] of real; B) Var a,b: array[1 100] of real; D) Var a,b: array[1…n] of real; Câu 8: Chọn khai báo hơp lệ
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;
Câu 9: Để tính tổng S=1+2+3+ 4+ + … + n; em chọn đoạn lệnh: A) s:=0; i:=0;
While i<=n S:=S + 1;
B) s:=0; i:=0; While i<=n
If (I mod 2)= Then S:=S + i; C) s:=0; i:=1;
While i<=n begin
S:=S + i; I:=i+1; End;
D) s:=0; i:=0; While i<=n begin
if (i mod2)=1 Then S:=S + i; Else i:=i+1;
End;
Câu 10: Để tính tổng S=1+1/3 + 1/5 + … +1/ n; em chọn đoạn lệnh: A) for i:=1 to n
if ( i mod 2)=1 then S:=S + 1/i;
B) for i:=1 to n
if ( i mod 2)=0 then S:=S + 1/i Else S:= S + 1/;
C) for i:=1 to n
if ( i mod 2) =0 then S:=S + 1/i; D) for i:=1 to n doif ( i mod 2)=0 then S:=S + i; Câu 11: Trong chương trình pascal sau đây:
Var x : integer ; Begin
X:= ;
If (45 mod 3) =0 then x:= x +2; If x > 10 then x := x +10 ; End
X có giá trị
A) B) C) 15 D)10
Câu 12 : Trong ngơn ngữ lập trình Pascal câu lệnh sau đúng: A If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>
B If <điều kiện> then <câu lệnh 1>; else <câu lệnh 2>; C If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
(3)TRƯỜNG THCS SUỐI DÂY TIN HỌC 8 D If <điều kiện> ; then <câu lệnh 1> else <câu lệnh 2>;
II/ Tự luận (7 điểm)
Câu 13 : Các câu lệnh Pascal sau có hợp lệ khơng? Vì sao? (2 điểm)
a)for i:=100 to 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 14 : Hãy viết lại chương trình từ chương trình có lỗi sau: (2 điểm) Program bang cuu chuong;
var N,i:integer; begin
clrscr;
write('Nhap so N='); readln(N); writeln;
writeln('Bang nhan ',N); writeln;
for i:=10 to do; begin
GotoXY(5,WhereY);
writeln(N,' x ',i:2,' = ',N*i:3); end;
readln end.
Caâu 15 : Bạn tính tổng
1 1 1
1
2 3 n
n số tự nhiên nhập từ bàn phím(viết lệnh for do) III/ HƯỚNG DẪN CHẤM
A/ Trắc nghiệm(3 đ)
Câu 10 11 12
Đáp
aùn B A D
Không có
đáp án D A B A C A B C
Điểm 0,25 0,25 0,25 0,25 0,25 0,25 0,25 0,5 0,25 0,25 0,25 0,25 II/Tự luận (7 điểm)
(4)TRƯỜNG THCS SUỐI DÂY TIN HỌC 8
GV: Trần Trung Nguyên Thi HK II (2009-2010)
Câu Nội dung Điểm
13 Trừ d), tất câu lệnh không hợp lệ:
a) Giá trị đầu phải nhỏ giá trị cuối;
b) Các giá trị đầu giá trị cuối phải số nguyên;
c) Thiếu dấu hai chấm gán giá trị đầu;
d) Ta muốn lặp lại câu lệnh writeln('A') mười lần
1ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ 14 Program bang_cuu_chuong;
Uses CRT; var N,i:integer; begin
clrscr;
write('Nhap so N='); readln(N); writeln;
writeln('Bang nhan ',N); writeln;
for i:=1 to 10 do begin
GotoXY(5,WhereY);
writeln(N,' x ',i:2,' = ',N*i:3); writeln; end;
readln end.
0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ 0.25ñ 15 Program B3;
Uses CRT; Var n, i: integer; s: real; Begin Clrscr;
write('cho so tu nhien n: '); Readln(n); s:=0;
For i:=1 to n s:= s+1/i;
Writeln(' 1+ 1/2 + 1/3 + + 1/n = ', s: 14:10); Readln;
End