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

d=

составлять через turbo pascal

Question

Информатика

Ниля

17 декабря, 09:19

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

d=

составлять через turbo pascal

+2

Ответы (1)

Знаете ответ на вопрос?

Александрушка · 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.