Đề thi 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ườ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