Câu 1: Trong ngôn ngữ lập trình Pascal t Ư khóa Program dùng đểA. khai báo tên chương trình.[r]
Trang 11
Trang 2Program CV_DT;
Var a,b: integer; CV, DT: Real;
Begin
Write(‘Nhap a,b: = ‘); Readln(a,b);
DT: = a*b; CV: = 2*a + 2*b;
Writeln(‘dien tich la:=‘,dt);
Writeln(‘(chu vi la:=‘,cv);
Tính diện tích và chu vi hình chữ nhật với chiều Rộng và chiều dài được nhập vào từ bàn phím
Trang 33
Trang 4Câu 1: Trong ngôn ngữ lập trình
Pascal t Ừ khóa Program dùng để
A khai báo tên chương trình
B khai báo biến
C khai báo thư viện
D khai báo hằng
Trang 5Câu 2: Trong ngôn ngữ lập trình Pascal, với câu
lệnh như sau: Writeln (‘KQ là:’, a); cái gì sẽ in ra
màn hình?
A Ket qua la: a;
B KQ la a;
C Không đưa ra gì cả
D KQ la:<giá trị của biến a>;
Trang 6Câu 3 : Trong các tên dưới đây, tên nào
hợp lệ trong Ngôn ngữ Pascal ? Tại sao ?
• A Muaxuannhonho;
• B Integer;
• C 101_con_cho_dom;
• D Ngay-20-11;
• E STRING ;
• F Du am;
Trang 7Câu 4: Phát hiện lỗi trong chương
trình sau và sửa lại cho đúng
Program Chuong trinh 1;
Begin
Uses crt;
Writeln ( hoa cỏ mùa xuân);
End;
Program Chuongtrinh1;
Uses crt;
Begin
Writeln ( ‘hoa co mua xuan’);
End.
Sau khi chỉnh sửa Chương Trình
Trang 8Program hinh_chu_nhat;
Var Cv, dt: real;
Const a = 4; b = 20;
Begin
Write(‘Cho biet ban kinh:’);
Readln(ban_kinh);
Cv:= 2*a + 2*b;
Dt:= a*b;
Câu 5: Dưới đây là một chương trình viết trong Pascal:
Hằng:
………
Biến:
………
Từ khoá:
………
Hãy cho biết: Đâu là biến, hằng,
từ khoá và tên chương trình
CV, DT
Program, Var, const, begin, End
a, b
Trang 9Câu 6 Trong Turbo Pascal, để thực
thi chương trình:
A Nhấn phím F9
B Nhấn tổ hợp phím Alt+F5
C Nhấn tổ hợp phím Ctl+F9
D Nhấn tổ hợp phím Alt+F9
Trang 10Câu 7: Chọn kết quả đúng khi thực hiện phép
chia, phép chia lấy phần nguyên, phép chia lấy
phần dư của hai số nguyên
A 26/4 = 6,5; 26 div 4 = 2; 26 mod 4 = 6
B 26/4 = 6; 26 div 4 = 6; 26 mod 4 = 2
C 26/4 = 6; 26 div 4 = 2; 26 mod 4 = 6
D 26/4 = 6.5; 26 div 4 = 6; 26 mod 4 = 2
Trang 11Trong to¸n häc Trong Pascal
Câu 8: Viết các phéo so sánh sau bằng ký hiệu
pascal
1 10
) 3 ) (
2
((
y x y
x
1 )
1 (
2
b b
a
12 1
1 )
2
b
b a
2
) 1
(
5
a
b b
c
((2*x-y*(x+y)-3)/10>1
a*a+2*b+(1+b)*(1+b) <>1
(a*a+2*b)*(1/(1+b)) = 12
5+c*c < (1+b)*((b+2)/a*a)
Trang 12Câu 9: Để khai báo biến x thuộc
kiểu số thực ta khai báo:
A Var x: String;
B Var x: integer;
C Var x: Char;
D Var x: Real;
Trang 13C©u 10: Trong c¸c ch ¬ng trinh, ch ¬ng trinh nµo kh«ng hîp
lÖ:
A. Ch ¬ng trinh 1
Begin
Write (‘Chao cac ban!!’);
End.
B. Ch ¬ng trinh 2
Program bai1;
Begin Write (‘Chao cac ban!!’); End.
C. Ch ¬ng trinh 3
Begin
Program bai1;
Write (‘Chao cac ban!!’);
End.
D. Ch ¬ng trinh 4
Program bai1;
Uses crt;
Begin Clrscr;
Write (‘Chao cac ban!!’);
End
Trang 14Câu 11:Để nhập dữ liệu ta dùng lệnh
A Clrscr;
D X:= ‘dulieu’;
C Write(‘Nhap du lieu’);
Trang 15cho đúng:
• Var x,y,z := integer;
• Begin;
• z:= x/y;
• writeln(z);
• End.
• Var x,y : integer;
• z: Real;
Chương trình sau khi đã chỉnh sửa