Friday 7 December 2012


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... (^_^)

13 comments:

  1. asalamualaikum...
    mau tany saya dapat soal nih
    buat program u/ membuat pola perulangan
    input= masuka jumlah elemen:12
    output=11 14 12 13 16 14 15 18 16 17 20 18

    ReplyDelete
  2. mohon maaf mbak anggun,, ni pola output nya kaya gmna ya mbak??? saya masih bingung liat nya.. kok seperti gabungan angka yang di acak aja.. mohon lebih jelas.. ^_^

    ReplyDelete
  3. tolong dong kasih rumus yg sesuai outputnya

    ReplyDelete
  4. Itu kan udah sesuai outputnya gan,, mang pngen outputnya yg kaya gmna ne?? ^_^

    ReplyDelete
  5. Tuliskan program untuk menampilkan pola-pola bintang seperti berikut ini:
    1 = 1
    1+2 = 3
    1+2+3 = 6
    1+2+3+4 = 10

    mohon maaf, agan boleh numpang tanya nggk !!!!
    bagaimana bentuk koding pada contoh di atas, karena kebetulan saya dapat tugas untuk algoritma seprti contoh tersebut, mohon beritahu kodingan ntuk contoh tersebut !!!!!!!!

    salam kenal !!!!!!!!!!

    ReplyDelete
  6. kalau yang ini gimana aku ada tugas
    1
    22
    333
    4444
    55555
    4444
    333
    22
    1

    ????? :) thanks

    ReplyDelete
  7. ada yg tau coding pascal buat menampilkan seperti ini nggak :

    22 1
    2 1
    1
    1 2
    1 22

    mohon bantuanya :)

    ReplyDelete
  8. tolong bantuannya bagaimana membuat algoritma while bersarang?

    1
    22
    333
    4444
    55555

    buat kan algoritma while bersarang nya. terimakasih

    ReplyDelete
  9. Gan, bisa buat program yg outputnya sbb :
    1
    2 6
    3 7 10
    4 8 11 13
    5 9 12 14 15

    ReplyDelete

Silahkan tinggalkan komentar anda tentang tulisan ini...

Mutiara Hati

"Maha Suci Allah yang menjadikan di langit gugusan bintang-bintang dan Dia juga menjadikan padanya matahari dan bulan yang bersinar" (QS. Al-Furqan 25 : 61)

Your System

IP
"Mohon maaf.. Lagi maintenance..."

Popular Posts