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.
Minggu, 21 November 2010
Rumus Pascal 4
Diposting oleh Wratsari Windrawati WibutiLabel: cobain ya
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar