Đề KTra HKII (Đề + Ma trận mới + Đáp án)

ĐÁP ÁN VÀ THANG ĐIỂM
I. Trắc nghiệm: (3 đ) Khoanh tròn vào đáp án em cho là Đúng
Câu
1
2
3
4
5
6

Đáp án
A
D
C
B
A
D


II. Tự Luận: (7 điểm)
Câu 1: (1,5 đ) Đoạn chương trình sau đây có lỗi sai. Em hãy chỉnh sửa lại cho đúng?

Progam Program (0,25 đ)
interger integer (0,25 đ)
i=1 i:=1 (0,25 đ)
s:=s+1 s:=s+i (0,25 đ)
thêm s vào sau dấu phẩy câu lệnh Write(‘tong cua n so tu nhien la s=’,s); (0,25 đ)
realn; readln; (0,25 đ)

Câu 2: (1,5 đ) mảng gồm có Diemtoan, Diemtin, Diemli gồm 70 phần tử. Mỗi phần tử là biến có kiểu số thực.
Var Diemtoan, Diemtin, Diemli : array [1..70] of real ;

Câu 3: (4 đ) Sử dụng câu lệnh lặp while…do để tính tích các số tự nhiên từ 1 đến 10?

Program tinhtich; (0,5 đ)
Var
tich, i : integer; (0,5 đ)
Begin
tich:= 1;
i:= 1; (0,5 đ)
While i<= 10 do (0,5 đ)
Begin
tich:= tich * i; (0,5 đ)
i:= i + 1; (0,5 đ)
end;
writeln(‘tich cua cac so tu nhien tu 1 đến 10 la:’, tich); (0,5 đ)
readln;
End. (0,5 đ)