Pemrograman Pascal Menentukan Tarif Ojol
Membuat Program Pascal Untuk Tarif Ojol (Ojek Online)
Kali ini ane akan menshare Program Pascal untuk menentukan Tarif Ojol , bila jarak tempuh jauh melebihi dari 10 Km akan mendapatkan bonus diskon sebesar Rp. 2000 dan bila jarak tempuh melebihi dari 15 Km maka akan mendapatkan Bonus sebesar Rp. 5000
Berikut Contoh Programnya:
Program Tarif_ojol;
uses crt;
var
nama:string;
jarak: integer;
tarif,tarif1,tarif2,tarif3,tmbhkm: real;
begin
clrscr;
write('Nama Customer : ');
readln(nama);
write('Jarak yang akan ditempuh : ');
readln(jarak);
tarif:=9500;
tmbhkm:=2500;
tarif1 := (jarak - 4 )*tmbhkm+tarif;
tarif2 := (jarak - 4 )*tmbhkm+tarif-2000;
tarif3 := (jarak - 4 )*tmbhkm+tarif-5000;
if (jarak <= 4) then
begin
writeln('Tarif yang harus dibayar ',nama,' adalah Rp.',tarif:6:0);
end
else if (jarak > 4) and (jarak < 10) then
begin
writeln('Tarif yang harus dibayar ',nama,' adalah Rp.',tarif1:6:0);
end
else if (jarak >= 10) and (jarak < 15) then
begin
writeln('Selamat anda mendapat diskon potongan Rp.2000');
writeln('Tarif yang harus dibayar ',nama,' adalah Rp.',tarif2:6:0);
end
else if (jarak >= 15) then
begin
writeln('Selamat anda mendapat diskon potongan Rp.5000');
writeln('Tarif yang harus dibayar ',nama,' adalah Rp.',tarif3:6:0);
end
else
writeln('Eror');
readln;
end.
Komentar
Posting Komentar