Hãy khoanh tròn chữ cái trước câu trả lời đúng.. Trong các tên sau tên nào hợp lệ trong ngôn ngữ Pascal?. Giả sử A là biến kiểu Integer, X là biến kiểu String các phép gán nào sau đây hợ
Trang 1A MA TRẬN
Mức độ
Nội dung
Bài 2: Làm quen
với CT và NNLT
2 1.0
2 1.0
4 2.0 Bài 3: CT máy
tính và dữ liệu
1 0.5
1 0.5
1 1.0
2 1.0
1 1.0 Bài 4: Sử dụng
1.5
4 2.0
2 3.0
1 0.5
1 3.0
8 4.0
3 6.0
B.ĐỀ
I Trắc nghiệm(4.0đ)
Câu 1 Hãy khoanh tròn chữ cái trước câu trả lời đúng (2.0đ)
1.1 Trong các tên sau tên nào hợp lệ trong ngôn ngữ Pascal?
1.2 Giả sử A là biến kiểu Integer, X là biến kiểu String các phép gán nào sau đây hợp lệ:
a X:= ‘Dien tich hinh vuong’; b A:= ‘Dien tich hinh vuong’;
c X:= 123682; d A:= Dien tich hinh vuong;
1.3 Trong lập trình Pascal, khai báo nào sau đây là hợp lệ?
a Const x: real; b Var x: 1462; c Var x+30; d Var a,b: integer; 1.4 Để chạy chương trình trong Pascal ta dùng tổ hợp phím:
Câu 2 Nối cột A và cột B để được câu đúng (2.0đ)
II Tự luận (6.0đ)
Câu 1 Biến đổi các biểu thức toán học sau đây thành biểu thức trong Pascal: (1.0đ)
a (a+b)2 - c2 b a + c b – (c +d)2
Câu 2 Tìm và sửa lỗi trong chương trình: (2.0đ)
Program tinhtong;
Begin
Var a,b: integer
c:= a+ b;
Write(‘tổng hai số a và b là:’,c);
Readln;
End
Trang 2Câu 3 Viết chương trình tính diện tích S và chu vi P của hình tròn bán kính r (bán kính r được nhập từ bàn phím và Pi = 3.14)
C: ĐÁP ÁN
I Trắc nghiệm
Câu 1 đúng mỗi câu 0.5đ
Câu 2 Nối dúng mỗi câu 0.5đ
II Tự luận
Câu 1:
a (a+b)*(a+b)-c*c (0.5đ)
b a+c*b-(c+d)*(c+d) (0.5đ)
Câu 2: Tìm được mỗi lỗi và sửa lỗi đúng: 0.5đ
- Thiếu các lệnh nhập a,b
- Chưa khai báo biến c
- Lệnh Var không nằm trong Begin
- Dòng thông báo trong lệnh Write sai
Sửa:
Program tinhtong;
Var a,b,c: integer
Begin
Write(‘nhap a:’); readln(a);
Write(‘nhap b:’); readln(b);
c:= a+ b;
Write(‘tong hai so a va b la:’,c);
Readln;
End
Câu 3:
Program baitap; (0.25đ)
Const Pi = 3.14; (0.25đ)
Var S, P, r: real; (0.25đ)
Begin (0.25đ)
Write(‘nhap ban kinh r:’); readln(r); (0.5đ)
S:= r*r*Pi; (0.25đ)
P:=2*r*Pi; (0.25đ)
Write(‘dien tich hinh tron la:’ ,S); (0.25đ)
Writeln(‘chu vi hinh tron la:’ , P); (0.25đ)
Readln; (0.25đ)
End.(0.25đ)