Contoh Array
Apr 02, 2009
13 Comments
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:
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
Coba di lihat di :
Program dengan Array of String
untuk membaliknya perlu sedikit perubahan pada Program dengan Array of String, yaitu pada baris 13 :
for a := 1 to 3 do
menjadi
for a := 3 downto 1 do
semoga membantu… :)
bisa kasih contoh gx array 2 dimensi menggunakan perulangan ‘While-Do’ & ‘Repeat-Until’??
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….
saya di suruh membuat program alphabet menggunakan array,dari huruf a-z,,gimana caranya….
mas bsa buatin 2 soal ga tntng array 1 dimensi n 2 dimensi
dan jawabannya thanks
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 …..
minta tolong gan contoh program array 2 dimensi
mohon bantuananya, terimakasih :)