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

Nguyễn Đức Cảnh
CHƯƠNG TRÌNH CON VÀ LẬP TRÌNH CÓ CẤU TRÚC
Chương 6:
BÀI 18:
Nguyễn Đức Cảnh
VÍ DỤ VỀ CÁCH VIẾT VÀ
SỬ DỤNG CHƯƠNG TRÌNH CON
Nguyễn Đức Cảnh
BÀI 18:
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
BÀI 18:
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
BÀI 18:
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 [()];

[]

Begin
[]
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
BÀI 18:
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