Предмет: Информатика,
автор: Mt0tanyanast
Напишите программу определения давления d на грунт опоры массой m, форма основания которой - круг радиусом r с вырезанным из его центральной части квадратом со стороной a, по указанной формуле
d=
составлять через turbo pascal
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: POKUSFokus
Предмет: Қазақ тiлi,
автор: kumyrasaldiar003
Предмет: Литература,
автор: camornikovao
Предмет: Математика,
автор: Zyf505
Предмет: Математика,
автор: AmiraKoshka