Thủ tục

sửa

Thủ tục là một tập hợp của nhiều dòng lệnh từ các lệnh mặc định để thực thi một việc.

Cú pháp

sửa
Procedure <tên th tc>[(<danh sách tham s>)];;
[<phn khai báo>]
Begin
  [<Dãy các lnh>]
End;

Trong đó:

  • <danh sách tham số> có thể có hoặc không.
  • [<phần khai báo>] dùng để xác định các hằng, kiểu, biến và cũng có thể xác định các chương trình con khác được sử dụng trong thủ tục.

Loại thủ tục

sửa
  • Thủ Tục Trống dùng để thực thi một việc mà không cần đến thông số.
  • Thủ Tục Cần Thông Số Thủ tục cần phải biết giá trị của các thông số trước khi nó thực thi chức năng của mình và trả về một kết quả

Thí dụ thủ tục trống

sửa
Uses crt;
Procedure OK; 
  Begin
    {Đổi màu màn hình cho đến khi có một phím được nhấn}
    randomize;
    repeat
       textbackground(10);
       clrscr;
       delay(500);
    until keypressed;
End;
Begin
  ok;
  readln
End.

Thủ tục cần thông số

sửa
Chương trình Giải
var a, b: integer;
Procedure Doi(var x, y:integer); 
  Begin
    a:=a+b;
    b:=a-b;
    a:=a-b;
  End;
Begin
  write('Nhập a, b: '); readln(a,b);
  Doi(a,b);
  writeln('Sau khi hoán đổi: a=',a,' và b=',b);
  readln
End.

Nhập a, b: 1 2
Ban đầu:

a=1 b=2

Doi(a,b):

a:=a+b=1+2=3
b:=a-b=3-2=1
a:=a-b=3-1=2

Kết quả:

a=2 b=1