Đ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.. Để 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:[r]
Trang 1Trường THCS Trần Quang Diệu
Họ và Tên :………
Lớp: ……
ĐỀ KIỂM TRA HỌC KỲ II Môn học Tin 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 <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>; B For <biến đếm>: = <gía trị cuối> to <giá trị đầu> do <câu lệnh>; C For <biến đếm> := <giá trị đầu> to <giá trị cuối> do <câu lệnh>; D For <biến đếm> = <giá trị cuối> to <giá trị đầu> do <câu lệnh> 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 <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 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 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?
Đoạn chương trình 1
S:=0;
for i:=1 to 4 do S:=S* i;
Đoạn chương trình 2
i:=1; tong:=0;
While i<=5 do Begin
tong:= tong + i; i:= i + 1; End;
Đoạn chương trình 3
n:=1;
While n<10 do Begin n:=n+1;
Writeln(‘ xin chao’); end;
Trang 2
Trang 3
ĐÁP ÁN – THANG ĐIỂM
I Phần trắc nghiệm:
4 điểm
II Phần tự luận:
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 do tong:=tong+a[i];
tbc:=tong/n;
Writeln(‘Trung binh cong cua mang la:’, tbc:10:2);
Readln;
End.
Phần khai báo: 1 điểm.
Phần nhập số nguyên n và các phần tử cho mảng: 2 điểm.
Phần tính tổng các phần tử của mảng: 2 điểm.
Phần tinh và in ra màn hình giá trị tbc: 1 điểm.
6 điểm