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

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 3 trong phạm vi từ M đến N

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

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:

Tham số được đưa vào khi gọi chương trình con được gọi là:

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

Để 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 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.

Để đọ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:

Cho s = ‘Tran Hung Dao’, hàm length(s) cho giá trị bằng:

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

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

delete(s1, 1, 3);

write(pos (s1, s2));

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

Muốn khai báo x,y là tham số giá trị (x, y thuộc kiểu integer) trong thủ tục có tên là “Hoan_doi” thì khai báo nào sau đây là đúng:

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 đ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?

Để biết con trỏ tệp đã ở cuối dòng của tệp f hay chưa, ta sử dụng hàm:

Cho xâu kí tự sau: s:= ‘Truyen Kieu-Nguyen Du’. Lệnh nào sau đây cho kết quả ‘Nguyen Du’

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