de ktr tin 8 hk2 day

Phòng giáo dục huyện Tiền Hải
Trường THCS Nam Thanh
ĐỀ KIỂM TRA HẾT HỌC KỲ II
MÔN: TIN HỌC 8
I TRẮC NGHIỆM: (4đ)
Chọn ý trả lời đúng (mỗi ý đúng được 0,5đ)
Câu 1: Trong ngôn ngữ lập trình Pascal, tên nào là hợp lệ?
a) Tam giac; b) Tamgiac; c) Begin; d) End.
Câu 2: Trong Pascal, khai báo nào sau đây sai?
a) Var a = integer; b) Const b:=3;
c) a: array[1 5,5] of integer; d) Tất cả đều sai.
Câu 3. Trong ngôn ngữ lập trình, phép gán nào là hợp lệ?
a) a ← 3; b) a:=3; c) a = 3; d) a: 3.
Câu 4: Câu lệnh lặp For i:=3 to 10 do Begin end; vòng lặp thực hiện bao nhiêu
lần
a) Không lần nào; b) 7 lần; c) 8 lần; d) 10 lần.
Câu 5:Mỗi câu lệnh sau đây:
 If ( 45 mod 3) = 0 then x: = x+1;
If x>10 then x: = x+1;
giá trị của biến X sẽ là bao nhiêu, nếu trước đó giá trị của X bằng 5?
a) 6-11; b) 7 - 11; c) 6 - 5; d) 7 - 5.
Câu 6: Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu?
j:=0;
For i:=0 to 5 do j:=j+2;
a) 1; b) 5; c) 8; d) 12
Câu 7: Cho biết giá trị của c ở đoạn chương trình sau bằng bao nhiêu:
a:=3; b:=5;
if a+ b <=8 then c: = a- b
a) 1; b) 5; c) -2; d) 2
Câu 8: Cho biết kết quả của đoạn chương trình sau:
a:=10;

While a>=10 do Write(a);
a) Viết ra được vô số chữ ‘a’; b) Không in ra cái gì;
c) viết ra 1 chữ ‘a’; d) viết ra 10 chữ ‘a’
II.TỰ LUẬN: (6đ)
Câu 1: Viết và giải thích cú pháp của câu lệnh lặp với số lần chưa biết trước trong
Pascal. (2đ)
Câu 2. Hãy cho biết tác dụng của câu lệnh lặp?(2đ)
Câu 3. Sửa lỗi chương trình sau: (2đ)
Program Tinhtong;
Var N, i: integer;
S: Longint;
Begin
Write(‘Nhap so N = ’); Readln(N);
S:=0;
For i = 1 to N do S:=S+i;
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S = ‘,S);
Readln
End
Giả sử nhập N =5, máy sẽ thông báo kết quả S bằng bao nhiêu? (1đ)
Phòng giáo dục huyện Tiền Hải
Trường THCS Nam Thanh
ĐÁP ÁN ĐỀ KIỂM TRA HẾT HỌC KỲ II
MÔN: TIN HỌC 8
I. Phần trắc nghiệm: Mỗi câu trả lời đúng được 0,5đ
Câu 1 2 3 4 5 6 7 8
Đáp án B D A C C D C A
II. Phần tự luận:
Câu 1. Cú pháp của câu lệnh lặp với số lần chưa biết trước trong ngôn
ngữ lập trình Pascal:
While <điều kiện> do <câu lệnh>; (1đ)

Câu lệnh lặp được thực hiện: (1đ)
Bước 1. Kiểm tra điều kiện.
Bước 2. Nếu điều kiện không được thoả mãn (sai), câu lệnh sẽ bị bỏ qua
và lệnh lặp kết thúc. Nếu điều kiện được thoả mãn (đúng), thực hiện câu
lệnh và quay lại bước 1.
Câu 2. Tác dụng của câu lệnh lặp:
Giúp cho công việc lập trình được đơn giản hơn vì chỉ cần viết 1 câu lệnh
hay một nhóm các câu lệnh thay cho rất nhiều câu lệnh hay nhóm các câu
lệnh phải viết
Câu 3. Sửa lỗi chương trình sau:
Program Tinhtong;
Var N, i: integer; S: Longint;
Begin
Write(‘Nhap so N = ’); Readln(N);
S:=0;
For i := 1 to N do S:=S+i; { Sai phép gán}
Writeln(‘Tong cua ‘,N,’ so tu nhien dau tien S = ‘,S);
Readln
End. { thiếu dấu chấm sau end}
Giả sử nhập N =5, máy sẽ thông báo kết quả S bằng 15