Question

Срочно! даю 35 баллов Напишите программу, находящую высоту равностороннего треугольника. (паскаль)

Answer 1

Ответ:

Объяснение:

var

 a, h : Double;

begin

 Read(a);    // считываем длину стороны треугольника

 h := a*sqrt(3)/2;

 writeln('Высота равностороннего треугольника =', FloatToStr(h));

end;

Answer 2

Конечно, вот пример программы на Pascal для вычисления высоты равностороннего треугольника:

pascalCopy code
program HeightOfEquilateralTriangle;

var
  sideLength, height: real;

begin
  // Введите длину стороны треугольника
  write('Введите длину стороны треугольника: ');
  readln(sideLength);

  // Вычислите высоту по формуле: h = (sqrt(3) / 2) * a
  height := (sqrt(3) / 2) * sideLength;

  // Выведите результат
  writeln('Высота равностороннего треугольника с длиной стороны ', sideLength, ' равна ', height);

  readln;
end.

Программа запрашивает у пользователя длину стороны треугольника, затем использует формулу $h = \frac{\sqrt{3}}{2} \times a$ для вычисления высоты и выводит результат. Надеюсь, это поможет!