program piramida pada pascal

While di dalam while. Sebagai contoh : Menampilkan gambar

      0

    000

  00000

0000000

Kodingannya sebagai berikut:

Program piramida;

Uses Crt ;

Var Baris   , Kolom, Jumbaris : Integer ;  

Begin

      ClrScr ;

      Write (‘Jumlah Baris :’) ;

      ReadLn (Jumbaris) ;

      Baris := 1 ;

      While Baris <= Jumbaris do

      Begin

                  write (‘0’: Jumbaris + 1 – baris) ;

                  Kolom := 2 ;

                  While kolom <= (2*baris-1) do

                  Begin

                              Write (‘0’)

                              Kolom := kolom + 1 ;

                  End ;

                  Writeln ;

                  Baris := baris + 1 ;

      End;

End.

ketika di run akan terlihat seperti ini :