Ví dụ về cách viết và sử dụng chương trinh con

BÀI 18:
CÁCH VIẾT
VÀ SỬ DỤNG CHƯƠNG
TRÌNH CON

VD: Vẽ hình chữ nhật có dạng:
*******
* *
*******
Để vẽ hình chữ nhật như trên ta cần các lệnh sau.
Writeln(‘*******’);
Writeln(‘* *’);
Writeln(‘*******’);
Ta có thể đưa các lệnh này vào thủ tục có tên VE_HCN, mỗi
lần gọi thủ tục này thì một HCN được in ra:
1. Cách viết và sử dụng thủ tục:

Program CT1;
Procedure VE_ HCN;
Begin
Writeln(‘*******’);
Writeln(‘* *’);
Writeln(‘*******’);
End;
Begin
VE_ HCN;
Writeln; writeln;
VE_ HCN;
Writeln; writeln;
VE_ HCN;

Readln;
End.
Bắt đầu thủ tục
Kết thúc thủ tục.
Gọi thủ tục vẽ HCN
Để cách hai dòng
CHƯƠNG TRÌNH:

a. Cấu trúc của thủ tục:
Procedure <
Tên thủ tục>
[(<Danh sách tham số>)];
[<Phần khai báo>]
Begin
{… dãy các lệnh (thân của thủ tục)..}
End;
Trong đó:
-
Phần đầu thủ tục : trước hết là tên dành riêng Procedure, tiếp
theo sau là Tên thủ tục. 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, các kiểu, các biến
và cũng có thể khai báo hàm và thủ tục khác sử dụng trong thủ
tục.
-
Dãy câu lệnh đặt giữa cặp Begin …. End; tạo thành thân của
thủ tục.

Procedure VE_HCN ( Dai, rong: integer);

-
Dòng khai báo trên có nghĩa là: vẽ HCN có kích thước khác
nhau tùy theo giá trị Dai , rong.
-
Chương trình sau mô tả vẽ HCN với hai tham số Dai, rong
trên.
b. Ví dụ về thủ tục:
VD: Vẽ hình chữ nhật có dạng:
*******
* *
*******
Sử dụng tham số dai va rong thể hiện cho chiều dài
và rộng của hình chữ nhật.

Program CT2;
Procedure VE_HCN( dai, rong: integer);
Var i, j : integer;
Begin { ve canh tren cua hcn}
For i:=1 to dai do write (‘ * ’);
Writeln;
{ ve 2 canh ben }
For j:=1 to rong - 2 do
Begin
Write(‘ * ’ );
For i:=1 to dai - 2 do write(‘ ’);
Writeln( ‘ * ’ );
End;
{ ve canh duoi }
For i:=1 to dai do write(‘ * ’);
Writeln;

End;
{ chuong trinh chinh}
Begin
VE_HCN (25,10);
Writeln; writeln;
VE_HCN (5,10);
End.
*Chú ý:
-
Hai tham số trong dấu ngoặc
đơn sau tên thủ tục khi khai báo
là tham số hình thức, còn trong
lời gọi thủ tục chúng được gọi là
tham số thực tế.
-
Hai tham số dai, rong là tham
số hình thức
-Tham số 25,10,5 trong lời gọi
thủ tục là những tham số thực
tế.
-Khi khai báo tham trị thì giá trị
các tham số không thay đổi khi
kết thúc thủ tục.