ĐỀ THI HỌC KÌ II lớp 8 có ĐÁP ÁN

Trường THCS Vân Hà
Lớp: 8
Họ và tên: ……………………………

KIỂM TRA HỌC KÌ II
NĂM HỌC 2014-2015
MÔN: TIN HỌC 8
Thời gian: 45 phút
TRẮC NGHIỆM: (4đ)
Câu 1: Thoát phần mềm luyện gõ phím nhanh nhấn thổ hợp phím:
A. Alt+F5 B. Alt+F6 C. Alt+F4 D. Ctrl+F4
Câu 2: Cho đoạn chương trình: J:= 0;
For i:= 3 to 6 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 18 B. 22 C. 15 D. 21.
Câu 3: Hãy chọn câu đúng trong các câu sau đây:
A. X:=10; while X=10 do X:=X+5;
B. S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;
C. X:=10; while X:=10; do X:=X+5;
D. X:=10; while X=10 do X=X+5;
Câu 4: Khi thực hiện đoạn chương trình sau: n:=100; T:=10;
While T>20 do begin T:=T – 10; n:=n+5; end;
Hãy cho biết giá trị của biến n bằng bao nhiêu?
A. 10 B. 100 C. 16 D. 15
Câu 5: Khi thực hiện đoạn chương trình sau: n:=0; s:=10;
While s<20 do begin n:=n+5; s:=s +n end;
Hãy cho biết giá trị của biến n bằng bao nhiêu?
A. 25 B. 50 C. 15 D. 10
Câu 6: Các khai báo biến mảng sau đây trong pascal, khai báo nào đúng:
A. Var X:array{12..15} of integer; B. Var X:array[12,15] of integer;
C. Var X:array(12,15) of integer; D. Var X:array[12..15] of integer;
Câu 7: Trong câu lệnh lặp: For i := 4 to 10 do begin j:= j + 2; write( j ); end;
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?
A. 5 lần B. 7 lần C. 10 lần D. 6 lần
Câu 8: Cấu trúc nào được dùng để viết câu lệnh lặp với số lần chưa biết trước?
A. While ….do …. B. If …..then ….else….
C. If … Then…. D. For ... downto …..do….

TỰ LUẬN (6đ)

Câu 9 : Viết cú pháp câu lệnh lặp với số lần biết trước. Nêu hoạt động của câu lệnh.

Câu 10 : Viết chương trình nhập vào 3 số a, b, c và kiểm tra xem 3 số đó có phải là 3 cạnh của một tam giác hay không.
KIỂM TRA CUỐI HỌC KÌ II
NĂM HỌC 2014-2015
MÔN: TIN HỌC 8

ĐÁP ÁN VÀ THANG ĐIỂM
Câu
Đáp án
Điểm

TRẮC NGHIỆM: (4đ)

1
2
3
4
5
6
7
8

C
A
A
B
D
D
B
A

TỰ LUẬN: (6đ)

9
Cú pháp: For := to do ;
Cách hoạt động: câu lệnh được thực hiện khi biến đếm chạy từ giá trị đầu đến giá trị cuối.
2.0

10
Program bai_10;
Var a , b , c : Real ;
BEGIN
Writeln (` Nhap do dai 3 canh cua tam giac : `) ;
Write (` a = `) ; Readln ( a ) ;
Write (` b = `) ; Readln ( b ) ;
Write (` c = `) ; Readln ( c ) ;
If ( a + b > c ) and ( b + c > a ) and ( c + a > b ) and ( a > 0 ) and ( b > 0 ) and ( c > 0 ) Then
Writeln (` Thoa man : Day la 3 canh cua mot tam giac `)
Else Writeln (` Khong thoa man ! `) ;
Readln ;
END .
4.0