De thi tin 8

Trường THCS Xuân Bảo KIỂM TRA HỌC KỲ I
LỚP: 8/…. Thời gian: 45 phút.
HỌ TÊN:……………………… Môn: Tin học.


(







I. Trắc nghiệm: đánh dấu X vào đáp án đúng. (3 điểm)
1. Cấu trúc điều kiện dạng đầy đủ có dạng:
A. if <điều kiện > then ; else ;
B. if <điều kiện > then else ;
C. if <điều kiện> then ;
D. if then ;
2. Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal:
A. Tam giac; B. end;
C. Tamgiac; D. 3so.
3. Để thực hiện việc tính tổng của hai số nguyên a và b, phép gán nào sau đây là đúng:
A. Tong=a+b; B. Tong:=a+b;
C. Tong:a+b; D.Tong(a+b); 4. Cú pháp của lệnh gán trong Pascal là?
A. Const = ; B. Uses < tên>;
C. Var :; D. := ;
5. Từ khoá Var trong Pascal dùng để làm gì?
A. Khai báo biến B. Khai báo mảng
C. Khai báo tên chương trình D. Khai báo hằng
6. Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh if (45 mod 3 ) = 0 then X :=X+2; ( Biết rằng trước đó giá trị của biến X = 5)
A.5 B. 9 C. 7 D. 11
II- TỰ LUẬN: 7 điểm
Câu 1: Hãy chỉ ra lỗi của chương trình sau (2đ):
Program sua loi {1}
Var a,b,c:Integer; {2}
Begin {3}
a:=300; {4}
b:=a+100 {5}
c:=a/b; {6}
a:=a+b; {7}
writeln(`Ket qua a=`,a, ‘b=`,b, ‘c=`,c:4:2); {8}
readln {9}
End {10}

THÍ SINH KHÔNG ĐƯỢC VIẾT VÀO ĐÂY.
VÌ ĐÂY LÀ PHÁCH SẼ RỌC MấT


(
Câu 2: Hãy viết các biểu thức toán dưới đây bằng các kí hiệu trong Pascal. (2đ)
a) ax2+bx+c b)

Câu 3: Cho hai số thực a và b. Hãy viết chương trình cho biết kết quả so sánh hai số đó dưới dạng “ a lớn hơn b”, “a nhỏ hơn b” hoặc “ a bằng b”? (3đ)






































ĐÁP ÁN
I. Trắc Nghiệm: đánh dấu X vào đáp án đúng. (3 điểm) mỗi câu 0.5đ
Câu 1:B Câu 2:C Câu 3:B Câu 4:D Câu 5:A Câu 6:C
II- TỰ LUẬN: 6 điểm
Câu 1: Hãy chỉ ra lỗi của chương trình sau và cho kết quả xuất ra trên màn hình (2đ):

Sửa lỗi (2đ)
{1} Tên sua loi không được có khoảng trống, thiếu ;
{2} khai báo biến c phải là kiểu số thực Real
{5} Thiếu ;
{10} Thiếu dấu .

Câu 2: (2đ)
a) ax2+bx+c => a*x*x+ b*x + c
b)
=> (a-b)/ (c-d) + a*a.
Câu 3: Viết chương trình: (3đ)
Program sosanhhaiso;
Uses crt;
Var a,b: integer;
Begin
Write(‘Moi ban nhap vao