CÂU HỎI TRẮC NGHIỆM (P8) pptx

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

Câu 1: Khai báo nào đúng :

a) Type T = Set of Real;

b) Type T = Set of Integer;

c) Type T = Set of String ;

d) Type T = Set of 0 9 ;

Câu 2: Khai báo nào sai :

a) Var T : Set of Char ;

b) Var T : Set of -10 300 ;

c) Var T : Set of ‘A’ ’z’ ;

d) Var T : Set of Boolean ;

Câu 3: Tổng của [1 5] + [3 10, 20] là tập hợp nào:

a) [1 10, 20]

b) [1 5]

c) [1 20]

d) [3 5]

Câu 4: Hiệu của hai tập hợp [10 15]-[4 12] là tập hợp nào:

a) [4 15]

b) [13 15]

c) [4 10]

d) [10 12]

Câu 5: Cho khai báo:

Var T : Set of Char ;

ch : Char ;

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

T:=[‘A’ ‘D’] * [‘A’ ‘Z’];

For ch:=’A’ to ‘F’ do T:=T+[ch] ;

Tập T sẽ là:

a) [‘A’ ’D’]

b) [‘A’ ’Z’]

c) [‘A’ ’F’]

d) [‘C’ ’F’]

Câu 6: Cho khai báo :

Var F: File of Integer ;

i , j , k :Integer ;

Chọn câu có các lệnh đều đúng :

a) Assign( F, T1.DAT ); Rewrite(F); Write(F, i, j, k );

b) Assign(F, ‘T1.DAT’ ); Rewrite(F); Write(F, i+ j+ k );

c) Assign(F); Rewrite( F, ‘T1.DAT’ ); Write(F, i, j, k );

d) Assign(F, ‘T1.DAT’ ); Rewrite(F); Write(F, i, j, k );

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

Var F : File of Char;

ch : Char;

Begin

Assign(F, ‘tt.txt’); Rewrite(F);

For ch:=’A’ to ‘F’ do Write(F, ch);

Seek(F, 4); Read(F, ch);

Write(ch); Close(F);

End

Kết quả in ra là:

a) E

b) F

c) C

d) D

Câu 8: Cho khai báo:

Var F : TEXT ;

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

Assign(F, ‘tt1.txt’); Rewrite(F);

Write(F, 123+456); Close(F);

Nội dung của tập tin tt1.txt sẽ là:

a) 123+456

b) 123456

c) 579

d) 123 456

Câu 9: Cho F1 là biến tập tin có định kiểu và F2 là biến tập tin văn bản

Lệnh nào không dùng được :

a) Seek( F1, 0);

b) Seek(F2, 0);

c) Write( Filesize(F1) ) ;

d) Write( FilePos(F1) ) ;

Câu 10: Cho TT2.TXT là tập tin văn bản có nội dung là :

Turbo Pascal 6.0

Khi chạy chương trình :

Var F : Text;

St : String[20];

Begin

Assign(F, ‘tt2.txt’); Reset(F);

Read(F, St); Write(St);

Close(F);

End

sẽ in ra chữ :

a) Turbo Pascal 6.0

b) Turbo

c) Pascal 6.0

d) Turbo Pascal