Program ini menghasilkan output seperti :
contoh:
apabila inputan yang di masukan 4 maka outputnya:
*
**
***
****
langsung aja nih programnya:
uses crt ;
var
x, y, z,i : integer ;
begin
readln (z) ;
for y:= 1 to z do
begin
for x:= z-1 downto y do
write (' ');
for i:= 1 to y do
write ('*');
writeln;
end;
readln;
end.
note:
penggunaan uses crt hanya di gunakan untuk basis DOS
dan apabila anda menggunakan TPW 1.5 gunakan uses wincrt.
