Содержание
Ответ
Проверено экспертом
Равносторонний треугольник — это треугольник, у которого все стороны равны. Равны также и его высоты.
Нужно знать формулы из математики:
h = a√3/2, S = a²√3/4, r = a√3/6, R = a√3/3.
Вот программа (в Паскале не различают прописные и строчные бувы, поэтому радиус вписанной окружности обозначим как r1):
Ответ
Проверено экспертом
Прежде всего — формулы. Пусть а — длина стороны, тогда
var
a, r, rr, h, s: real;
begin
Write(‘Введите длину стороны треугольника: ‘);Readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln(‘Радиус вписанной окружности ‘, r);
Writeln(‘Радиус описанной окружности ‘, rr);
Writeln(‘Высота треугольника ‘, h);
Writeln(‘Площадь треугольника ‘, s);
end.
Тестовое решение:
Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219
Дана сторона равностороннего треугольника. Найти площадь этого треугольника, его высоту, радиусы описанной и вписанной окружностей.На языке Паскаля
Лучший ответ:
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);
Другие вопросы:
Помогите по английскому языку составить диалог на тему помочь купить новую сумку
Пожалуйста плиз умаляю .
Из стихотворения размышления у парадного подьезда ответте на этот вопрос