Contoh Array

Apr 02, 2009 16 Comments by Nu

Pada source array berikut ini, dibuat suatu program untuk menyimpan array sebanyak 100 (max), pada awalnya program akan meminta jumlah data yang akan di masukkan. Dalam memberikan nilai pada array, akan dilakukan pengacak-an serta pengecekan nilai yang dihasilkan. Nilai yang dihasilkan kemudian ditampilkan.

uses wincrt;
var X : array[1..100] of integer;
a,b,n,r : integer;
beda : boolean;
begin
  write('Banyaknya data : ');readln(n);
  if n > 100 then begin
    writeln('Melebihi batas, (tidak boleh lebih dari 100)');
    exit;
  end;
  for a:=1 to n do begin
    repeat
      r:=random(100)+1;
      b:=1;beda:=true;
      repeat
        if r=x[b] then beda:=false else inc(b);
      until (b>a-1) or (beda=false);
    until (beda);
    x[a]:=r;
  end;
  writeln;
  for a:=1 to n do write(X[a],' ');
end.

Kata Kunci

contoh array, contoh program pascal array, contoh program array pascal, contoh pascal array, contoh pascal, contoh array pada pascal, contoh array 2 dimensi pascal, program array pascal, contoh program array di pascal, contoh program mencari jumlah hari dalam sebulan dalam array.

Pascal
Nu

Tentang Penulis

Mantan Tentor SD dan SMP, mantan Guru SMA, mantan Dosen PT, mantan IT Helper, mantan Programmer, mantan IT Analyst.... Sekarang... Berusaha jadi pengangguran, masih muda, masih belajar.... Jangan panggil saya pak!... Butuh diskusi cepat? colek di twitter @nusinau

16 Responses to “Contoh Array”

  1. takirey says:

    Mmm..
    saya pnah dsuruuh mmbuat proram seperti ini :
    input 1 : array
    input 2 : tidak
    input 3 : susah

    output : susah tidak array

    disuruuh mnggunakan array of string..

    bgaimnaa mmbwt prgramnyaa,, mhon pnjelasan,,

    terimaa kasiih

  2. ar says:

    bisa kasih contoh gx array 2 dimensi menggunakan perulangan ‘While-Do’ & ‘Repeat-Until’??

  3. Egi Mardareta says:

    bisa tlg buatin program array dr soal ne ga’….

    Gol GAji Pokok Jabatan Tunjangan Jabatan

    1 1.500.000 tetap 500.000
    tidak tetap 300.000

    2 2.000.000 tetap 750.000
    tidak tetap 500.000

    3 3.000.000 tetap 1.000.000
    tidak tetap 800.000

    tunjangan = 15.000/jam
    pajak = 15% dari gaji pokok
    total = gaji pokok+ tunj jabatan + tunj lembur – pajak

    dengan output
    Daftar Gaji Karyawan

    Nip Nama Golongan Jabatan Lembur Gaji Pokok Tunj Jabatan Tunj lembur Total

    tolong ya….
    butuh cepat ne…
    makasih sebelumnya….

  4. lulut kuswantoro says:

    saya di suruh membuat program alphabet menggunakan array,dari huruf a-z,,gimana caranya….

  5. imay ismail says:

    mas bsa buatin 2 soal ga tntng array 1 dimensi n 2 dimensi

  6. imay ismail says:

    dan jawabannya thanks

  7. ipin says:

    bagaimana cara menjumlahkan isi dari semua larik …
    misal larik sudah ditentukan 10 ….
    truz kan isi dari larik tsb diisi oleh kita …
    cara menjumlahkan semua isi array itu gmn???
    code nya …..

  8. Josaphat says:

    minta tolong gan contoh program array 2 dimensi
    mohon bantuananya, terimakasih :)

  9. Fitri says:

    ih ga ngerti susah @@ help kk :(

  10. moens says:

    bisa d bantuin g q dpet soal gni:
    program array yg d dlamX ad data nama, tmpat lahir, tgl lhir, alamat.. data yg sdah d smpan u 20 urang
    n pncrianX bisa dr nama/tmpat lhir/tgl lhir/ alamat
    n pncrianX juga dr 2 vriable atau lebih

  11. Sule says:

    Brow Bisa minta jelasin sebuah kasus yang mempunyai struktur stack G?

  12. rahmi says:

    minta tolong donk,,,contoh program array 2 dimensi tentang perkalian. d’tunggu jwbn’x ^_^

  13. beni malino says:

    saya di suruh buat tugas menggunakan penggabungan array,record dan repeat.dan menggunakan logika matematika tlg bantuan nya ,thankz sblmnya

  14. Agung says:

    minta tolong dong gan bantuin bikin program untuk melayani pemesanan tiket dan menghitung : Total (Potongan, Jasa Pemesanan dan Biaya Tiket) setiap hari..

    soal..!

    Pemesanan tiket kereta argo jati, melayani pemesanan tiket Cirebon-Jakarta dan Jakarta-Cirebon sebanyak N tiket setiap hari dengan tarif Rp.95.000,-
    Data pemesanan tiket terdiri dari : No.Tiket, No.Kereta, No.Tempat duduk, Jam berangkat, jam datang, Tanggal Berangkat dan kode penumpang.
    Kelompok dan potongan ditentukan berdasarkan kode penumpang dengan ketentuan :

    Kode Penumpang Kelompok Potongan
    P01 Dewasa 0%
    P02 Anak-Anak 10%
    P03 Lanjut Usia 15%

    Jasa pemesanan = 3% dari tarif
    Biaya Tiket= tarif-potongan+Jasa Pemesanan

Leave a Reply