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!');
 gotoXY(5,11); write('gaya tarik: ');readln(F);
 gotoXY(5,12); write('massa benda: ');readln(m);
 gotoXY(5,13); 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:8:4);
 readln;
 end.

Categories: DDPK