Bài 18 - Ví dụ về cách viết và sử dụng chương trình con

LOGO
Nguyễn Đức Cảnh
Nguyễn Đức Cảnh
Nguyễn Đức Cảnh
Ví dụ 1: Xét hình chữ nhật có dạng sau.
* * * * * * * * * *
* *
* *
* * * * * * * * * *
Ta có thể vẽ hình chữ nhật trên bằng cách sau.
Writeln(‘* * * * * * * * * *’);
Writeln(‘* *’);
Writeln(‘* *’);
Writeln(‘* * * * * * * * * *’);
1. Cách viết và sử dụng thủ tục:
Nguyễn Đức Cảnh
1. Cách viết và sử dụng thủ tục:
Ví dụ: Thủ tục vẽ hình chữ nhật
Program VD_Thutuc1;
Procedure ve_HCN;
Begin
Writeln(‘* * * * * * * * * *’);
Writeln(‘* *’);
Writeln(‘* *’);
Writeln(‘* * * * * * * * * *’);
End;
Begin
Ve_HCN;
Writeln;writeln;
Ve_HCN
Writeln;writeln;

Ve_HCN;
end.
Nguyễn Đức Cảnh
1. Cách viết và sử dụng thủ tục:
a. Cấu trúc của thủ tục
Thủ tục có cấu trúc như sau:
Procedure <Tên thủ tục>[(<Danh sách các tham số>)];
[<Phần Khai báo>]
Begin
[<Dãy các lệnh>]
End;
Chú ý: Sau tên dành riêng End kết thúc chương trình chính là
dấu chấm (.) Còn sau End kết thúc thủ tục là dấu chấm phẩy (;)
Nguyễn Đức Cảnh
1. Cách viết và sử dụng thủ tục:
a. Ví dụ về thủ tục
**********************************
* *
* *
* *
**********************************
Dài
Vẽ cạnh trên của HCN
Vẽ hai cạnh bên
Vẽ cạnh dưới
FOR i:=1 to chdai DO WRITE( * ); WRITELN;‘ ’
FOR J:=1 to chrong -2 DO
Begin
Write( * );‘ ’
For i:=1 to chdai - 2 do Write( );‘ ‘

Writeln( * )‘ ’
end;
FOR i:=1 to chdai DO WRITE( * ); WRITELN;‘ ’
Rộng