TP : Program Menghitung Gaya

program gaya;
uses crt;
var
m,s,t:real;

begin
clrscr;
writeln('MENGHITUNG GAYA');
writeln('===============');
write('Masukkan massa = ');
readln(m);
write('Masukkan jarak = ');
readln(s);
write('Masukkan waktu = ');
readln(t);
writeln('-----------------------------');
writeln('Maka yang dihasilkan dengan :');
writeln('Massa = ',m:0:2,' gr');
writeln('Jarak = ',s:0:2,' meter');
writeln('Waktu = ',t:0:2,' second');
writeln;
writeln('adalah :');
writeln('Kecepatan  = ',s/t:0:2,' m/s');
writeln('Percepatan = ',(s/t)/t:0:2,' m/s^');
writeln('Gaya       = ',m*(s/t)/t:0:2,' Newton');
readln;
end.

Baca Juga Artikel dibawah ini :

Posted in: Tugas, Turbo Pascal