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

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

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

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

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

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

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

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

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

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

Cho chương trình sau:

Program C_trinh_con;

Var d: char;

 X1: string;

Procedure Xoa (a: char ; var Xt:string);

 Var j: byte;

 Begin

  j := pos (a, Xt);

  while j < > 0 do

  begin

   delete(Xt, j, 1);

    j := pos(a, Xt);

  end;

 End;

Begin

 X1:=’SEPTEMBER’;

 d := ‘E’;

 Xoa (d, X1);

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 = ‘Tran Hung Dao’, hàm length(s) cho giá trị bằng:

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