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.
16 responses to “Contoh Array”
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 :)
ih ga ngerti susah @@ help kk :(
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
Brow Bisa minta jelasin sebuah kasus yang mempunyai struktur stack G?
minta tolong donk,,,contoh program array 2 dimensi tentang perkalian. d’tunggu jwbn’x ^_^
saya di suruh buat tugas menggunakan penggabungan array,record dan repeat.dan menggunakan logika matematika tlg bantuan nya ,thankz sblmnya
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