document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Program lesson3_Program1;
  2.  
  3. Uses Crt; {Kita gunakan library crt}
  4.  
  5. Var PD, Dname, Cmodel : String;
  6.     TotalKM, CostPD, TCostPD, Distance : Real;
  7.      {real adalah bilangan desimal (dibahas pada bagian berikutnya)}
  8.                    
  9.  
  10. begin
  11.  textbackground(brown); {warna background}
  12.  ClrScr; {membersihkan layar dengan warna coklat.
  13.              coba jalankan program tanpa ini!!!}
  14.  TextColor(lightgreen); {warna teks}
  15.  TCostPD := 0;
  16.  Writeln(\'Program ini meminta anda untuk \'+
  17.         +\'memasukkan biaya per-liter dari\');
  18.  Writeln(\'bensin yang anda gunakan \'+
  19.         +\'dalam rata-rata jarak yang anda lalui\');
  20.  Writeln(\'dengan mobil anda setiap minggunya. kemudian \');
  21.  writeln(\'kemudian computer akan menghitung biaya\');
  22.  Writeln(\'yang anda keluarkan setiap minggu.\');
  23.  Readkey; {program melanjutkan setelah user menekan tombol apapun}
  24.  ClrScr;{untuk membersihkan layar}
  25.  GotoXy(28,3);
  26.  {^memindahkan ke sebuah posisi di layar:
  27.    x (horizontal), y (vertical)}
  28.  Write(\'Bensin atau Pertamax?: ketik b atau p\');
  29.   PD := Readkey;
  30.  {^ketika tombol ditekan,
  31.   akan langsung di simpan di dalam variabel \'PD\'}
  32.   GotoXy(30,4);
  33.  Write(\'Nama pengemudi: \');
  34.  Readln(Dname);
  35.   GotoXy(30,5);
  36.  Write(\'Model mobil: \');
  37.  Readln(Cmodel);
  38.   GotoXy(29,6);
  39.  Write(\'Harga per liter: (£) \');
  40.  Readln(CostPD);
  41.   GotoXy(8,7);
  42.  Writeln(\'Jarak rata-rata yang anda tempuh \'+
  43.         +\'dengan mobil setiap minggu: (kilometres) \');
  44.  Readln(Distance);
  45.  ClrScr;
  46.  GotoXy(28,3);
  47.  Writeln(\'Nama Pengemudi:\',Dname);
  48.  GotoXy(31,4); Delay(500);
  49.  Writeln(\'Model mobil:\',Cmodel);
  50.  GotoXy(32,5); Delay(500);
  51.  Writeln(\'Bensin/ Pertamax:\',PD);
  52.  GotoXy(8,6); Delay(500);
  53.  Writeln(\'Jarak rata-rata \'+
  54.         +\'setiap minggu: \',Distance:1:2,\'Km\');
  55.  GotoXy(25,7); Delay(500);
  56.  Writeln(\'Harga \',PD,\' per liter: £\',CostPD:1:2,\'/liter\');
  57.  Writeln; Delay(500);
  58.  Writeln;
  59.  TCostPD := Distance * CostPD;
  60.  GotoXy(21,10);
  61.  Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
  62.         +\'£\',TCostPD:1:2);
  63.  TCostPD := 0;
  64.  GotoXy(21,12);
  65.  Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
  66.         +\'£\',(Distance * CostPD):1:2);
  67.  GotoXy(18,14);
  68.  Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
  69.         +\'£\',Distance * CostPD);
  70.  readln;
  71. End.
');