powerpoint presentation 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 program cv dt var ab integer cv dt real begin write‘nhap ab ‘ readlnab

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]

Program 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);

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

B khai báo biến

5

Câu 2: Trong ngôn ngữ lập trình Pascal, với câu

lệnh sau: Writeln (‘KQ là:’, a); in

màn hình?

A Ket qua la: a; B KQ la a;

C Khơng đưa cả

Câu : Trong tên đây, tên hợp lệ Ngôn ngữ Pascal ? Tại ? • A Muaxuannhonho;

• B Integer;

• C 101_con_cho_dom;

• D Ngay-20-11; • E STRING ;

7

Câu 4: Phát lỗi chương

trình sau 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.

Program 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 chương trình viết Pascal:

Hằng: ……… Biến: ……… Từ khoá: ………

Hãy cho biết: Đâu biến, hằng, từ khoá tên chương trình

CV, DT

9

Câu 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

Câu 7: Chọn kết thực phép

chia, phép chia lấy phần nguyên, phép chia lấy phần dư hai số nguyên

A 26/4 = 6,5; 26 div = 2; 26 mod = 6

B 26/4 = 6; 26 div = 6; 26 mod = 2 C 26/4 = 6; 26 div = 2; 26 mod = 6

11

Trong to¸n häc Trong Pascal

Câu 8: Viết phéo so sánh sau ký hiệu pascal 10 ) ) ( ((     y x y

x 1 ) 1 ( 2 2   

 b b

a 12 1 1 ) 2

( 

  b b a

2 (1 ) 2

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

Câ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;

13

Câu 10: Trong ch ơng trinh, ch ơng trinh không hợp lệ:

A. Ch ¬ng trinh

Begin

Write (‘Chao cac ban!!’); End.

B. Ch ¬ng trinh

Program bai1; Begin

Write (‘Chao cac ban!!’); End.

C. Ch ¬ng trinh

Begin

Program bai1;

Write (‘Chao cac ban!!’); End.

D. Ch ¬ng trinh

Program bai1; Uses crt;

Begin Clrscr;

Câu 11:Để nhập liệu ta dùng lệnh

A Clrscr;

B Readln(x);

D X:= ‘dulieu’;

15

Câu 12 : Hãy sửa lại chương trình

cho đúng:

• Var x,y,z := integer; • Begin;

• x:= 15 • y= 6;

• z:= x/y; • writeln(z); • End.

• Var x,y : integer; • z: Real;

• Begin

• x:= 15;

• y:= 6;

• z:= x/y;

• writeln(z);

• End.