Скачиваний:
288
Добавлен:
04.03.2014
Размер:
572 б
Скачать
program CM4_12;
uses crt;
var
f,m1,m2,r:real;
begin;
textbackground(16);
clrscr;
gotoxy(25,9);
textcolor(4);
writeln ('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ m1');
gotoxy(50,9);
readln (m1);
gotoxy(25,10);
textcolor(5);
writeln ('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ m2');
gotoxy(50,10);
readln (m2);
gotoxy(25,11);
textcolor(3);
writeln('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ r');
gotoxy(50,11);
readln (r);
gotoxy(25,13);
textcolor(9);
writeln('f= 6.663*(1E-8)*(m1*m2/sqr(r))');
f:= 6.663*(1E-8)*(m1*m2/sqr(r));
gotoxy(25,15);
textcolor(2);
writeln('ђҐ§г«мв в : f=' ,f:4:15);
delay(5000);
end.

Соседние файлы в папке Alex