document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. Program lesson2_Program3;
  2. Var PD, Dname, Cmodel : String;
  3.     TotalKM, CostPD, TCostPD, Distance : Real;
  4.      {real is a decimal (described later)}
  5.                    
  6.  
  7. begin
  8.  TCostPD := 0;
  9.  {perhatikan ini disebut \'inisialisasi\'.
  10.   penting untuk menginisialsasi variabel dengan 0
  11.   agar variabel ini di \'refresh\' dari sebelumnya
  12.   meng- 0 kan isi variabel.}
  13.  Writeln(\'Program ini meminta anda untuk \'+
  14.         +\'memasukkan biaya per-liter dari\');
  15.  Writeln(\'bensin yang anda gunakan \'+
  16.         +\'dalam rata-rata jarak yang anda lalui\');
  17.  Writeln(\'dengan mobil anda setiap minggunya. kemudian \'+
  18.         +\'kemudian computer akan menghitung biayanya\');
  19.  Writeln(\'you spend in fuel every week.\');
  20.  Readln;
  21.  Write(\'Bensin atau Pertamax?: \');
  22.  Readln(PD);
  23.  Write(\'Nama pengemudi: \');
  24.  Readln(Dname);
  25.  Write(\'Model mobil: \');
  26.  Readln(Cmodel);
  27.  Write(\'Harga per liter: (£) \');
  28.  Readln(CostPD);
  29.  Writeln(\'Jarak rata-rata yang anda tempuh \'+
  30.         +\'dengan mobil setiap minggu: (kilometres) \');
  31.  Readln(Distance);
  32.  Writeln;
  33.  Writeln;
  34.  Writeln(\'Nama Pengemudi:\',Dname);
  35.  Writeln(\'Model mobil:\',Cmodel);
  36.  Writeln(\'Bensin/ Pertamax:\',PD);
  37.  Writeln(\'Jarak rata-rata \'+
  38.         +\'setiap minggu: \',Distance:1:2,\'Km\');
  39.  Writeln(\'Harga \',PD,\' per liter: £\',CostPD:1:2,\'/liter\');
  40.  Writeln;
  41.  Writeln;
  42.  TCostPD := Distance * CostPD;
  43.  Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
  44.         +\'£\',TCostPD:1:2); {perhatikan ini,}
  45.  TCostPD := 0;
  46.  Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
  47.         +\'£\',(Distance * CostPD):1:2); {ini}
  48.  Writeln(\'Jumlah biaya untuk \',PD,\' per minggu:\'+
  49.         +\'£\',Distance * CostPD); {dan ini - tanpa \':1:2\'}
  50.  readln;
  51. End.
');