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
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
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));
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ữ?
