Download Source Code Aplikasi

Program Sederhana Rental Mobil

Tuesday, December 11th, 2012 - lainnya
Program Sederhana Rental Mobil


1.1    Deskripsi

         Dalam kegiatan yang kita buat dalam kegiatan pascal ini ialah agar kita sanggup mengetahui hasil dari perentalan kendaraan mobil. Dan kegiatan ini lebih gampang di bandingkan dengan cara manual yang membutuhkan waktu yang usang untuk membuat laporannya.

         Dengan kegiatan ini terdapat banyak tipe data yang di gunakan seperti, string , integer dan real. Dan memakai nama variabel yaitu jenis mobil, instruksi mobil, jenis mobil, usang rental, dan total biaya atau harga yang dibutuhkan untuk mengetahui harga yang sudah di menetapkan oleh perusahaan. jenis kendaraan beroda empat yang digunakan, untuk mencari jenis yang diinginkan, total biaya untuk banyaknya uang yang harus diberikan konsumen kepada perental mobil.

         Dimana dalam perentalan kendaraan beroda empat ini memerlukan suatu kegiatan yang sanggup mengolah data dengan baik dan efisien. Dengan kegiatan ini kita sanggup mengolah data-data yang talah disediakan seperti  macam-macam jenis mobil, Sehingga sanggup memproses dalam pengolahan data yang ada dalam perentalan kendaraan beroda empat dengan menggunakan  pemrograman turbo pascal  sehingga  memudahkan kita dalam perentalan mobil. Dalam proyek yang di buat kali ini gres di batasi hingga pada penggunaan Turbo Pascal yang sederhana.

1.2    Identifikasi Masalah

         Pada pembuatan kegiatan kali ini ada beberapa hal yang harus di ketahui, yaitu sebagai berikut ;

Input:

1.      Jenis kendaraan beroda empat ( Jns )

2.      Tipe kendaraan beroda empat ( Tipe )

3.       Lama rental (Lama)

4.      harga rental  (harga)

Proses

Tot :=Harga *Lama

Out put

                       

1.      Jenis Mobil

2.      Tipe Mobil

3.      Lama Rental

4.      Harga Rntal

5.      Total Harga

1.3    Tabel Data

Nama Variabel

Variabel

Tipe Data

Jenis Mobil

Jns

String

Tipe Mobil

Tipe

String

Lama rental

Lama

integer

Harga rental

Hrg

Real

Total

Tot

Real

1.4  Flowchart
Program Sederhana Rental Mobil   

Gambar 1.1 Flowchart Pengenalan Turbo Pascal


1.5  Listing Program

PROGRAM RENTAL_SEDERHANA;

uses crt;

var

   hrg,tothrg:real;

   jenis,tipe:string;

   lama:integer;

   begin

clrscr;

