Sabtu, 07 Mei 2011

turbo pascal 1.5 - perulangan bersarang 5


program segitigabintang; {program menampilkan karakter bintang menjadi piramyd sebanyak N baris}
uses wincrt;

var
     i,j,N :integer;

begin
     write('berapa jumlah baris bintang : '); readln(N);
     writeln;

     for i:=1 to N do
     write(' ');
     write('*');
     writeln;


     for i:=N downto 2 do
     begin
          for j:=i downto 2 do
          begin
               write(' ');
          end;

          for j:=i to N do
          begin
               write('*');
          end;

          write('*');

          for j:=i to N do
          begin
               write('*');
          end;
          writeln;
     end;

end.

Tidak ada komentar:

Posting Komentar