Disini saya memakai turbo pascal, dan dibawah ini adalah script rental mobil yang saya kerjakan untuk memenuhi Ulangan tengah semester saya
uses crt;
var nama,MOBIL :array[1..50] of string;
kode,TELAT,JASA,LAMA:array[1..50] of integer;
harga,TSM,TJS,DENDA,SUBTOT,DISK,TKS :array[1..50] of real;
i,j,b : integer;
x : char;
begin
repeat
clrscr;
writeln('-----------------------------------------');
writeln(' RENTAL MOBIL BORLAND ');
writeln('-----------------------------------------');
writeln(' KODE | NAMA BOBIL | HARGA/HARI ');
writeln('-----------------------------------------');
writeln(' 1 | NEW AVANZA | Rp.300.000 ');
writeln(' 2 | NEW XENIA | Rp.300.000 ');
writeln(' 3 | NEW JAZZ | Rp.400.000 ');
WRITELN(' 4 | INNOVA | Rp.600.000 ');
WRITELN(' 5 | SUZUKI APV | Rp.550.000 ');
WRITELN('-----------------------------------------');
WRITELN;
WRITELN('--------------------------------------------------------------------------------');
WRITELN(' KETERANGAN ');
WRITELN('--------------------------------------------------------------------------------');
writeln(' 1. SEWA + SUPIR DIKENAKAN TAMBAHAN BIAYA Rp. 150.000 / HARI. ');
writeln(' 2. KETERLAMBATAN DIKENAKAN BIAYA Rp. 30.000 / HARI. ');
writeln(' 3. PELANGGAN MENDAPATKAN DISKON 10% JIKA LAMA SEWA LEBIH DARI 3 HARI. ');
writeln(' 4. PELANGGAN YANG TERLAMBAT MENGEMBALIKAN MOBIL TIDAK MENDAPATKAN DISKON. ');
writeln('--------------------------------------------------------------------------------');
write('Masukan Jumlah Pelanggan = '); readln(b);
for i:= 1 to b do
begin
writeln;
writeln('Data Pelanggan ke - ',i);
write(' NAMA PELANGGAN = '); READLN(NAMA[i]);
WRITE(' KODE MOBIL = '); READLN(kode[i]);
IF KODE[i]=1 THEN
mobil[i]:='NEW AVANZA ';
IF KODE[i]=2 THEN
mobil[i]:='NEW XENIA';
IF KODE[i]=3 THEN
mobil[i]:='NEW JAZZ';
IF KODE[i]=4 THEN
mobil[i]:='INNOVA';
IF KODE[i]=5 THEN
mobil[i]:='SUZUKI APV';
IF KODE[i]=1 THEN
harga[i]:=300000;
IF KODE[i]=2 THEN
harga[i]:=300000;
IF KODE[i]=3 THEN
Harga[i]:=400000
else
IF KODE[i]=4 THEN
Harga[i]:=600000;
IF KODE[i]=5 THEN
harga[i]:=550000;
WRITELN(' NAMA MOBIL = ',MOBIL[i]);
writeln(' Harga / hari = Rp.',harga[i]:1:0);
WRITE(' LAMA SEWA (HARI) = '); READLN(LAMA[i]);
WRITE(' JASA SUPIR (HARI) = '); READLN(JASA[i]);
WRITE(' TERLAMBAT PENGEMBALIAN (JAM) = '); READLN(TELAT[i]);
WRITELN;
end;
CLRSCR;
WRITELN('-------------------------------------------------------------------------------');
WRITELN(' NOTA SEWA MOBIL ');
WRITELN('-------------------------------------------------------------------------------');
for i:= 1 to b do
begin
writeln('Data Note Pelanggan ke - ',i);
WRITELN(' NAMA PELANGGAN = ',NAMA[i]);
WRITELN;
WRITELN(' KODE MOBIL = ',KODE[i]);
WRITELN(' NAMA MOBIL = ',MOBIL[i]);
WRITELN(' LAMA SEWA = ',LAMA[i],' HARI');
WRITELN(' JASA SUPIR = ',JASA[i],' HARI');
WRITELN(' TERLAMBAT = ',TELAT[i] ,' JAM');
WRITELN;
WRITELN(' DETAIL BIAYA : ');
TSM[i]:=HARGA[i]*LAMA[i];
WRITELN(' TOTAL SEWA MOBIL = Rp.',TSM[i]:3:0);
TJS[i]:=JASA[i]*150000;
writeln(' TOTAL JASA SUPIR = Rp.',TJS[i]:0:0);
DENDA[i]:=TELAT[i]*(30000/24);
WRITELN(' DENDA TERLAMBAT = Rp.',DENDA[i]:1:0);
WRITELN(' _________________________________________ +');
WRITELN;
SUBTOT[i]:=TSM[i]+TJS[i]+DENDA[i];
WRITELN(' SUB TOTAL = Rp.',SUBTOT[i]:0:0);
if (lama[i]>=3) then
disk[i]:=subtot[i]*0.1;
If telat[i] >0 then
disk[i]:=subtot[i]*0;
writeln(' DISKON = RP.',DISK[i]:0:0);
WRITELN(' _________________________________________ - ');
WRITELN;
TKS[i]:=SUBTOT[i]-DISK[i];
WRITELN(' TOTAL KESELURUHAN = Rp.',TKS[i]:0:0);
WRITELN('--------------------------------------------------------------------------------');
end;
write(' TRANSAKSI LAGI? (Y/T) : '); readln(x);
until (x='T') or (x='t');
end.
dan ini adalah hasil dari script tersebut
#Semoga bermanfaat bagi para pembaca, jika tidak paham silahkan komentar