Câu 1 : Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal.
A. 8a A. tamgiac C. program D. bai tap
Câu 2 : Để chạy chương trình trong Turbo Pascal ta dùng tổ hợp phím nào ?
A. Ctrl + F9 B. Alt + F9 C. F9 D. Ctrl + Shitf + F9
Câu 3 : Trong Pascal, khai báo nào sau đây là đúng cho khai báo biến ?
A. Var tb: real; B. Type 4hs: integer; C. Const x: real; D. Var R = 30;
Câu 4 : 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 + c3
Câu 5: Để nhập dữ liệu ta dùng lệnh:
A.Clrscr; B.Readln(x); C. X:= ‘dulieu’; d.Write(‘Nhap du lieu’);
Câu 6 : Bốn bạn A, B, C, D đưa ra kết quả của phép chia, phép chia lấy phần nguyên và lấy phần dư của hai số nguyên 14 và 5 như sau :
A. 14/5 =2; 14 div 5 = 2; 14 mod 5 = 4 B. 14/5 =2.8; 14 div 5 = 2; 14 mod 5 = 4
C. 14/5 =2.8; 14 div 5 = 4; 14 mod 5 = 2 D. 14/5 =3; 14 div 5 = 2 ; 14 mod 5 = 4
Hãy chọn bạn làm đúng
Câu 7. Những từ nào sau đây là từ khoá?
A. Begin, Uses, End, Thong bao B. Program, Begin, char, Uses,
C. Var, Const, Write D. Program, Begin, Uses, end
Câu 8. Trong cấu trúc chương trình Pascal, phần nào là phần bắt buộc phải có?
A. Phần tiêu đề chương trình B. Phần thân chương trình
C. Phần khai báo thư viện D. Phần khai báo biến.
Phần 2 : Tự luận
Câu 9 : Viết các biểu thức toán sau đây dưới dạng biểu thức Pascal : (3 điểm)
a. 15x2 + 30 (x+2) b. 
c. 
Câu 10 : (3 điểm)
Viết chương trình nhập vào 2 số nguyên a, b từ bàn phím, tính trung bình cộng (TB) của hai số a, b và in kết quả ra màn hình.
1. Cần tuân thủ theo quy tắc:
+ Không có ký tự trống xen giữa.
+ Không đặt số ở ký tự đầu tiên.
+ Trong phần tên không chứa các ký tự đặc biệt như : '!' , '@' , '#' , '$' , '%' , '^' , '.' , ' ' ' ,' /' ,...
+ Kết thúc phải có dấu ' ; ' .
+ Phần này có thể không có :
- Uses , Const .
2.
-lệnh dùng để xóa màn hình làm việc:
Uses Crt ; { khai báo thư viện hàm }
Clrscr; { lệnh xóa màn hình kết quả }
- hai lệnh này dùng song song vs nhau nha.
VD:
Program vi_du;
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write('nhap so n ='); readln(n);
s:=0;
for i:= 1 to n do
s:=s+i;
writeln(s :4:2);
readln;
end.