Program Pembantu *Prosedur*

Program Procedure_gerak;
uses wincrt;
var
waktu, jarak, kecepatan : real;

Procedure Tampilan_judul;
begin
writeln(' Menghitung jarak tempuh berdasarkan pada');
writeln('dua variabel yaitu: kecepatan dan waktu');
end;

Procedure Masukkan_data;
begin
write('Masukkan kecepatan dalam km/jam : '); readln(kecepatan);
write('Masukkan waktu dalam jam : '); readln(waktu);
end;

Procedure Hitung_jarak;
begin
jarak := kecepatan*waktu;
end;

Procedure Tampilkan_hasil;
begin
writeln(' Jarak yang ditempuh adalah ', jarak:5:2,'km.');
end;

begin
Tampilan_judul;
Masukkan_data;
Hitung_jarak;
Tampilkan_hasil;
end.

Categories: DDPK