HK2_D03_BTN

Hä tªn: ……………………………… §Ò KIÓM TRA 45’ TIN HäC 11

Líp: ……………….. §Ò sè 02

(Khoanh tròn vào câu trả lời đúng nhất)

I. Phần Trắc nghiệm (6 đ)

Hãy đọc kỹ đoạn chương trình sau:

Var f,g: file of integer;

Begin

Assign(g,'DLA.txt'); Rewrite(g);

Assign(f,'DLB.txt'); Rewrite(f);

For i:=1 to 10 do

Begin

If i mod 3=2 then write(f,i);

If i div 3=2 then write(g,i);

End;

Close(f); Close(g);

End.

Và hãy trả lời các câu hỏi sau

Câu 01: Sau khi thực hiện chương trình, nội dung của tập tin 'DLA.txt' gồm những phần tử nào?

A. 2; 5; 8 B. 6; 7; 8 C. 5; 8 D. 7; 8

Câu 02: Sau khi thực hiện chương trình, nội dung của tập tin 'DLB.txt' gồm những phần tử nào?

A. 2; 5; 8 B. 6; 7; 8 C. 5; 8 D. 7; 8

Câu 03: 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:=5; y:=3;

Doicho(x, y);

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

a. x=5, y=5 b. x = 3, y = 3

c. x=3, y=5 d. x=5, y=3

Câu 04: 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 05: Khi chạy chương trình :

Var x : Integer;

Procedure TINH ;

Var y: Integer ;

Begin

y:=1; y:= y+10;

End;

BEGIN

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

END.

-Kết quả in ra là:

a. 10 b. 12

c. 22 d. 11

Câu 06: 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. 12, 4

c. 4, 75 d. 4,7,5