Program Pascal Biaya Parkir PerJam Menggunakan Dosbox

program biaya parkir

Isikan pada DosBox dengan script berikut ;

program biaya_parkir;

uses crt;

var

lp,bp,byr:integer;

begin

clrscr;

write(‘lama parker:’);readln(lp);

write(‘biaya perjam:’);readln(bp);

if(lp<=1) then byr:=3000

else byr:=3000 +(1p-1)*2000;

writeln(‘biaya parker yang harus dibayar:Rp ‘ ,byr);

readln

end

Dan hasilnya

hasil parkir

NB : contoh diatas biaya parkir perjam  Rp 3000

 

 

Pos blog pertama

Ini adalah pos pertama Anda. Klik tautan Sunting untuk mengubah atau menghapusnya, atau mulai pos baru. Jika ingin, Anda dapat menggunakan pos ini untuk menjelaskan kepada pembaca mengenai alasan Anda memulai blog ini dan rencana Anda dengan blog ini. Jika Anda membutuhkan bantuan, bertanyalah kepada orang-orang yang ramah di forum dukungan.