Golden Lion

Contoh Program For..Do pada Algoritma

maka hasilnya akan seperti ini:

 

 

While..Do (bilangan ganjil)

 Hasil Program setelah di Run

 

If..Then (bilangan ganjil_genap)

hasil program setelah di Run

Repeat..Until

     Uses crt;
     Var
     A : byte;
     begin
     clrscr;
     A := 1;
     repeat
     write (A,' ');
     A := A + 1;
     until A>= 11;
     readln;
    end.

 Hasil program setelah di Run

  Note: tekan F9 untuk Run program