Biaya Parkir

Biaya Parkir

Tulis program untuk menentukan biaya parkir yang dihitung berdasarkan lama parkir. Lama parkir dihitung dari selisih jam masuk dan jam keluar diINPUT. Biaya parkir 2 jam pertama 2000, perjam berikutnya 500.

Contoh Masukan dan keluaran:

Jam masuk	Jam keluar	Lama	keluaran/tampilan
10	11	1	Biaya = 2000
10	2	4	Biaya = 3000

Jawab:

uses crt;

VAR

        imasuk, ikeluar, ilama, ibiaya: integer;

BEGIN

clrscr;

        writeln('Masukkan Jam Masuk: ');

        readln(imasuk);

        writeln('Masukkan Jam Keluar: ');

        readln(ikeluar);

        IF (imasuk <= ikeluar) THEN

        ilama := ikeluar - imasuk

        ELSE

        ilama := (12 - imasuk) + ikeluar;

        writeln('Lama parkir adalah: ', ilama);

        readln;

        IF (ilama > 2) THEN

        ibiaya := 2000 + ((ilama - 2) * 500)

        ELSE

        ibiaya := 2000;

        writeln('Biaya nya adalah: ', ibiaya);

        readln;

end.