Напишите программу определения давления d ** грунт опоры массой m, форма основания...

Question

Напишите программу определения давления d на грунт опоры массой m, форма основания которой - круг радиусом r с вырезанным из его центральной части квадратом со стороной a, по указанной формуле
d=
составлять через turbo pascal

Comments

Указанная формула содержит минимум 2 ошибки. 1)Числитель надо домножить на массу. 2)Знаменатель должен выглядеть так: (3,14r - a) (r и a - обе переменные в квадрате).

Answer 1

Uses Crt;
Const
   g = 9.8;
Var
   r,a,d:real;
Begin
ClrScr;
Write('r = ');ReadLn(r);
Write('a = ');ReadLn(a);
d:=g/(Pi*(r*r-a*a));
WriteLn('d = ',d);
ReadLn
End.

Comments

Поскольку формула ошибочная, то и программа содержит те же ошибки - о чём, собственно, и был написан первый комментарий. То есть программа правильная, но давление она будет считать неверно. Потому как прежде информатики следует выучить физику и геометрию.