Perulangan For, While, Repeat Pascal

Untuk pemahaman tentang teori perulangan silahkan baca artikel ini :



Program :

program perulangan;
uses crt;

var i:integer;

begin
     clrscr;

     for i:=0 to 5 do
     begin
          write(i,',');
     end;
     writeln('Perulangan dengan For');

     i:=0;
     while i<6 do
     begin
          write(i,',');
          i:=i+1;
     end;
     writeln('Perulangan dengan While');

     i:=0;
     repeat
     begin
          write(i,',');
          i:=i+1;
     end;
     until i=6;
     writeln('Perulangan dengan Repeat');

     readkey;
end.

Hasil :

0,1,2,3,4,5,Perulangan dengan For
0,1,2,3,4,5,Perulangan dengan While
0,1,2,3,4,5,Perulangan dengan Repeat