Syntax Contoh Prosedur

MENGHITUNG JARAK

program contoh_prosedur;
uses wincrt;
var waktu, jarak, kecepatan:real;

procedure tampilan_judul;
begin
     writeln ('menghitung jarang tempuh berdasar pada dua variabel yaitu kecepatan dan waktu  ');
end;

procedure masukkan_data;
begin
     writeln ('masukkan kecepatan dalam km/jam:  ');
     readln (kecepatan);
     writeln ('masukkan waktu dalam jam:  ');
     readln (waktu);
end;

procedure hitung_jarak;
begin
     jarak := kecepatan*waktu;
end;

procedure tampilan_hasil;
begin
     writeln ('jarak yang ditempuh adalah  ', jarak:5:2,'km');
end;

begin {PROGRAM UTAMA}
tampilan_judul;
masukkan_data;           {memanggil data}
hitung_jarak;
tampilan_hasil;
end.