Học Pascal/Thủ tục

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ủ tục>[(<danh sách tham số>)];;
[<phần khai báo>]
Begin
  [<Dãy các lệnh>]
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