tin 11. hk2. 17 câu đầu

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