Postingan
ARRAY / LARIK
May 30th, 2009 Author Leave a comment Go to comments
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)
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.
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.
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;
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] ;
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];
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;
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;
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.
.jpg)
Tidak ada komentar:
Posting Komentar