MEMBUAT PROGRAM LOOP DALAM PASCAL

  ehm...!!kali ini saya pasang muka serius,..!!
baik kita mulai..!
   Program loop dalam pascal artinta program pengulangan,..!!dimana dalam pemrogram tersebut ada perintah pengulangan statement berdasar perintah-perintah yang dikehendaki (n X),..!!
   Perintah-Perintah tersebut yaitu FOR,WHILE, & REPEAT..!!yang saya tahu...!!!hehehe,...!!!
   Mungkin susah jika tidak ada gambaran secara langsung,sperti saya yang selalu bingung ngurusin anak dan istri..!!hahahaa...!!
  Ok,langsung aja ke TKP

1.Pakai perintah "FOR"

   uses crt;
   var
     i:integer;
   begin
   writeln ('tampilkan deret bilangan');
   For i:=1 to 5 do
   writeln (i);
   readln;
   end.                                        

2.Pakai perintah "WHILE"

   uses crt;
   var
     i:integer;
   begin
     i:=1;
   while (i<=5) do
   begin
   writeln (i);
     i = i+1 ;
   end;
   readln;
   end.

3.Pakai perintah "REPEAT"
  
   uses crt;
   var
     i:integer;
   begin
     i:=1;
   Repeat
     writeln (i);
     i: = i+1;
   until (i=6);
   readln;
   end.

program dasar diatas masih dapat dikembangkan,...!!!
o y,pesan saya,manusia tidak luput dari kesalahan,apabila ada ksalahan mohon koreksinya...!!!cheers...!!