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

Nguyễn Đức Cảnh... Cách viết và sử dụng thủ tục:... Nguyễn Đức Cảnh1.. 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 []; [] Begin [] End;

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

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

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;‘*’); WRITELN; ’); WRITELN;

FOR J:=1 to chrong -2 DO Begin

Write( * );‘*’); WRITELN; ’); WRITELN;

For i:=1 to chdai - 2 do Write( );‘*’); WRITELN; ‘*’); WRITELN;

Writeln( * )‘*’); WRITELN; ’); WRITELN;

end;

FOR i:=1 to chdai DO WRITE( * ); WRITELN;‘*’); WRITELN; ’); WRITELN;

Rộng