ARRAY / LARIK

May 30, 2009 No Comments by Sahabat

Array (larik ) adalah tipe terstruktur yang terdiri dari sejumlah komponen yang
mempuyai tipe sama.

B.U :
Array [ 1 . . 20 ] of tipe_data ; (Dimensi 1)

B.U :
Array [1 . . 3 , 1 . . 2] of tipe_data; (Dimensi 2)

Contoh
Program Array :

Uses crt ;

Var

Nama : array [1..30 ] of string ;

Tugas, uts, uas, absen : array [1..30] of integer ;

Rata : array [1..30] of real ;

x , jd : byte;

BEGIN

CLRSCR ;

Write (

Masukan Jumlah data :

) ; readln ( jd ) ;

For x : = 1 to jd do

begin

Writeln (

*****************************

) ;

Writeln (

PENILAIAN UJIAN MAHASISWA BSI

) ;

Writeln (

*****************************

) ;

Write (

Input Nama :

) ; readln (nama[x] ) ;

Write (

Input Nilai Tugas :

) ; readln (tugas[x] ) ;

Write (

Input Nilai Absen :

) ; readln (absen[x] ) ;

Write (

Input Nilai UTS :

) ; readln (uts[x] ) ;

Write (

Input Nilai UAS :

) ; readln (uas[x]) ;

Rata[x]:=(0.1*tugas[x])+(0.2*absen[x])+(0.3*uts[x])+(0.4*uas[x]);

End ;

CLRSCR ;

For i : = 1 to j do

Begin

Writeln (

*****************************

) ;

Writeln (

PENILAIAN UJIAN MAHASISWA BSI

) ;

Writeln (

*****************************

) ;

Writeln (

Nama :

, nama[i] ) ;

Writeln (

Nilai Tugas :

, tugas[i] ) ;

Writeln (

Nilai Absen :

, absen[i] ) ;

Writeln (

Nilai UTS :

, uts[i] ) ;

Writeln (

Nilai UAS :

, uas[i]) ;

Writeln (

****************************

) ;

Writeln (

Rata-rata :

, rata : 1: 0 ) ;

Readln ;

End;

END.

Contoh dari Program Array

program ayam_goreng;

uses crt;

var

i,b:byte;

jenis,kdjenis:array [1..50]of string;

banyak,jmlharga,harga:array [1..50]of real;

totb,ppn,totjml,total:real;

begin

clrscr;

writeln(‘Ayam Goreng Fried Chicken’);

writeln(‘========================’);

writeln(‘Kode Jenis potong Harga’);

writeln(‘=============================’);

writeln(‘D Dada 3000 ‘);

writeln(‘P Paha 2500 ‘);

writeln(‘S Sayap 1500 ‘);

writeln(‘=============================’);

write(‘Masukan Jumlah Jenis : ‘);readln(b);

for i:=1 to b do

begin

writeln;

writeln(‘Jenis Ayam ke- ‘,i);

writeln;

write(‘Jenis Ayam Bagian [D/P/S] : ‘);readln(kdjenis[i]);

write(‘Jumlah Beli / Potong : ‘);readln(banyak[i]);

end;

writeln; clrscr;

writeln(‘ PROGRAM AYAM GORENG FRIED CHICKEN’);

writeln(‘======================================================================’);

writeln(‘NO JENIS POTONG HARGA SATUAN BANYAK BELI
JUMLAH HARGA ‘);

writeln;

totb:=0;

for i:=1 to b do

begin

if kdjenis[i]=’D’ then

begin

jenis[i]:=’Dada’;

harga[i]:=3000;

end

else if kdjenis[i]=’P’ then

begin

jenis[i]:=’Paha’;

harga[i]:=2500;

end

else if kdjenis[i]=’S’ then

begin

jenis[i]:=’Sayap’;

harga[i]:=1500;

end

else

begin

jenis[i]:=’Kepala’;

harga[i]:=1000;

end;

jmlharga[i]:=harga[i]*banyak[i];

totb:=totb+jmlharga[i];

ppn:=totb*0.1;

totjml:=totjml+banyak[i];

total:=totb+ppn

end;

for i:=1 to b do

begin

writeln(i:1,jenis[i]:9,harga[i]:14:0,banyak[i]:18:0,jmlharga[i]:19:0);

end;

writeln(‘=================================================================’);

writeln(‘ Jumlah Potong :
‘,totjml:2:0);

writeln(‘ Jumlah bayar :
‘,totb:2:0);

writeln(‘ PPN 10 % :
‘,ppn:2:0);

writeln(‘ Total bayar :
‘,total:2:0);

readln;

end.

Contoh Array Nilai siswa

uses crt;

