Радиус окружности - Pascal

Узнай цену своей работы

Формулировка задачи:

Радиус окружности, вписанной в равносторонний треугольник, равен R. Составить программу для вычисления стороны (признак N=1), высоты (признак N=2) или площади треугольника (признак N=3).

Решение задачи: «Радиус окружности»

textual
Листинг программы
var a,S,r,h:real;
begin
{  r - радиус вписанной окружности в равносторонний треугольник
   a - длина стороны треугольника (AB=BC=AC)
   h - высота треугольника (за т.Пифагора)
   S - площадь треугольника   }
read(r);
a:=r*(2*sqrt(3));
S:=(sqr(a)*sqrt(3))/4;
h:=sqrt(sqr(a)-sqr(a/2));
write('a=',a:4:2,'     S=',S:4:2,'     h=',h:4:2);
end.

Объяснение кода листинга программы

  1. Объявляются переменные:
    • a - длина стороны треугольника (AB=BC=AC)
    • S - площадь треугольника
    • r - радиус вписанной окружности в равносторонний треугольник
    • h - высота треугольника (за т.Пифагора)
  2. Вводится значение r (радиуса вписанной окружности в треугольник).
  3. Вычисляется значение a (длины стороны треугольника) как произведение r на 2 корня из 3.
  4. Вычисляется значение S (площади треугольника) по формуле (a^2*sqrt(3))/4.
  5. Вычисляется значение h (высоты треугольника) как корень из квадрата a минус квадрата половины a.
  6. Выводятся значения переменных a, S и h с точностью до двух знаков после запятой.

Оцени полезность:

15   голосов , оценка 3.8 из 5
Похожие ответы