Составить программу на паскаль: рассчитать радиус окружности, вписанной в треугольник r1= s/p и описанной вокруг треугольника r2= abc/(4*s), где s - площадь, а p - полупериметр треугольника. a, b, c - стороны треугольника ( исходные данные ).

124

221

Посмотреть ответы 2

Ответы на вопрос:

svetlana898

Информатика

4,7(64 оценок)

Находим периметр p=a+b+c, затем полупериметр , и далее по формуле герона площадь s. var a,b,c,p,s,p2,r1,r2: real; begin write('введите стороны треугольника: '); read(a,b,c); p: =a+b+c; p2: =p/2; s: =sqrt(p2*(p2-a)*(p2-b)*(p2-c)); r1: =s/p; r2: =a*b*c/(4*s); writeln('r1=',r1,', r2=',r2) end. тестовое решение: введите стороны треугольника: 4 6 7 r1=0.704502327470793, r2=3.50685603007684