Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиусы описанной и вписанной окружностей.На языке Паскаля

Ответ оставил Гость

Program triangle;
label undf;
var side, h, S, Ro, Rv: real;
begin
undf: writeln(Введите сторону треугольника:);
readln( side );

h := sqrt( sqr( side ) - ( sqr( side ) / 4) ); // расчет высоты
S := ( ( 1 * side) / 2 ) * h; // расчет площади
Rv := ( side / 2 ) * sqrt( ( 2 * side - side ) / ( 2 * side + side ) ); // расчет вписанной окружности
Ro := ( sqr( side ) / sqrt( sqr( 2 * side) - sqr( side ) ) ); // расчет описанной окружности

// вывод данных
writeln(Высота: , h);
writeln(Площадь: , S);
writeln(Радиус вписанной окружности: , Rv);
writeln(Радиус описанной окружности: , Ro);

end.