Friday, May 13, 2011

31. ตัวอย่าง Procedure (Procedure Example)


Program testProcedure;
uses crt;
procedure drawStar(num:integer);
var i:integer;
begin
for i:=1 to num do
write('*');
writeln;
end ;
BEGIN
drawStar(5);
drawStar(10);
END;

No comments:

Post a Comment