Script Rental Mobil

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