NEW
Font size
WorksheetsSỬA BÀI KIỂM TRA HỌC KỲ - PHẦN CUỐI
Total questions: 10
Worksheet time: 2mins
Cho trước tệp văn bản ‘BT.TXT’ chứa dòng chữ: XIN CHAO CAC BAN ngay ở dòng đầu. Thực hiện chương trình sau, màn hình sẽ hiện ra kết quả như thế nào?
Var f: text; s: string[8];
BEGIN
Assign(f,‘BT.TXT’); Reset(f); Read(f,S); Write(S);
Close(f);
END;
XIN CHAO CAC BAN
‘XIN CHAO CAC BAN’
'XIN CHAO'
'CAC BAN'
Program bt;
Var f: text;
BEGIN
Assign(f, ‘VD.TXT’);
Rewrite(f);
Write(f, 123+466);
Close(f);
END.
Chương trình trên sẽ ghi kết quả nào sau đây vào tệp văn bản ‘VD.TXT’
123+466
589
123466
123 466
Sau khi thực hiện các lệnh:
St:= ‘BBBAAAB’
While st[1]= ‘B’ do delete(st,1,1);
Write(st);
Kết quả in ra là:
‘BBB’
‘AAAB’
‘BBBB’
‘AAA’
Để khai báo 2 biến tệp văn bản f1 và f2 ta viết:
Var f1,f2 : tetx ;
var f1: text; f2: text;
var f1 ; f2 : text ;
var f1 f2: text;
Muốn mở tệp 1 tệp văn bản để đọc dữ liệu từ tệp ta chọn thủ tục nào?
Reset(f);
Read(f,x);
Rewrite(f);
write(f,x);
Thủ tục đóng tệp có dạng:
Close(<tên tệp>);
Close(<biến tệp>);
Close;
Close all;
Từ khóa nào sau đây được dùng để khai báo chương trình con dạng hàm?
program
procedure
var
function
Kiểu dữ liệu của hàm
Chỉ có thể là kiểu integer.
Chỉ có thể là kiểu real.
Có thể là các kiểu integer, real, char, boolean, string.
Tất cả đều sai
Khi cần gọi thực hiện Chương trình con (CTC), nên chọn phương án nào sau đây?
dùng tên CTC
dùng tham số của CTC
dùng biến
Cho chương trình sau:
Procedure Nhap;
Begin
Readln(a);
End;
Begin
Nhap;
End.
Chương trình có bao nhiêu chương trình con?
0
1
2
3
