Đề thi kỳ 2 tin học 8

PHòNG GD&ĐT KrÔng năng Kiểm tra chất lượng học kỳ ii năm học 2008-2009
Trường pt dtnt krông năng Môn: Học 8 thời gian 45 phút
(Không kể thời gian giao đề)

TRẮC NGHIỆM: (2đ)
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.
TỰ LUẬN: (8đ)
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. Các câu lệnh Pascal sau có hợp lệ không? Nếu không sửa lại cho đúng? (3đ)
if a>b then max:=a; else max:=b;
for i:=10 to 2 do write(‘A’);
for i:= 1.5 to 5.5 do write(‘A’);
While x:=y do x:=x+1;
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đ)




ĐÁP ÁN TIN 8
I. Phần trắc nghiệm: Mỗi câu trả lời đúng được 0,5đ (2 đ)
Câu
1
2
3
4

Đáp án
B
D
A
C

II. Phần tự luận: 8đ
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 ; (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. Mỗi câu đúng được 0,5 đ
a) Trước else không có dấu chấm phẩy, sửa lại:
if a>b then max:=a else max:=b;
b) Giá trị cuối phải lớn hơn hoặc bắng giá trị đâu, sửa lại:
for i:=2 to 10 do write(‘A’);
c) Giá trị đầu và cuối phải là số nguyên:
for i:=1 to 5 do write(‘A’);
d) Điều kiện là phép so sánh, không là phép gán
while x>y do x:=x+1;
Câu 3. Sửa lỗi chương trình sau: (1đ)
Program Tinhtong;
Var N, i: integer;
S: Longint;
Lần lặp
S

1
1

2
3

3
6

4
10

5
15

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 (1đ)