NEW
Font size
Worksheetstin 11. hk2. 17 câu đầu
Total questions: 17
Worksheet time: 9mins
Phương án nào dưới đây thể hiện khai báo ĐÚNG biến tệp văn bản?
var f: string;
var f: file;
var f: text;
var f = record
. Cho chương trình:
program Tinh_tong;
Var T,i: byte;
Begin
T:=0;
For i:=1 to 15 do if i mod 2 =0 then T:= T+ i ;
Write(‘Tong =’, T);
Readln;
End.
Khi chạy chương trình, Tổng tính được bằng:
30
56
25
10
Phần đầu của HÀM có cấu trúc?
Procedure <TÊNTHỦTỤC>;
. Function <TÊNHÀM> [(<ds tham số>)] : <Kiểu dữ liệu>;
Procedure <TÊNTHỦTỤC> [(<ds tham số>)];
Function <TÊNHÀM> [(<ds tham số>)]
Nếu hàm eof(<biến tệp>); cho giá trị TRUE thì con trỏ tệp nằm ở vị trí:
Cuối dòng
Cuối tệp
Đầu dòng
Đầu tệp
. Trong Pascal, tên không bắt đầu bằng:
chữ cái và dấu gạch dưới
dấu gạch dưới
chữ cái
chữ số
Trong Pascal, chương trình con gồm?
Thủ tục, hàm
Xâu, tệp
Hàm
Thủ tục
Phương án nào dưới đây thể hiện khai báo ĐÚNG biến tệp văn bản?
. var tep: file;
. var tep: byte;
var tep : text;
var tep: string;
Chương trình con sau đây thực hiện công việc gì?
Function Tich(b:byte): byte;
Var i, t: byte;
Begin
T:=1;
For i:=1 to b do t:=t * i;
Tich:=t;
End;
. Tính tích các số từ 1 đến b
Tính tổng các số từ 1 đến a
. In ra màn hình bảng nhân a
Vẽ hình chữ nhật
. Câu lệnh nào là lệnh gán tên tệp baitap.DAT cho tệp f:
. Assign(f, ‘HOCTAP.DAT’);
Assign (‘HOCTAP.DAT’, F);
Assign(f, ‘baitap.DAT’);
f := ‘HOCTAP.DAT’ ;
cho chương trình:
Var s: string;
Begin
S:= ‘DAT NUOC VIET NAM’;
Delete(s, 10, 8);
Insert (‘TOI YEU ’, S, 10);
Write(‘s=’, s);
Readln;
End.
Sau khi thực hiện chương trình, kết quả in ra màn hình của biến s là:
. s=DAT NUOC TOI YEU
s=VIET NAM QUE HUONG TOI
s=TOI YEU DAT NUOC
s= DAT NUOC VIET NAM
Câu lệnh reset(<biến tệp>) thực hiện việc nào dưới đây?
. Khai báo biến tệp
Gắn tên tệp cho biến tệp
Mở tệp để đọc dữ liệu
. Đóng tệp
Các biến được khai báo để dùng riêng trong chương trình con được gọi là?
Tham số thực sự
Tham số hình thức
Biến toàn cục
Biến cục bộ
Chỉ ra xâu rỗng trong các phương án cho sau đây?
‘.’
‘thi hoc ki 2’
. ‘tin hoc 11’
‘’
. Phương án nào sau đây được chọn để mở tệp ghi dữ liệu:
. reset(<biến tệp>);
rewrite(<biến tệp>);
. Câu lệnh nào là lệnh đọc 2 biến a, b từ tệp f:
Readln(f,a,b)
Read(f, a,b);
. Readln(a,b);
Read(a,b);
Cho đoạn chương trình sau đây:for i:=1 to m do if (i mod 3 = 0) then t:= t + i;
Đoạn chương trình trên giải quyết bài toán nào dưới đây?
Tính tổng các số chia hết cho 5 trong phạm vi từ 1 đến m
Tính tổng các số chia hết cho 3 vtrong phạm vi từ 1 đến m
Tính tổng các số chia hết cho 3 hoặc 5 trong phạm vi từ 1 đến m
Tính tổng các số chia hết cho 3 và 5 trong phạm vi từ 1 đến m
Cho chương trình dưới đây:
var g: text; i: integer;
begin
assign (g, ‘C:\DLA.txt’);
rewrite (g);
for i:= 1 to 15 do if i mod 2 < > 0 then write(g, i, ‘ ’);
close(g);
readln
end.
Tệp DLA.txt lưu kết quả nào sau khi chạy chương trình trên?
1 3 5 7 9 11 13 15
4 6 8 10
. 2 4 6 8 10 12 14
1 3 5 9
