TURBO PASCAL perulangan For To Do / Down To Do

Perulangan  Positif For To

Bentuk umum statement perulangan positif adalah :

For variabel :=nilai_awal To nilai_akhir Do

Statement;

Contoh:

Program Coba;

Uses Wincrt;

Var

                Jumlah_Tampil : integer;

Begin

                For Jumlah_Tampil:=1 To 5 Do

                Writeln(‘Turbo Pascal’);

End.

Program Coba_2;

Uses Wincrt;

Var

                Jumlah_tampil : integer;

Begin

For Jumlah_Tampil:=1 To 5 Do

                Begin      

                Write(‘jumlah_tampilan’);

                Writeln(‘Pascal’);

                End;

End.

Perulangan  Negatif (ForDownTo Do)

Bentuk umum statement perulangan negatif adalah :

For variabel :=nilai_awal DownTo – Do;

Statement;

Contoh:

Program Coba_3;

Uses Wincrt;

Var

                Jumlah_Tampil : integer;

Begin

For Jumlah_Tampil:=5 DownTo 1 Do

                Begin

                Write(‘Jumlah_Tampilan)’;

                Writeln(‘Turbo Pascal’);

                End;

End.

Contoh Input Perulangan  Bersarang

Program Coba_4;

Uses Wincrt;

Var

                I,J : Integer;

Begin

For I:=1 To 5 Do

                Begin

                For J:=1 To 3 Do

                Writeln(‘I’);

                Writeln(‘J’);

                End;

End.