Đề + Đáp án thi HKII - Tin 8

Phòng GD&ĐT đề thi kiểm tra học kì II
Trường THCS Môn: Tin học 8
Năm học: 2011-2012
(Thời gian làm bài 90 phút không kể giao đề)

đề bài phần lý thuyết (45 phút)
I. Trắc nghiệm: (2,5 )
Khoanh tròn chữ cái đứng trước kết quả đúng
Câu 1. Các câu lệnh Pascal sau đây lệnh nào được viết đúng?
a) if x:=7 then a=b; b) if x>5; then a:=b;
c) if x>5 then; a:=b; c) if x>5 then a:=b;
Câu 2: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 8 do s := s+2*i;
writeln(s);
Kết quả in lên màn hình là :
a. s = 72 b. s = 100 c. s = 101 d. s = 55
Câu 3: Với các câu lệnh sau chương trình thực hiện bao nhiêu vòng lặp
S:=0; n:=0;
while S<=10 do
begin n:=n+1; S:=S+n end;
a. 6 lần b. 5 lần c. 4 lần d. 3 lần
Câu 4: Các khai báo mảng sau đây khai báo nào đúng?
a. var X: Array[10,13] Of Integer;
b. var X: Array[3.4..4.8] Of Integer;
c. var X: Array[10..1] Of Integer;
d. var X: Array[4..10] Of Real;
Câu 5. Khai báo mảng a có 11 phần tử từ 5 đến 15 là các số nguyên thì ta khai báo như sau:
a) a:Array [1..11] of integer; b) a:Array [5...15] of integer;
c) a:Array [5..15] of integer; d) a:Array [11] of integer;
II. Tự luận: (7,5 điểm)
Câu 1 (1 điểm): Sau mỗi câu lệnh sau đây
if (15 mod 3)=0 then X:=X+2;
if X>8 then X:=X+2;
giá trị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 7?
Câu 2 (6,5 điểm): Sử dụng biến mảng viết chương trình nhập vào N số nguyên từ bàn phím. Sau đó in ra màn hình giá trị nhỏ nhất của dãy số đó.

đề bài phần THựC HàNH (45 phút)
Nhập vào máy tính chương trình của câu 2, dịch, sửa lỗi và chạy thử chương trình để kiểm tra kết quả.


Phòng GD&ĐT hƯớng dẫn chấm điểm
Trường THCS Môn: Tin học 8
HKII - Năm học: 2011-2012

phần lý thuyết
I. Trắc nghiệm: (2,5 )
Mỗi ý đúng cho 0,5 điểm
1. D 2.A 3. B 4.D 5.C
II. Tự luận: (7,5 điểm)
Câu 1: (1 đ)
Sau mỗi câu lệnh:
X:=9; b) X:=7;
Câu 2: (6.5 đ)
program P_Min;
uses crt;
Var i, n, Min: integer;
A: array[1..100] of integer;
Begin
clrscr;
write(`Hay nhap do dai cua day so, N = `); readln(n);
writeln(`Nhap cac phan tu cua day so:`);
For i:=1 to n do
Begin
write(`a[`,i,`]=`); readln(a[i]);
End;
Min:=a[1];
For i:=2 to n do if Min>a[i] then Min:=a[i];
writeln(`So nho nhat la Min = `,Min);
Readln
End.

phần THựC HàNH
-