In ra màn hình giá trị trung bình cộng của dãy số vừa nhập... Đáp án Thang điểm I..[r]
(1)TRƯỜNG THCS BẮC KẠN
Họ tên:………
Lớp: 8….
KIỂM TRA CHẤT LƯỢNG HỌC KỲ II
MÔN:Tin học 8
Năm học 2011 - 2012
Thời gian làm bài:45 phút
§iĨm Lêi phê thầy cô giáo
bi
I Phần trắc nghiệm:
Khoanh tròn vào chữ 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ímA 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 đây?
A Các câu lệnh viết lặp lặp lai nhiều lần C Vì câu lệnh có tên lệnh lặp B Một lệnh thay cho nhiều lệnh D Cả a, b, c sai
Câu 3 Cách viết câu lệnh lặp với số lần biết trước sau:
A For <biến đếm> = <giá trị đầu> to <giá trị cuối> <câu lệnh>; B For <biến đếm>: = <gía trị cuối> to <giá trị đầu> <câu lệnh>; C For <biến đếm> := <giá trị đầu> to <giá trị cuối> <câu lệnh>; D For <biến đếm> = <giá trị cuối> to <giá trị đầu> <câu lệnh> Câu 4 Đoạn chương trình 1, sau thực xong kết là:
A 24
B 6
C 2
D 0
Câu 5 Câu lệnh viết cú pháp là: A While <điều kiện> to <câu lệnh>; B While <điều kiện>; do <câu lệnh>;
C While <điều kiện> to <câu lệnh1> do <câu lệnh 2>; D While <điều kiện> do <câu lệnh>;
Câu 6 Đoạn chương trình 2, sau thực xong kết biến “tong” có giá trị bao nhiêu?
A B 10 C 15 D 21
Câu 7 Để khai báo biến mảng a gồm 10 phần tử, phần tử có kiểu liệu 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 chương trình câu “ xin chao” viết hình lần?
A 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 thực cơng việc gì?
b) Viết lệnh khai báo biến dùng đoạn chương trình.
Câu 2
(4 điểm)Viết chương trình nhập n số nguyên từ bàn phím In hình giá trị
trung bình cộng dãy số vừa nhập Biết n giá trị nguyên nhập từ bàn
phím?
ĐÁP ÁN – THANG ĐIỂM
Đoạn chương trình 1
S:=0;
for i:=1 to S:=S* i;
Đoạn chương trình 2
i:=1; tong:=0;While i<=5 Begin
tong:= tong + i; i:= i + 1; End;
Đoạn chương trình 3
n:=1;
(2)Đá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 cơng việc tìm giá trị lớn dãy
10 số.
b)
Var
a: array[1 10] of integer;
Max, i: integer;
Lưu ý: Nếu mảng a kiểu số thực Max phải kiểu số thực.
Mảng a nhiêu 10 phần tử.
Câu 2:
Chương trình viết 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 tong:=tong+a[i]; tbc:=tong/n;
Writeln(‘Trung binh cong cua mang la:’, tbc:10:2); Readln;
End.