CÂU HỎI TRẮC NGHIỆM (P7) docx

CÂU HỎI TRẮC NGHIỆM

Câu 1: Cho khai báo đầu của một hàm:

Function F( k : Integer) : String ;

Begin

If k mod 2=0 then F:=’Chan’ else F:=’Le’;

End;

Muốn gán X:= F(5); thì biến X phải khai báo kiểu gì :

a) Var X: Real;

b) Var X: String;

c) Var X: Integer;

d) Var X : Char;

Câu 2: Cho khai báo đầu của một hàm:

Function F( k : Integer) : String ;

Begin

If k mod 2=0 then F:=’Chan’ else F:=’Le’;

End;

Muốn in Write( F(y) ); thì biến y phải khai báo kiểu gì :

a) Var y : Real;

b) Var y : String;

c) Var y : Integer;

d) Var y : Char;

Câu 3: Cho khai báo biến và khai báo đầu của thủ tục TT:

Var

x, y : Integer ; St :String ;

Procedure TT( Var a : Integer ; b : String);

-Lệnh nào đúng :

a) TT(x +1, St) ;

b) TT(10, St) ;

c) TT(x, St) ;

d) y:= TT(St, x) ;

Câu 4: Khi chạy chương trình :

Var x, y : Real;

Function F(x, y:Real):Real;

Begin

F:=x;

If x < y then F := y;

End;

BEGIN

x:=10; y:=15;

Write(F(x, y): 0:0);

END

-Kết qủa in ra:

a) 10

b) 15

c) 0

d) F(x,y)

Câu 5: Cho a là biến nguyên a=3, và khai báo thủ tục :

Procedure TT( x : Integer) ;

Begin

x:=x+2;

End;

Sau khi gọi thủ tục TT(a); thì Giá trị của biến a là :

a) 2

b) 5

c) 3

d) 0

Câu 6: Cho x, y là hai biến nguyên và khai báo thủ tục :

Procedure Doicho( Var a : Integer; b : Integer);

Var z : Integer;

Begin

z:=a; a:=b; b:=z;

End;

-Sau khi thực hiện các lệnh:

x:=7; y:=3;

Doicho(x, y);

thì giá trị của x, y là:

a) x=7, y=7

b) x=3, y=3

c) x=3, y=7

d) x=7, y=3

Câu 7: Cho khai báo hàm đệ quy :

Function F( a : Integer) : Integer;

Begin

If a=1 then F:=1 else F:= a*a+ F(a-1);

End;

Giá trị của hàm F(4) là:

a) 1

b) 25

c) 14

d) 30

Câu 8: Khi chạy chương trình :

Var x : Integer;

Procedure TT ;

Begin

x:=4; x:= x+5;

End;

BEGIN

x:=0; TT; Write(x);

END

-Kết quả in ra là:

a) 4

b) 5

c) 9

d) 0

Câu 9: Khi chạy chương trình :

Var x : Integer;

Procedure TINH ;

Var x: Integer ;

Begin

x:=1; x:= x+12;

End;

BEGIN

x:=10; TINH; Write(x);

END

-Kết quả in ra là:

a) 10

b) 12

c) 22

d) 13

Câu 10: Khi chạy chương trình :

Var x : Integer;

Procedure TTA ;

Var x : Integer;

Begin

x:= 7* 5; Write(x, ‘,’);

End;

BEGIN

x:=4; TTA; Write(x:2);

END

-Kết quả in ra là:

a) 35, 4

b) 4, 35

c) 4, 75

d) 354