Program Pembantu *Prosedur*

Program Hitung_Jarakbenda;
uses wincrt;
var
v,t, x : integer;


Procedure Tampilan_judul;
begin
writeln(' PROGRAM MENGHITUNG JARAK BENDA');
writeln(' PADA GERAK LURUS BERATURAN ');
writeln(' ========================== ');
end;

Procedure Masukkan_data;
begin
write(' BERAPA KECEPATAN BENDA ?'); readln(v);
write(' WAKTU TEMPUH = '); readln(t);
end;

Procedure Hitung_jarak;
begin
x := v*t;
end;

Procedure Tampilkan_hasil;
begin
writeln(' JADI JARAK YANG DITEMPUH ADALAH SEPANJANG ',x);
end;

begin
Tampilan_judul;
Masukkan_data;
Hitung_jarak;
Tampilkan_hasil;
end.

Categories: DDPK