Contoh Array

Apr 02, 2009 13 Comments by

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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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, program array pascal, contoh program array di pascal, contoh program pascal array 1 dimensi, contoh array 2 dimensi.

Related posts:

  1. Hendra Array & Record
  2. Aljan Array dan Record
  3. Program dengan Array of String
  4. ARRAY PADA PASCAL
  5. Dani Array
  6. ARRAY / LARIK
  7. ARRAY DAN RECORD
  8. Program Input Nilai Mahasiswa
  9. Pengertian If..Else dan Contoh Programnya
  10. Contoh Looping
Pascal

About the author

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!

13 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 :)

Leave a Reply