Работы полностью)) / 6.1.2(#39) / Отчет

Отчет по работе 6.1.2 №39

Задание

Найти площадь круга, вписанного в треугольник с заданными сторонами.

Код работы:

CLS

COLOR 10.7

INPUT "Vvedite 1 storonu treugolnika=", a

INPUT "Vvedite 2 storonu treugolnika=", b

INPUT "Vvedite 3 storonu treugolnika=", c

IF (a <= ABS(b - c)) OR (a >= b + c) THEN

PRINT "Eto ne treugolnik, povtorite vvod "

ELSE

s=(a>abs(b-c))and(a<b+c)

END IF

pi = 3.14

p=(a+b+c)/2

s=sqr(p*(p-a)*(p-b)*(p-c))

r=s/p

s=pi*r*r

PRINT "Ploshad vpisannogo kruga=", s

Скриншот программы с ответом: