PROGRAM PASCAL

KONDISI REPEAT

1.      Uses crt;

         Var A, B: byte;

            Begin

            Clrscr;

            A := 0 ;

            Repeat

            A := A + 1 ;

            Repeat

             B := 0 ;

             Repeat

             B := B + 1 ;

            Write ( B : 3) ;

             Until B = A;

            End ;

   Writeln;

   Until A = 4;

            Readln;

            End.

Output

1

1    2

1    2    3

1        2    3    4

2.      Uses crt;

            Var A, B: byte;

            Begin

            Clrscr;

            A := 0 ;

            Repeat

            A := A + 1 ;

            Repeat

             B := 0 ;

          Repeat

          B := B + 1 ;

            Write ( A, ‘  ‘);

Until B = A ;

            End;

Until A = 4;

Readln;

            End.

Output

                             1

                             2    2

                             3    3    3

4        4    4    4

3.      Uses crt;

            Var A, B: byte;

            Begin

            Clrscr;

            A := 5 ;

            Repeat

            B := 5 ;

            A := A – 1 ;

            Repeat

            Write ( A, ‘  ‘) ;

            B := B – 1 ;

            Until B = A ;

            Writeln;

            Writeln;

            Until A = B ;

            Readln;

            End.

Output

4

                             3   3

                             2   2   2

                             1   1   1   1