Rumus Pascal 4

Menghitung Kecepatan rata2


uses wincrt;
var
s1,s2,t1,t2,t,s,v:real;

begin
write('Masukkan jarak kedua :');read(s2);
write('Masukkan jarak pertama :');read(s1);
write('Masukkan waktu kedua :');read(t2);
write('Masukkan waktu pertama :');read(t1);
s:=s2-s1;
t:=t2-t1;
v:=s/t;
writeln('selisih jaraknya adalah:',s:2:2);
writeln('selisih waktunya adalah :',t:2:2);
writeln('hasil kecepatan rata-rata adalah :',v:2:2);

end.