Cho đoạn chương trình sau:

Var g:text;

    I:integer;

Begin

 Assign(g, ‘C:\DLA.txt’);

 Rewrite(g);

 For i:=1 to 10 do

 If i mod 2 = 0 then write(g, i);

 Close(g);

 Readln

End.

Sau khi thực hiện chương trình trên, nội dung của tệp ‘DLA.txt’ gồm những phần tử nào?

Để gắn tệp DL.TXT cho biến tệp f1 ta sử dụng câu lệnh:

Tham số được khai báo trong chương trình chính được gọi là:

Để phân biệt giữa tham biến và tham trị, trước tham biến người ta dùng từ khoá:

Cho chương trình sau:

Program Baitap;

Var S1, S2 : string;

Procedure Xu_li_xau(a:string; var St:string);

 Var i: byte;

 Begin

  i := pos (a, St);

  while i < > 0 do

  begin

   delete(St, i, 4);

   i := pos(a, St);

  end;

 End;

Begin

 S1 := ‘hoc nua, hoc mai;

 S2 := ‘hoc’;

 Xu_li_xau(S2,S1);

End.

a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:

b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

Cho s = ‘ABCDEF’, hàm copy (s, 4, 3) cho giá trị là:

Trong lời gọi thủ tục, các tham số hình thức được thay bằng các giá trị cụ thể được gọi là:

Cho chương trình sau:

procedure thutuc (a, b: integer);

Begin

…

End;

Trong chương trình chính có thể gọi lại chương trình con như thế nào:

Cho đoạn chương trình sau:

s1 := ‘abcd’; s2: ‘abab’;

if s1 > s2 then write(s1) else write(s2);

Kết quả in ra màn hình là:

Cho đoạn chương trình sau:

s1 := ‘2345’; s2: ‘1234’;

if length(s1) > length(s2) then write(s1) else write(s2);

Kết quả in ra màn hình là:

Câu lệnh mở biến tệp f2 để ghi dữ liệu có dạng:

Để ghi 2 biến CV và DT vào biến tệp f2 ta sử dụng câu lệnh:

Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’

Lệnh nào sau đây cho kết quả ‘Truyen Kieu’

Cho đoạn chương trình sau:

s1 := ‘123c’; s2 := ‘abcd’;

delete(s1, 1, 3);

write(pos (s1, s2));

Kết quả in ra màn hình là:

Khai báo 2 biến xâu a, b nào sau đây là sai:

Giả sử a = 5; b = 9; c = 15; để ghi các giá trị trên vào tệp f2 có dạng là  ta sử dụng câu lệnh: