Program Pascal Piramida Bintang

Program Piramida Bintang

      Program kali ini, saya membuat piramida bintang. Program ini menggunakan for to do sebagai pengulangan (looping) program. Sedikit saran, untuk program kali ini dibutukan pemahaman yang agak rumit menurut saya sendiri, karena setiap for to do dalam program akan mempengaruhi for to do program yang lain. Jadi, teman-teman harus mencermati isi setiap program kali ini. Nah berikut listingnya :


  program Piramid;
uses crt;
var
   a,b,c,d : integer;
begin
clrscr;

        a:= 5;
            for b:=1 to a do
             begin
              for c:= a downto b do
               write (' ');
                for d := 1 to b+b-1 do
                 write ('*');
                 writeln;
             end;
readln;
end.