Kiểm tra chất lượng HKI



KIỂM TRA CHẤT LƯỢNG HỌC KỲ I
Năm học: 2008 - 2009

Điểm
Lời phê của thầy cô giáo





I. PHẦN TRẮC NGHIỆM: (4 điểm)
Hãy khoanh tròn chữ cái đứng trước câu trả lời đúng.
1. Cấu trúc chung của chương trình gồm mấy phần?
A. 3 phần B. 2 phần C. 4 phần D. 1 phần

2. Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?
A. Const B. Var C. baitap D. dien tich

3. Từ khoá nào sau đây dùng để khai báo hằng?
A. Var B. Uses C. Program D. Const

4. Để khai báo biến x thuộc kiểu số thực, ta khai báo:
A. Var x: integer; B. Var x: string; C. Var x: real; D. Var x: char;

5. Câu lệnh cho phép ta nhập dữ liệu từ bàn phím là:
A. Writeln(x); B. Readln(x); C. Write(x); D. Write(`nhap giá trị của x`)

6. Để gán giá trị 15 cho biến x ta dùng lệnh:
A. x = 15; B. x: 15; C. x=: 15; D. x:= 15;

7. Biểu thức toán học (a2 + b)(1 + c)3 được biểu diễn trong Pascal như thế nào ?
A. (a*a + b)(1+c)(1 + c)(1 + c) B. (a.a + b)(1 + c)(1 + c)(1 + c)
C. (a*a + b)*(1 + c)*(1 + c)*(1 + c) D. (a2 + b)(1 + c)3

8. Để chạy chương trình ta sử dụng tổ hợp phím nào?
A. Alt + F9 B. Shift + F9 C. Ctrl + F9 D. Ctrl + Shitf + F9
II. PHẦN TỰ LUẬN: (6 điểm)

Câu 1: Viết các biểu thức toán sau đây dưới dạng biểu thức Pascal (1 điểm)
a.
b. (7-x)3 chia cho 5 lấy dư

Câu 2: Chuyển các biểu thức được viết trong Pascal sau đây thành các biểu thức toán :(1 điểm)
a, (x + 2)*(x + 3)/ (x + 4) - y / (a + b)*(x - 3)*(x - 3)
b, 1 + 2 / (2*x + 4) + 3 / (x*7 - 6) + 4 / (x*(6-x))

Câu 3: Hãy liệt kê các lỗi nếu có trong chương trình dưới đây và sữa lại cho đúng.(2 điểm)
Var a, b: integer;
Const c:= 4;
Begin
a := 100
b := a/c;
write(b);
readln
End.

Câu 4: Viết chương trình giải phương trình bậc nhất ax + b = 0. (2 điểm)
(((((((















ĐÁP ÁN
I. PHẦN TRẮC NGHIỆM:
1. B
 2. C
 3. D
 4. C

 5. B
 6. D
 7. C
 8. C


II. PHẦN TỰ LUẬN:
Câu1: a, 1/x - a*(b+2)/(2+a). b, (7 - 3)*(7 - 3)*(7 - 3) mod 5.
Câu 2:
a,
-
(x - 3)2 b, 1+
+
+

Câu 3: Có 3 lỗi (0,5 điểm)
sữa lại: Var a: integer;
b: real; (0,5 điểm)
Const c = 4; (0,5 điểm)
Begin
a := 100; (0,5 điểm)
b := a/c;
write(b);
readln
End.
Câu 4:
Program giaiphuongtrinh;
Uses Crt;
Var a, b, x: real;
Begin
Write(`a = `); Readln(a);
Write(`b = `); Readln(b);
If a =