contoh pascal - 2.2

Program lesson2_Program3;
Var PD, Dname, Cmodel : String;
    TotalKM, CostPD, TCostPD, Distance : Real;
     {real is a decimal (described later)}


begin
 TCostPD := 0;
 {perhatikan ini disebut 'inisialisasi'.
  penting untuk menginisialsasi variabel dengan 0
  agar variabel ini di 'refresh' dari sebelumnya
  meng- 0 kan isi variabel.}
 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 '+
        +'kemudian computer akan menghitung biayanya');
 Writeln('you spend in fuel every week.');
 Readln;
 Write('Bensin atau Pertamax?: ');
 Readln(PD);
 Write('Nama pengemudi: ');
 Readln(Dname);
 Write('Model mobil: ');
 Readln(Cmodel);
 Write('Harga per liter: (£) ');
 Readln(CostPD);
 Writeln('Jarak rata-rata yang anda tempuh '+
        +'dengan mobil setiap minggu: (kilometres) ');
 Readln(Distance);
 Writeln;
 Writeln;
 Writeln('Nama Pengemudi:',Dname);
 Writeln('Model mobil:',Cmodel);
 Writeln('Bensin/ Pertamax:',PD);
 Writeln('Jarak rata-rata '+
        +'setiap minggu: ',Distance:1:2,'Km');
 Writeln('Harga ',PD,' per liter: £',CostPD:1:2,'/liter');
 Writeln;
 Writeln;
 TCostPD := Distance * CostPD;
 Writeln('Jumlah biaya untuk ',PD,' per minggu:'+
        +'£',TCostPD:1:2); {perhatikan ini,}
 TCostPD := 0;
 Writeln('Jumlah biaya untuk ',PD,' per minggu:'+
        +'£',(Distance * CostPD):1:2); {ini}
 Writeln('Jumlah biaya untuk ',PD,' per minggu:'+
        +'£',Distance * CostPD); {dan ini - tanpa ':1:2'}
 readln;
End.