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;

-
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;