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