Program lesson3_Program1;
Uses Crt; {Kita gunakan library crt}
Var PD, Dname, Cmodel : String;
TotalKM, CostPD, TCostPD, Distance : Real;
{real adalah bilangan desimal (dibahas pada bagian berikutnya)}
begin
textbackground(brown); {warna background}
ClrScr; {membersihkan layar dengan warna coklat.
coba jalankan program tanpa ini!!!}
TextColor(lightgreen); {warna teks}
TCostPD := 0;
Writeln(\'Program ini meminta anda untuk \'+
+\'memasukkan biaya per-liter dari\');
Writeln(\'bensin yang anda gunakan \'+
+\'dalam rata-rata jarak yang anda lalui\');
Writeln(\'dengan mobil anda setiap minggunya. kemudian \');
writeln(\'kemudian computer akan menghitung biaya\');
Writeln(\'yang anda keluarkan setiap minggu.\');
Readkey; {program melanjutkan setelah user menekan tombol apapun}
ClrScr;{untuk membersihkan layar}
GotoXy(28,3);
{^memindahkan ke sebuah posisi di layar:
x (horizontal), y (vertical)}
Write(\'Bensin atau Pertamax?: ketik b atau p\');
PD := Readkey;
{^ketika tombol ditekan,
akan langsung di simpan di dalam variabel \'PD\'}
GotoXy(30,4);
Write(\'Nama pengemudi: \');
Readln(Dname);
GotoXy(30,5);
Write(\'Model mobil: \');
Readln(Cmodel);
GotoXy(29,6);
Write(\'Harga per liter: (£) \');
Readln(CostPD);
GotoXy(8,7);
Writeln(\'Jarak rata-rata yang anda tempuh \'+
+\'dengan mobil setiap minggu: (kilometres) \');
Readln(Distance);
ClrScr;
GotoXy(28,3);
Writeln(\'Nama Pengemudi:\',Dname);
GotoXy(31,4); Delay(500);
Writeln(\'Model mobil:\',Cmodel);
GotoXy(32,5); Delay(500);
Writeln(\'Bensin/ Pertamax:\',PD);
GotoXy(8,6); Delay(500);
Writeln(\'Jarak rata-rata \'+
+\'setiap minggu: \',Distance:1:2,\'Km\');
GotoXy(25,7); Delay(500);
Writeln(\'Harga \',PD,\' per liter: £\',CostPD:1:2,\'/liter\');
Writeln; Delay(500);
Writeln;
TCostPD := Distance * CostPD;
GotoXy(21,10);
Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
+\'£\',TCostPD:1:2);
TCostPD := 0;
GotoXy(21,12);
Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
+\'£\',(Distance * CostPD):1:2);
GotoXy(18,14);
Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
+\'£\',Distance * CostPD);
readln;
End.