Pada postingan kali ini, saya akan berbagi kepada teman-teman algoritma dari proses looping (perulangan). Ini program pertamaku dalam pemrograman Pascal. teringat pas praktikum semester satu :)
hehehe....

<<Semoga bermanfaat>>

1. ALGORITMA

1.      Start

2.      Deklarasi variabel

i,j,x: integer

3.      Tetapkan Konstanta

xß0

4.      Proses

     for iß1 to 9 do

     begin

       for jß1 to i do

       begin

         write('*');

       end;

       writeln;

     end;

5.      Tampilkan hasil

6.      Stop

2. PSEUDOCODE

xß0

     for iß1 to 9 do

     begin

       for jß1 to i do

       begin

         output('*')

       endfor

     endfor

3.  BAHASA PROGRAM

{Nama : RIKI RAMADHANI}

{No.BP : 1110452032}

Program bintang;

uses crt;

var i,j,x: integer;

begin

     clrscr;

     x:=0;

     for i:=1 to 9 do

     begin

       for j:=1 to i do

       begin

         write('*');

       end;

       writeln;

     end;

repeat until keypressed;

end.

 OUTPUT