Написать программу определяющую является ли окружность с радиусом r вписанной или описанной около квадрата

Question

Информатика

Лаврюша

10 июля, 05:15

Написать программу определяющую является ли окружность с радиусом r вписанной или описанной около квадрата

+4

Ответы (1)

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

Борюся · Answer 1

Var

a, r, rvp, rop:real;

begin

Write ('Введите сторону квадрата и радиус окружности: ') ;

Readln (a, r) ;

rvp:=a/2; rop:=a*sqrt (2) / 2;

if r
else

if r=rvp then Writeln ('Введен радиус вписанной окружности')

else

if r
else

if r=rop then Writeln ('Введен радиус описанной окружности')

else Writeln ('Окружность расположена вне описанной')

end.

Тестовое решение:

Введите сторону квадрата и радиус окружности: 8 5

Окружность расположена между вписанной и описанной