Sekedar mengingat kembali pemrograman pascal, dan kebetulan ada temen yg tanya bagaimana untuk menampilkan output yg diinginkan teman, dengan listing program pascal..(hehe..padahal masih Newbe dengan pascal, tapi siapa takut untuk mencoba )

listing program untuk menampilkan outputdi bawah:

—————-
******
*****
****
***
**
*
—————-
uses wincrt;
var
a,b:byte;
begin
for b:=0 to 5 do
begin
for a:=5 downto a do
begin   write(‘*’);
end;
a:=a+1;
writeln;

end;
end.

untuk menampilkan output dibawah :

————–
*
**
***
****
*****
————–
uses wincrt;
var
a,b:byte;
begin
for b:=0 to 5 do
begin  
for a:=1 to a do
begin
write(‘*’);
end;
a:=a+1;
writeln;
end;
end.

Untuk menghasilkan nilai :

—————-
2,4,8,16,32
—————-
uses wincrt;
var
i:byte;
begin
i:=2;
while i< 64 do
begin
write(i,’,');
i:=i+i;
end;
end.