Program Kondisi

program gerak_balok;
uses wincrt;
const
 G=10;
var
 F,us,m,perc,s,usaha:real;
begin
 clrscr;
 writeln('masukkan angka anda,kemudian enter!');
 write('gaya tarik: ');readln(F);
 write('massa benda: ');readln(m);
 write('koefisien gesekan: ');readln(us);
 write('perpindahan :');readln(s);
 perc :=(F-m*g*us);
 usaha:=(F-m*g*us)*s;
 writeln('percepatan :',perc:8:4);
 writeln('usaha oleh gaya F: ',usaha);
 readln;
 end.

Categories: DDPK