Contoh Program Bilangan Deret Menggunakan FOR BERSARANG Pada Turbo Pascal

Berikut ini adalah beberapa buah contoh program bilangan urut yang menggunakan for pada turbo pascal. Program ini menggunakan bentuk for bersarang atau for dalam for. Pada setiap contohnya akan menghasilkan pola output yang berbeda dan kita bisa menetukan berapa batas atau banyak deretnya.

1.      Contoh pertama

Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:

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 fordalamfor1;

var

 baris, kolom, batas : integer;

begin

     write('masukan batas: ');readln(batas);

     writeln;

     for baris := 1 to batas do

         begin

              for kolom := 1 to batas do

                  write (baris : 2);

                  writeln;

              end;

     readln;

end.

2.      Contoh kedua

Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:

1

2 2

3 3 3

4 4 4 4

5 5 5 5 5

Kode Program:

program fordalamfor2;

var

 baris, kolom, batas : integer;

begin

     write('masukan batas: ');readln(batas);

     for baris := 1 to batas do

         begin

              for kolom := 1 to baris do

                  write (baris : 2);

                  writeln;

              end;

     readln;

end.

3.      Contoh ketiga

Pada contoh ini akan menghasilkan output seperti berikut jika nilai batasnya kita isikan 5:

1 1 1 1 1

2 2 2 2

3 3 3

4 4

5

Kode Program:

program fordalamfor3;

var

 baris, kolom, batas : integer;

begin

     write('masukan batas: ');readln(batas);

     for baris := 1 to batas do

         begin

              for kolom := baris to batas do

                  write (baris : 2);

                  writeln;

              end;

     readln;

end.

Hasil Program:

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