Program Perulangan REPEAT..UNTIL di PASCAL

Program Perulangan REPEAT..UNTIL di PASCAL, satu lagi program perulangan di pascal untuk anda dan untuk kita semuaa.

Program I

                       

                        Uses wincrt;

             Var ulang : Integer;

                  Begin

                        Ulang:=0;

                  Repeat

                        Ulang:=ulang+1;

                              Writeln(ulang);

                  Until ulang=5;readln;

             End.

Program II

            Uses wincrt;

Var

             N : Integer;

       Begin

            Clrscr;

             N := 1;

          Repeat

                Write('Looping ke-',N);

                Writeln(' PASCAL');

                N := N + 1;

          Until N > 5;

                Readln;

                       End.