Contoh Program Bilangan Deret Menggunakan WHILE DO Pada Turbo Pascal

    Berikut ini adalah beberapa buah contoh program bilangan urut yang menggunakan while-do pada turbo pascal. Program ini menggunakan bentuk while bersarang atau while dalam while. Dan pada setiap contohnya akan menghasilkan pola output yang berbeda.

1. Contoh pertama

   Pada contoh ini akan menghasilkan output seperti berikut:

   1 1 1 1 1

   2 2 2 2 2

   3 3 3 3 3

   4 4 4 4 4

   5 5 5 5 5

Kode Program:

program whiledalamwhile1;

var

   a, b : integer;

begin

     a:= 1;

     while a <= 5 do

           begin

             b:= 1;

             while b <= 5 do

                   begin

                   write (a : 2);

                   b:= b + 1;

                   end;

                   writeln;

             a:= a + 1

           end;

     readln;

end.

Hasil Program:

2. Contoh kedua

   Pada contoh ini akan menghasilkan output seperti berikut:

   1

   2 2

   3 3 3

   4 4 4 4

   5 5 5 5 5

Kode Program:

program whiledalamwhile2;

var

   a, b : integer;

begin

     a:= 1;

     while a <= 5 do

           begin

             b:= 1;

             while b <= a do

                   begin

                   write (a : 2);

                   b:= b + 1;

                   end;

                   writeln;

             a:= a + 1

           end;

     readln;

end.

Hasil Program:

3. Contoh ketiga

   Pada contoh ini akan menghasilkan output seperti berikut:

   5 5 5 5 5

   4 4 4 4

   3 3 3

   2 2

   1

Kode Program:

program whiledalamwhile3;

var

   a, b : integer;

begin

     a:= 5;

     while a >= 1 do

           begin

             b:= 1;

             while b <= a do

                   begin

                   write (a : 2);

                   b:= b + 1;

                   end;

                   writeln;

             a:= a - 1

           end;

     readln;

end.

Hasil Program: