pascal lesson3_program1

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.