FOR-TO, REPEAT-UNTIL, WHILE-DO "OUTPUT BINTANG"

Contoh Program dengan “ OUTPUT BINTANG “

1.    FOR – TO – DO

       Program menampilkan_bintang;

       Uses crt;

       Var I, J , n : integer ;

       Begin

       Writeln (‘ Program Menampilkan Bintang’);

       Writeln (‘==========================’);

       Writeln;

       Write (‘Masukkan Jumlah Baris :    ‘);readln(n);

       FOR :=  1  TO n DO

       Begin

       J := 1 TO I DO

      Write (‘ * ‘);

      Writeln;

      End;

      Readln;

      End.

     Output :

          

           Program Menampilkan Bintang

           ==========================

            Masukkan Jumlah Bintang : (dimisalkan ‘4’)

            *

            *   * 

            *   *   *

            *   *   *   *

    2.      REPEAT – UNTIL

            Uses crt;

            Var I , J, jml : byte;

            Begin

            Clrscr;

            Write ( ‘ Jumlah Bintang :     ‘ ); readln(jml) ;

            J := 0 ;

            Repeat

            I := 0 ;

            J :=  J+ 1 ;

            Repeat

Write (‘ * ‘);

I := I + 1 ;

Until I = J;

Writeln;

Until J := jml

            Readln;

            End.

Output

            

           Jumlah Bintang : (dimisalkan 5 )

            *

            *   *

            *   *   *

            *   *   *   *

            *   *   *   *   *

    3.     WHILE – DO

          Program menampilkan_bintang;

          Uses crt;

          Var I, J , n : integer ;

          Begin

          Write (‘Jumlah Bintang :  ‘);readln(n);

           I := 0 ;

          While (I(=n) do

          Begin

          J := 0 ;

          While (J(I) do

          Begin

          Write (‘ * ‘);

          J := J + 1;

          End;

          Writeln;

          I := I + 1 ;

          End;

          Readln;

          End.

       Output :

            

            Jumlah Bintang : (dimisalkan ‘ 4 ‘)

            *

            *   *

            *   *   *

            *   *   *   *