Câu hỏi:

Giả sử ta có hàm max(A, B: integer) : integer; để tìm số lớn hơn trong hai số A và B. Cần sử dụng hàm max trên như thế nào để tìm được số lớn nhất trong ba số A, B, C?

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:=’SUCCESSFUL’;

 d := ‘S’;

 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.

Tệp f1 có dữ liệu  để đọc 3 giá trị trên tương ứng với 3 biến x, y, z ta sử dụng câu lệnh:

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?

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

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

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

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

delete(s1, 1, 3);

write(pos (s1, s2));

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