var Nilai : array[1..50] of real;

jumlah, rata : real;

i,a, JumDat : byte;

nama : string;

begin

clrscr;

{jumlah:=0;}

writeln(‘ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(‘————-‘);

write(‘Nama Mahasiswa =’ );readln(nama);

Write(‘Berapa Jumlah data = ‘);readln(JumDat);

for i := 1 to Jumdat do

begin

Write(‘Nilai Praktiklum ke
‘,i,’=’);Readln(Nilai[i]);

end;

jumlah:=0;

for i:= 1 to JumDat do

begin

Jumlah := jumlah + Nilai[i];

rata := Jumlah/JumDat;

end;

writeln;

clrscr;

writeln(‘Nama Mahasiswa =’,nama);

for i := 1 to jumdat do

begin

writeln(‘Nilai Praktekm ke-‘,i,’
=’,nilai[i]:3:0);

end;

writeln(‘Total Nilai = ‘, jumlah:8:0);

writeln(‘Nilai Rata – rata = ‘, Rata:8:1);

readln;

end.

Contoh Array

uses crt;

var Nilai : array[1..50] of real;

jumlah, rata : real;

i,a, JumDat : byte;

nama : string;

begin

clrscr;

{jumlah:=0;}

writeln(‘ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(‘————-‘);

write(‘Nama Mahasiswa =’ );readln(nama);

Write(‘Berapa Jumlah data = ‘);readln(JumDat);

for i := 1 to Jumdat do

begin

Write(‘Nilai Praktiklum ke
‘,i,’=’);Readln(Nilai[i]);

end;

jumlah:=0;

for i:= 1 to JumDat do

begin

Jumlah := jumlah + Nilai[i];

rata := Jumlah/JumDat;

end;

writeln;

clrscr;

writeln(‘ Nilai Rata – Rata Praktikum Kelas
TK2A’);

Writeln(‘————-‘);

writeln(‘Nama Mahasiswa =’,nama);

writeln(‘ÉÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍ» ‘);

writeln(‘º Praktikum º Nilai º ‘);

writeln(‘ÌÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍ͹ ‘);

for i := 1 to jumdat do

begin

writeln(‘º’,’ ke-‘,i,’ º’,
nilai[i]:3:0,’ º’);

end;

writeln(‘ÈÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍͼ’);

writeln(‘Total Nilai = ‘, jumlah:8:0);

writeln(‘Nilai Rata – rata = ‘, Rata:8:1);

readln;

end.

Contoh Array Agen Bus

Program Harga_Tiket;

uses crt;

var np:array[1..50] of string;

jb:array[1..50] of real;

jbyr:array[1..50] of real;

jml,a:byte;

tot:real;

ask:char;

label

baru;

begin

baru:

clrscr;

textcolor(7);

writeln(‘AGEN BUS MALAM “LENGAH TENTREM”‘);

writeln;

write(‘Masukkan Jumlah Penumpang :
‘);readln(jml);

writeln;

for a:=1 to jml do

begin

writeln(‘Data Ke -‘,a);

write(‘Nama Penumpang : ‘);readln(np[a]);

write(‘Jumlah Beli : ‘);readln(jb[a]);

end;

clrscr;

writeln(‘DATA PENJUALAN TIKET’);

writeln(‘AGEN BUS MALAM “LENGAH TENTREM”‘);

writeln(‘——————‘);

writeln(‘No. Nama Penumpang Jumlah Beli
Jumlah Pembayaran’);

writeln(‘——————‘);

for a:=1 to jml do

jbyr[a]:=jb[a]*25000;

for a:=1 to jml do

writeln(a:1,np[a]:10,jb[a]:10:0,jbyr[a]:27:3);

begin

writeln(‘——————‘);

tot:=0;

tot:=tot+jbyr[a];

writeln(‘Total
Pembayaran Rp.’,tot:10:3);

writeln(‘——————‘);

writeln;

write(‘Anda Ingin Memasukkan Data
Selanjutnya [Y/T] ? ‘);readln(ask);

if (ask=’Y’)or(ask=’y’) then goto baru;

end;

end.

Contoh Array data karyawan

uses crt;

var

nama:array[1..10]of string[20];

alamat:array[1..20]of string[30] ;

jml_gaji:array[1..20]of real;

i,j:byte;

begin

clrscr;

write(‘masukan jumlah Data :’);readln(j);

for i:=1 to j do

begin

writeln(‘data ke- ‘,i);

write(‘nama Karyawan :’);readln(nama[i]);

write(‘masukan Alamat :’);readln(alamat[i]);

write(‘jumlah Gaji
:’);readln(jml_gaji[i]);

end;

clrscr;

writeln(‘ DATA GAJI KARYAWAN’);

writeln(‘======================================’);

writeln(‘No. Nama Karyawan Total Gaji ‘);

writeln(‘=======================================’);

for i:=1 to j do

begin

writeln(i:1,nama[i]:15,jml_gaji[i]:15:0);

end;

writeln(‘=======================================’);

readln

end.

Contoh Array Penjualan Susu

Uses crt;

Var i,j:integer;

merk:array[1..5] of string[10];

ukuran:array[1..5] of char;

jumbel,harsat:array[1..5] of integer;

harkot,pot,harsih:array[1..5] of real;

Begin

clrscr;

Write(‘Banyaknya Pembelian : ‘);readln(i);

Writeln;

For j:=1 to i do

Begin

Writeln(‘Data Ke-‘,j);

Write(‘Merk Susu : ‘);Readln(merk[j]);

Write(‘Ukuran [K/S/B] :
‘);Readln(ukuran[j]);

Write(‘Jumlah Beli :
‘);Readln(jumbel[j]);

If merk[j]=’Dancow’ then

Case ukuran[j] of

‘K’:harsat[j]:=6500;

‘S’:harsat[j]:=9500;

‘B’:harsat[j]:=13500;

End

Else If merk[j]=’Bendera’ then

Case ukuran[j] of

‘K’:harsat[j]:=8500;

‘S’:harsat[j]:=13500;

‘B’:harsat[j]:=18500;

End

Else

Case ukuran[j] of

‘K’:harsat[j]:=9500;

‘S’:harsat[j]:=16500;

‘B’:harsat[j]:=23500;

End;

If jumbel[j]>=15 then

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0.1*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End

Else if jumbel[j]>=30 then

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0.2*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End

Else

Begin

harkot[j]:=jumbel[j]*harsat[j];

pot[j]:=0*harkot[j];

harsih[j]:=jumbel[j]*harsat[j]-pot[j];

End;

End;

clrscr;

Gotoxy(1,1);Writeln(‘===========================================================================’);

Gotoxy(2,2);Writeln(‘No’);

Gotoxy(7,2);Writeln(‘Merk’);

Gotoxy(16,2);Writeln(‘Ukuran’);

Gotoxy(24,2);Writeln(‘Jumlah’);

Gotoxy(32,2);Writeln(‘Harga’);

Gotoxy(55,2);Writeln(‘Potongan’);

Gotoxy(70,2);Writeln(‘Total’);

Gotoxy(1,3);Writeln(‘Urut’);

Gotoxy(7,3);Writeln(‘Susu’);

Gotoxy(16,3);Writeln(‘Kaleng’);

Gotoxy(25,3);Writeln(‘Beli’);

Gotoxy(32,3);Writeln(‘Satuan’);

Gotoxy(70,3);Writeln(‘Bayar’);

Gotoxy(1,4);Writeln(‘===========================================================================’);

For j:=1 to i do

Begin

Gotoxy(1,j+4);Writeln(j);

Gotoxy(7,j+4);Writeln(merk[j]);

Gotoxy(18,j+4);Writeln(ukuran[j]);

Gotoxy(26,j+4);Writeln(jumbel[j]);

Gotoxy(32,j+4);Writeln(‘Rp’,harsat[j]);

Gotoxy(55,j+4);Writeln(‘Rp ‘,pot[j]:0:2);

Gotoxy(67,j+4);Writeln(‘Rp ‘,harsih[j]:5:2);

End;

Writeln(‘===========================================================================’);

Readln;

End.

Contoh Array Toko serba ada

uses crt;

var

np:string[20];

jd,i:byte;

nb:array[1..50]of string;

jb,ttl,hrg:array[1..50]of real;

tot:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;

writeln(‘TOKO “SERBA ADA”‘);

writeln(‘———‘);

write(‘masukan nama pembeli :’);readln(np);

write(‘masukan jumlah data :’);readln(jd);

for i:=1 to jd do

begin

writeln(‘data ke- ‘,i);

write(‘nama barang :’);readln(nb[i]);

write(‘jumlah beli :’);readln(jb[i]);

write(‘harga :’);readln(hrg[i]);

end;

clrscr;

writeln(‘ TOKO “SERBA
ADA”‘);

writeln(‘ TABEL PENJUALAN
BARANG’);

writeln(‘——————–‘);

writeln(‘No. Nama pembeli Nama barang
Jumlah harga total ‘);

writeln(‘——————–‘);

tot:=0;

for i:=1 to jd do

begin

ttl[i]:=hrg[i]*jb[i];

tot:=tot+ttl[i];

end;

for i:=1 to jd do

begin

writeln(i:1,np:10,nb[i]:13,jb[i]:12:0,hrg[i]:8:0,ttl[i]:10:0);

end;

writeln(‘———————‘);

writeln(‘total bayar
= ‘,tot:3:0);

writeln(‘———————‘);

write(‘Mau input data
lagi[Y/T]=’);readln(lagi);

if (lagi=’Y’) or (lagi=’y’) then

goto awal

else

goto akhir;

akhir:

readln;

end.

Contoh Array Bengkel

program bengkel;

uses crt;

var

i,b:byte;

nm,nmoli,jnsmbl:array [1..50]of string;

hrg,bonus,hrgsev,hrgoli,tot:array [1..50]of
real;

totb:real;

begin

clrscr;

writeln(‘BENGKEL MAJU MUNDUR’);

writeln(‘========================’);

write(‘Masukan data: ‘);readln(b);

for i:=1 to b do

begin

writeln(‘data ke- ‘,i);

writeln;

write(‘nama pengunjung :’);readln(nm[i]);

write(‘jenis kendaraan [1. mobil| 2.
motor]:’);readln(jnsmbl[i]);

write(‘jenis oli [ 1. castrol| 2. pelumas
pertamina]:’);readln(nmoli[i]);

end;

writeln;

writeln(‘ PROGRAM SERVIC BENGKEL
MAJU MUNDUR’);

writeln(‘======================================================================’);

writeln(‘NO NAMA PENGUNJUNG JENIS
KENDARAAN JENIS OLI TOTAL ‘);

writeln;

totb:=0;

for i:=1 to b do

begin

if jnsmbl[i]=’1? then

hrgsev[i]:=30000

else

hrgsev[i]:=20000;

if nmoli[i]=’2? then

hrgoli[i]:= 20000

else

hrgoli[i]:=30000;

tot[i]:=hrgsev[i]+hrgoli[i];

totb:=totb+tot[i];

end;

for i:=1 to b do

begin

writeln(i:1,nm[i]:9,hrgsev[i]:14:0,hrgoli[i]:18:0,tot[i]:19:0);

end;

writeln(‘=================================================================’);

writeln(‘total bayar
:’,totb:2:0);

readln;

end.

Contoh Array Kereta

uses crt;

var

jp,i:byte;

np,nk:array[1..50]of string;

fsl:array[1..50]of char;

jml,hrg,ttl:array[1..50]of real;

tot:real;

lagi:char;

label awal,akhir;

begin

awal:

clrscr;

writeln(‘STASIUN “HARUS BERHENTI” ‘);

writeln(‘================================’);

write(‘masukan jumlah pemesan :’);readln(jp);

for i:=1 to jp do

begin

writeln(‘Data ke- ‘,i);

write(‘Nama pemesan :’);readln(np[i]);

write(‘Nama kereta :’);readln(nk[i]);

writeln(‘fasilitas [ 1.VVIP 3.BISNIS ‘);

write(‘ 2.VIP 4.EKONOMI ]
=’);readln(fsl[i]);

write(‘jumlah pesan :’);readln(jml[i]);

end;

writeln(‘ STASIUN “HARUS
BERHENTI” ‘);

writeln(‘ PROGRAM PENJUALAN TIKET
KERETA API’);

writeln(‘————————-‘);

writeln(‘NO. Nama Pemesan Nama Kereta
Fasilitas Jumlah Pesan harga total’);

tot:=0;

for i:=1 to jp do

begin

if fsl[i]=’1? then

hrg[i]:=200000

else

if fsl[i]=’2? then

hrg[i]:=180000

else

if fsl[i]=’3? then

hrg[i]:=140000

else

hrg[i]:=80000;

ttl[i]:=hrg[i]*jml[i];

tot:=tot+ttl[i];

end;

for i:=1 to jp do

begin

writeln(i:1,np[i]:10,nk[i]:12,fsl[i]:15,jml[i]:14:0,hrg[i]:12:0,ttl[i]:10:0);

end;

writeln(‘————————-‘);

writeln(‘total pembayaran
=’,tot:9:0);

writeln(‘————————-‘);

write(‘Mau input data lagi[Y/T]=’);readln(lagi);

if (lagi=’Y’) or (lagi=’y’) then

goto awal

else

goto akhir;

akhir:

readln;

end.

Kata Kunci

larik atau array, coding array tentang penjualan tiket kereta, contoh menghitung harga pembelian dalam program pascal menggunakan array dan record, makalah penggunaan array dalam program data kereta api, Nama barang jumlah harga satuan dengan menggunakan array, pembahasan array dalam penjualan tiket kereta api.

Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau
No Responses to “ARRAY / LARIK”

Leave a Reply

You must be logged in to post a comment.