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.

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.

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:

Semoga artikel Contoh Program Bilangan Deret Menggunakan WHILE DO Pada Turbo Pascal ini bermanfaat. Selamat mencoba dan semoga berhasil... (^_^)