Program GerakLurusBerubahBeraturan

Program GerakLurusBerubahBeraturan;
Uses Crt;
procedure hitung(t,Vo,Vt : real);
var
x,a : real;
begin
ClrScr;
a:= (Vt-Vo)/t;
x:= Vo*t+0.5*a*sqr(t);
writeln(‘Perpindahan : ‘,x:4:2);
writeln(‘Percepatan : ‘,a:4:2);
end;
var
t,Vo,Vt:real;
begin
write(‘Masukkan nilai waktu (t) : ‘);
readln(t);
write(‘Masukkan nilai kecepatan awal (Vo) : ‘);
readln(Vo);
write(‘Masukkan nilai kecepatan pada waktu (Vt) : ‘);
readln(Vt);
hitung(t,Vo,Vt);
end.