De kiem tra viet HK II_Tin 8

Trường THCS Phan Bội Châu
Tiết PPCT: 70
ĐỀ KIỂM TRA HỌC KỲ II MÔN TIN HỌC
Lớp: 8
Thời gian làm bài: 45’

I. Phần trắc nghiệm: Khoanh tròn vào các chữ cái A, B, C, D trước đáp án đúng.
Câu 1. Trong ngôn ngữ lập trình Pascal muốn chạy chương trình ta nhấn tổ hớp phím
A. CTRL+F9 B. ALT +F9 C. SHIFT+F9 D. CTRL+F10
Câu 2: Em hiểu câu lệnh lặp theo nghĩa nào dưới đây?
A. Các câu lệnh được viết lặp đi lặp lai nhiều lần. C. Vì câu lệnh đã có tên là lệnh lặp
B. Một lệnh thay cho nhiều lệnh. D. Cả a, b, c đều sai.
Câu 3. Cách viết câu lệnh lặp với số lần biết trước như sau:
A. For = to do ;
B. For : = to do ;
C. For := to do ;
D. For = to do
Câu 4. Đoạn chương trình 1, sau khi thực hiện xong kết quả là:
A. 24 B. 6 C. 2 D. 0
Câu 5. Câu lệnh viết đúng cú pháp là:
A. While <điều kiện> to ;
B. While <điều kiện>; do ;
C. While <điều kiện> to do ;
D. While <điều kiện> do ;
Câu 6. Đoạn chương trình 2, sau khi thực hiện xong kết
quả của biến “tong” có giá trị bằng bao nhiêu?
A. 6 B. 10 C. 15 D. 21
Câu 7. Để khai báo biến mảng a gồm 10 phần tử,
mỗi phần tử có kiểu dữ liệu là real ta khai báo:
A. var a: array[10] of real; B. var a: array[1..10] of real;
C. var a: array[1:10]: of real; D. var a: array[1;10] of real;
Câu 8. Cho đoạn chương trình 3:
Khi thực hiện chương trình câu “ xin chao” được viết ra màn hình
mấy lần?
A. 9 B. 10 C. 11 D. Vòng lặp vô hạn.
II. Phần tự luận
Câu 1: (2 điểm)
Cho đoạn chương trình sau đây:
Max:=0;
For i:=1 to 10 do
If Max < a[i] then Max:= a[i];
Writeln(‘So lon nhat la ’, Max);
a) Đoạn chương trình trên thực hiện công việc gì?


b) Viết lệnh khai báo các biến dùng trong đoạn chương trình.




Câu 2. Viết chương trình nhập n số nguyên từ bàn phím. In ra màn hình giá trị trung bình cộng của dãy số vừa nhập. Biết n là một giá trị nguyên được nhập từ bàn phím?

ĐÁP ÁN – THANG ĐIỂM
Đáp án
Thang điểm

I. Phần trắc nghiệm:
Câu
1
2
3
4
5
6
7
8

Đáp án
A
B
C
D
D
C
B
A


4 điểm

II. Phần tự luận:
Câu 1:
a) Đoạn chương trình thực hiện công việc tìm giá trị lớn nhất trong dãy 10 số.
b) Var a: array[1..10] of integer;
Max, i: integer;
Lưu ý: Nếu mảng a là kiểu số thực thì Max cũng phải kiểu số thực.
Mảng a có thể nhiêu hơn 10 phần tử.
Câu 2:
Chương trình có thể được viết như sau:
Program tbc;
Var a: array[1..100] of integer;
i, n, tong: integer;
tbc: real;
Begin
Write(‘Nhap vao so phan tu cua mang n= ’); readln(n);
Write(‘Nhap so nguyen:’);
For i:=1 to n do
Begin
write(‘a[‘,i,’]:’);
readln(a[i]);
end;
Tong:=0;
For i:=1 to n