Perulangan Pada Turbo pascal

Struktur Perulangan Yang Diketahui

Perulangan Yang Diketahui :

Digunakan untuk pengulangan proses yang sudah pasti jumlah pengulangan prosesnya. 

·         Struktur Perulangan FOR..TO..DO (Positif)

Perulangan dengan penghitung dari kecil ke besar.

FOR var cacah := Awal To Akhir DO

Contoh program :

Uses wincrt;

Var

                i : integer;

Begin

                For i := 1 to 5 do

                                Writeln(‘STMIK Wicida’);

End.

·         Struktur Perulangan FOR..DOWNTO..DO

Perulangan dengan penghitung dari besar ke kecil.

FOR var cacah := Awal DownTo Akhir DO

Contoh program :

Uses wincrt;

Var

                i : integer;

Begin

                For i := 5 DownTo 1 Do

                                Write(i:3);

End.

·         Struktur Perulangan FOR..TO..DO tersarang

Perulangan tersarang adalah perulangan yang berada didalam perulangan yang lainnya. Pada perulangan ini perulangan yang lebih dalam akan diproses terlebih dahulu sampai selesai, lalu dilanjutkan dengan perulangan yang lebih luar.

Contoh program :

Uses wincrt;

Var

                i, j : integer;

Begin

                For i := 1 to 3 do

                Begin

                                For j := 1 to 2 do

                                                Writeln(i:4, j:2)

                End;

End.

Struktur Perulangan Dengan Kondisi 

Perulangan Dengan Kondisi :

·         WHILE <kondisi> DO

Salah satu perintah untuk mengulang proses (perintah) yang sama, dengan didahului oleh suatu persyaratan. Pengulangan proses akan dikerjakan jika persayaratan yang diberikan kondisinya terpenuhi.

Contoh program :

Uses wincrt;

Var

                i : integer;

Begin

                i := 1;

                While i <= 10 do

                Begin

                                Writeln(‘STMIK Wicida’);

                                i := i + 1;

                End;

End.

·         WHILE <kondisi> DO tersarang

Contoh program :

Uses wincrt;

Var

a,b : integer;

Begin

     a := 1;

     While a < 4 do

     Begin

                b := 1;

while b < 3 do

          begin

               Writeln(a:3, b:2);

               b := b + 1;

          end;

          a:= a+ 1

     end;

End.

·         REPEAT..UNTIL

Digunakan untuk mengulang statement-statement atau blok statement sampai (until) kondisi yang diseleksi di-until tidak terpenuhi.

Contoh program :

Uses wincrt;

Var

                i : integer;

Begin

                i := 0;

                Repeat

                                i := i + 1;

                                Writeln(i);

                Until  i = 5

End.

·         REPEAT..UNTIL tersarang

Contoh program :

Uses wincrt;

Var

                a,b,c : real;

Begin

                Writeln(‘Sisi A      Sisi B        Sisi C’);

                a := 1;

                Repeat

                                b := 0;

                                Repeat

                                                c := sqrt(a*a + b*b);

                                                Writeln(a:6:2, b:9:2, c:9:2);

                                                b := b + 5;

                                Until b > 25;

                                a := a + 1;

                Until a > 3;

End.