writeln(‘########”RENTAL MOBIL”#########’);

writeln;

write (‘masukan jenis kendaraan beroda empat :’);readln (jenis);

writeln;

write  (‘masukan tipe mobil  :’);readln(tipe);

writeln;

write  (‘masukan harga kendaraan beroda empat Rp.’);readln(hrg);

writeln;

write  (‘masukan usang rental :’);readln(lama);

writeln;

tothrg:=hrg*lama;

writeln(‘tampilkan jenis kendaraan beroda empat :’,jenis);

writeln;

writeln(‘tampilkan tipe mobil  :’,tipe);

writeln;

writeln(‘tampilkan harga kendaraan beroda empat Rp.’,hrg:10:2);

writeln;

writeln(‘Tampilkan usang rental:’,lama);

writeln;

writeln(‘tampilkan harga Rp.’,tothrg:10:2);

readln;

end.

1.6 Tampilan


Program Sederhana Rental Mobil
Perulangan dan Penyeleksi Kondisi

2.1    Deskripsi

         Sebuah PT yang bergerak dibidang sewa kendaraan beroda empat (Rent Car) yang gres didirikan pada awal tahun 2007 di mana terletak di tempat Cilegon yaitu PT. Black Rent Car, di mana Mr. Been sebagai Direktur utama PT tersebut, membutuhkan sebuah kegiatan yang sanggup membantunya dalam menjalankan perjuangan yang gres didirikannya ini.

         PT. Black Rent Car ini melayani jasa Perentalan Mobil. Dimana setiap kendaraan beroda empat memiliki jenis, tipe, dan harga yang berbeda-beda. Kali ini kita akan membuat penyeleksian kondisi dari kegiatan sederhana yang telah dibahas pada modul 1 dengan memakai Turbo Pascal. Di mana penyeleksian kondisi ini akan menampilkan  Jenis mobil, Tipe mobil, Lama rental, Harga rental hingga dengan berapa biaya total yang harus dibayar oleh konsumen

2.2  Identifikasi Masalah

        Pada pembuatan kegiatan kali ini ada beberapa hal yang harus di ketahui, yaitu sebagai berikut ;

Input:

                                 1.         Jenis kendaraan beroda empat ( Jns )

                                 2.         Tipe kendaraan beroda empat ( Tipe )

                                 3.          Lama rental (Lama)

                                 4.         Harga rental  (harga)  

Proses

                1.  Jika instruksi 1 maka Jenis kendaraan beroda empat Toyota, Tipe kendaraan beroda empat Kijang

                      Harga Rp.150000

                2.   Jika Kode 2 Maka Jenis kendaraan beroda empat Toyota, Tipe kendaraan beroda empat Innova

                     Harga Rp.250000

                3.   Jika Kode3 Jenis kendaraan beroda empat Daihatsu, tipe Tipe kendaraan beroda empat Taruna

                      Harga Rp.200000

                4.   Jika  Kode 4 maka Jenis kendaraan beroda empat Honda, Tipe kendaraan beroda empat Jazz

                      Harga Rp.270000

                 5.  Jika Kode 5  maka Jenis kendaraan beroda empat Suzuki, Tipe kendaraan beroda empat APV

                      Harga Rp.240000

                 6.  Jika Kode 6 maka Jenis kendaraan beroda empat Suzuki, Tipe kendaraan beroda empat Soluna

                      Harga Rp.250000

Out put

                 1.  Jenis mobil

                 2.  Tipe mobil

                 3.  Lama rental

                 4.  Harga rental 

                 5.  Total harga

2.3  Tabel Data

Nama Variabel

Variabel

Tipe Data

Jenis Mobil

Jns

String

Tipe Mobil

Tipe

String

Lama rental

Lama

integer

Harga rental

Hrg

Real

Total

Tot

Real




Tabel 2.1 Perulangan dan Penyeleksi Kondisi

2.4 Flowchart


Program Sederhana Rental Mobil
Gambar 2.1 Flowchart Penyeleksian Kondisi dan Perulangan

2.5  Listing Program

Program Rental_Mobil;

Uses Crt;

Var

    Jenis,Kode,Tipe :string;

    lama                   :integer;

    Total,Harga       :real;

    lagi                    :char;

begin

clrscr;

   lagi:=’Y’;

   while lagi =’Y’do

begin

ClrScr;

writeln(‘##### Rental Mobil #####    ‘);

writeln;

writeln(‘###KODE JENIS TIPE MOBIL### ‘);

Writeln;

writeln(‘-##########################-‘);

writeln(‘- 1  #   Toyota Kijang   ‘);

writeln(‘- 2  #   Toyota Innova   ‘);

writeln(‘- 3  #   Daihatsu Taruna ‘);

writeln(‘- 4  #   Honda Jazz      ‘);

writeln(‘- 5  #   Suzuki APV      ‘);

writeln(‘- 6  #   Suzuki Swift   ‘);

writeln;

writeln(‘-##########################-‘);

writeln;

write (‘kode Mobil:’);readln(kode);

begin

clrscr;

If Kode=’1’then

Begin

Jenis:=’Toyota’;

Tipe:=’Kijang’;

Harga:=150000

end else

If Kode=’2’then

Begin

Jenis:=’Toyota’;

Tipe:=’Innova’;

Harga:=250000

end else;

If Kode=’3’then

begin

Jenis:=’Daihatsu’;

Tipe:=’Taruna’;

Harga:=200000

end else;

If Kode=’4’then

Begin

Jenis:=’Honda’;

Tipe:=’Jazz’;

Harga:=270000

end else;

If Kode=’5’then

Begin

Jenis:=’Suzuki’;

Tipe:=’APV’;

Harga:=240000

end else;

If Kode=’6’then

Begin

Jenis:=’Suzuki’;

Tipe:=’Swift’;

Harga:=250000

end else;

begin

clrscr;

writeln   (‘##########”HASIL”##########’);

writeln;

write     (‘ Kode Mobil   :’,Kode) ;readln(kode);

writeln;

writeln   (‘ harga kendaraan beroda empat :Rp.’,harga:10:2);

writeln;

write     (‘ Jenis Mobil  :’,Jenis);readln(Jenis);

writeln;

write     (‘ Tipe Mobil   :’,Tipe) ;readln(Tipe);

writeln;

write     (‘ Lama Rental  : ‘) ;readln(lama);

Total:= Lama*Harga;

writeln;

Writeln   (‘ Total Harga  :Rp.’,Total:10:2);

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

write   (‘Ada penyewa lagi (Y/T) !’);

readln (lagi);

lagi :=UPCASE(lagi);

end;

end;

writeln   (‘****TERIMA KASIH ******’);

end;

end.


 Tampilan Hasil Akhir

Program Sederhana Rental Mobil








Program Sederhana Rental Mobil


Demikian yang dapat kami share kepada sobat source code aplikasi pada kesempatan ini, semoga dapat bermanfaat dan bisa menjadi referensi pemrograman bagi anda. Jangan lupa like Fan Page kami, dan SUBSCRIBE Channel Youtube kami untuk dapatkan update source code aplikasi terbaru.
Download Source Code Aplikasi
Program Sederhana Rental Mobil | Ahmad Code | 4.5