KT HKITin 8

đề Kiểm tra học kì i
Môn: Tin học 8



Họ và tên: .................................................................................... Lớp: ..................













I. Trắc nghiệm: (Em hãy khoanh tròn vào phương án đúng) (6 điểm)

Câu 1: Từ khoá để khai báo biến trong ngôn ngữ lập trình Pascal là:
a. Const b. Var c. Real d. End
Câu 2: Cấu trúc chung hợp lý của một chương trình Pascal là :
a. Begin - Program - End. b. Program - End - Begin.
c. End - Program - Begin. d. Program - Begin - End.
Câu 3: Output của bài toán giải phương trình bậc hai ax2+bx+c=0 là
a, b, x c. a, c, x
a, b, c d. x, a, b, c
Câu 4: Trong Pascal, khai báo nào sau đây là đúng :
a. const n=8; b. var 8tb: real; c. const x: real; d. Var R = 30;
Câu 5: 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
Câu 6: Kết quả của phép chia 10 Mod 8 là:
a. 0 b. 1 c. 2 d. 3
Câu 7: Ý nghĩa của câu lệnh write(‘Toi la Turbo Pascal’); là
a. In ra màn hình dòng chữ Toi la Turbo Pascal và đưa con trỏ xuống dòng
b. Câu lệnh trên sai cú pháp
c. Dùng để yêu cầu nhập giá trị cho biến Toi la Turbo Pascal
d. In ra màn hình dòng chữ Toi la Turbo Pascal và không đưa con trỏ xuống dòng
Câu 8: Sau khi gõ câu lệnh Pascal: writeln(`10+5= `,10+5); sẽ in ra màn hình
a. 10+5=10+5 b. 10+5= c. 10+5=15 d. =10+5
Câu 9: Để chạy chương trình, ta sử dụng tổ hợp phím nào?
a. Ctrl +F9 b. Ctrl + Shift + F9 c. F9 d. Alt + F9
Câu 10: Cú pháp câu lệnh điều kiện dạng đủ:
a. If <điều kiện > then ;
b. If then <điều kiện> else ;
c. If <điều kiện > then else ;
d. Đáp án khác

Câu 11: Trong cấu trúc chương trình của Pascal, phần nào có thể không có?
Phần khai báo
Phần khai báo và phần thân chương trình
Phần tên và phần thân chương trình
Phần thân chương trình
Câu 12: Sau câu lệnh sau, giá trị của biến X là bao nhiêu, nếu trước đó giá trị của biến X = 6?
If X<10 then x:=X+1
6
7
10
11
II. Tự luận : (4 điểm)
Câu 1: Hãy tìm ra đoạn chương trình lỗi và sửa lại cho đúng:
Program vi_du;
Uses crt;
Var a, b, s, c : integer;
Begin
writeln(‘nhap chieu dai a= ‘); readln(a);
writeln(‘nhap chieu