Friday, May 13, 2011

32. การใช้งาน procedure 2 (Procedure 2)

ที่กล่าวไปในหัวข้อที่แล้วเป็น procedure ที่มีการส่งค่า แต่ในหัวข้อนี้จะกล่าวถึง procedure ที่ไม่มีการส่งค่าให้ procedure

1) ส่วนประกาศ Procedure
procedure drawline;
var count:byte;
begin
for count:=1 to 30 do
write('*');
writeln;
end;

2) ส่วนเรียกใช้ Procedure
drawline;

No comments:

Post a Comment