Program Sederhana Rental Mobil
Tabel 2.1 Perulangan dan Penyeleksi Kondisi
1.1 Deskripsi
Dalam
program yang kita buat dalam program pascal ini adalah supaya kita dapat
mengetahui hasil dari perentalan kendaraan mobil. Dan program ini lebih mudah
di bandingkan dengan cara manual yang membutuhkan waktu yang lama untuk membuat
laporannya.
Dengan
program ini terdapat banyak tipe data yang di gunakan seperti, string , integer
dan real. Dan menggunakan nama variabel yaitu jenis mobil, kode mobil, jenis
mobil, lama rental, dan total biaya atau harga yang diperlukan untuk mengetahui
harga yang sudah di tetapkan oleh perusahaan. jenis mobil yang digunakan, untuk
mencari jenis yang diinginkan, total biaya untuk banyaknya uang yang harus
diberikan konsumen kepada perental mobil.
Dimana
dalam perentalan mobil ini memerlukan suatu program yang dapat mengolah data
dengan baik dan efisien. Dengan program ini kita dapat mengolah data-data yang
talah disediakan seperti macam-macam
jenis mobil, Sehingga dapat memproses dalam pengolahan data yang ada dalam
perentalan mobil dengan menggunakan
pemrograman turbo pascal
sehingga memudahkan kita dalam
perentalan mobil. Dalam proyek yang di buat kali ini baru di batasi sampai pada
penggunaan Turbo Pascal yang sederhana.
1.2 Identifikasi
Masalah
Pada
pembuatan program kali ini ada beberapa hal yang harus di ketahui, yaitu
sebagai berikut ;
Input:
1.
Jenis mobil ( Jns )
2.
Tipe mobil ( 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
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 mobil :’);readln (jenis);
writeln;
write ('masukan tipe mobil :');readln(tipe);
writeln;
write ('masukan harga mobil Rp.');readln(hrg);
writeln;
write ('masukan lama rental :');readln(lama);
writeln;
tothrg:=hrg*lama;
writeln(‘tampilkan
jenis mobil :’,jenis);
writeln;
writeln('tampilkan
tipe mobil :',tipe);
writeln;
writeln('tampilkan
harga mobil Rp.',hrg:10:2);
writeln;
writeln('Tampilkan
lama rental:’,lama);
writeln;
writeln('tampilkan
harga Rp.',tothrg:10:2);
readln;
end.
1.6
Tampilan
Perulangan dan Penyeleksi
Kondisi
2.1 Deskripsi
Sebuah PT yang bergerak dibidang sewa mobil (Rent Car) yang baru
didirikan pada awal tahun 2007 di mana terletak di daerah Cilegon yaitu PT.
Black Rent Car, di mana Mr. Been sebagai Direktur utama PT tersebut,
membutuhkan sebuah program yang dapat membantunya dalam menjalankan usaha yang
baru didirikannya ini.
PT. Black Rent Car ini
melayani jasa Perentalan Mobil. Dimana setiap mobil mempunyai jenis, tipe, dan
harga yang berbeda-beda. Kali ini kita akan membuat penyeleksian kondisi dari
program sederhana yang telah dibahas pada modul 1 dengan menggunakan Turbo
Pascal. Di mana penyeleksian kondisi ini akan menampilkan Jenis mobil, Tipe mobil, Lama rental, Harga
rental sampai dengan berapa biaya total yang harus dibayar oleh konsumen
2.2
Identifikasi Masalah
Pada pembuatan program kali ini ada beberapa hal yang harus di ketahui,
yaitu sebagai berikut ;
Input:
1.
Jenis mobil ( Jns )
2.
Tipe mobil ( Tipe )
3.
Lama rental (Lama)
4.
Harga rental (harga)
Proses
1. Jika kode 1 maka Jenis mobil Toyota, Tipe
mobil Kijang
Harga Rp.150000
2. Jika Kode 2 Maka Jenis mobil Toyota, Tipe
mobil Innova
Harga Rp.250000
3. Jika Kode3 Jenis mobil Daihatsu, tipe Tipe
mobil Taruna
Harga Rp.200000
4. Jika
Kode 4 maka Jenis mobil Honda, Tipe mobil Jazz
Harga Rp.270000
5. Jika Kode 5 maka Jenis mobil Suzuki, Tipe mobil APV
Harga Rp.240000
6. Jika Kode 6 maka Jenis mobil Suzuki, Tipe
mobil 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
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 mobil :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.
