uses wincrt;
var
s,t,Hsl:real;
Begin
write ('masukkan jarak:');Readln(s);
write ('masukkan waktu:');Readln(t);
Hsl:=s/t;
writeln ('hasilnya adalah:',Hsl:2:2);
end.
Kamis, 18 November 2010
Tpw menghitung kecepatan
Posted by Hanif Ramadhan Fahmi Putra on 13.10
0 komentar:
Posting Komentar