Contoh program perulangan dan sub perulangan pada pascal

Perulangan di dalam perulangan.

Output contoh program ini , anda akan disuruh menginputkan jumlah perulangan awal kemudian jumlah sub perulangannya.

misalnya :

-saya menginputkan jumlah perulangan = 2

-dan menginputkan jumlah sub perulangan = 3

berikut screenshot output program :

dan script program :

program ulang;

uses crt;

var

           i,n,byk,sub:integer;

begin

            clrscr;

 write('Masukan jumlah perulangan = ');

            readln(byk);

            write('Masukan jumlah sub perulamgan = ');

 readln(sub);

 repeat

            n:=n+1;

            writeln;

            writeln(' ini perulangan ke ',n);

for i:= 1 to sub do

                        begin

                        writeln('  ini perulangan ke ',n,' yang ke ',i);

                        end;

until

            (n = byk);

            readkey;

end.

Seperti program di atas jika tanpa menggunakan perulangan bayangkan berapa banyak anda harus melakukan pengetikan, dengan adanya perulangan maka akan membantu dalam mempersingkat dan membuat simpel program yang dibuat.