Contoh Perulangan Pada Turbo Pascal

Perulangan Pada Turbo Pascal

1. for to do
    contoh programnya

    program for_to_do;
    uses wincrt;
    var c : integer;
    begin
         writeln ('program perulangan dengan for to do');
         for c := 1 to 10 do
         writeln (c);
    end.

   hasilnya:
  

 

2. while do
    contoh programnya

    program while_do;
    uses wincrt;
    var i : integer;
         begin
         writeln ('program perulangan dengan while');
         i := 1;
         while i <= 10 do
              begin
              writeln (i);
              i := i + 1;
              end;
         end.

    hasilnya:
  

 

3. repeat until
    contoh programnya

    program repeat_until;
    uses wincrt;
    var x, y : integer;
      begin
        writeln ('program perulangan dengan repeat until');     
        x:=1;
        repeat
        writeln (x);
        x:=x+1;
        until x > 10;
     end.

    hasilnya:
  

 

Demikian sekilas contoh perulangan pada pascal... 
terima kasih ya udah mampir...
jangan lupa komennya ya...