profile
Опубликовано 6 лет назад по предмету Информатика от DONikita

Даны действительные положительные числа a, b, c, которые являются длинами сторон треугольника. Напишите программу позволяющую найти радиус вписанной и описанной окружности

  1. Ответ
    Ответ дан amebastyle

    var
    a,b,c,p,r1,r2:real;
    begin
    readln(a,b,c);
    p:=(a+b+c)/2;
    r1 := (a*b*c)/(4*sqrt(p*(p-a)*(p-b)*(p-c)));// описанная
    r2 := sqrt(((p-a)*(p-b)*(p-c))/p);//вписанная
    writeln(r1:1:5,' ',r2:1:5);
    readln;
    readln
    end.

Самые новые вопросы