Câu hỏi:

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.

A.

Câu 1:

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?

A. max(A; B; C);

B. max(A; max(B, C);

C. max(A, B, C);

D. max(max(A, B),C);

Câu 2:

Để đọc dữ liệu từ biến tệp f1 chứa 2 biến a, b ta sử dụng câu lệnh:

A. read(f1, a, b);

B. write(f1, a, b);

C. readln(a, b, f1);

D. writeln(a, b, f1);

Câu 3:

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

A. ‘ABC’

B. ‘BCD’

C. ‘CDE’

D. ‘DEF’

Câu 4:

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

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

A. copy(s, 1, 11);

B. copy(s, 1, 12);

C. delete(s, 1, 11);

D. delete(s,1, 12);

Câu 5:

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

A. f2 := ‘KQ.TXT’;

B. ‘KQ.TXT’ := f2;

C. Assign(‘KQ.TXT’, f2);

D. Assign(f2, ‘KQ.TXT’);

Câu 6:

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à:

A. Tham số giá trị

B. Tham số hình thức

C. Tham số biến

D. Tham số thực sự