Học Pascal/Thủ tục
Thủ tục
sửaThủ 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ửaProcedure <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ửaUses 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ửaChươ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
Doi(a,b):
Kết quả:
|