Đề thi Học kì 2 Tin học 11 có đáp án (Đề 4)

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.

Viết chương trình:

Đọc từ tệp “DULIEU.TXT” 2 số nguyên M và N (M < N)

Tính tổng các số chia hết cho 5 trong phạm vi từ M đến N

Ghi kết quả ra tệp “KETQUA.TXT”.