Question

Решить при помощи паскаль Очень надо кто решит дам еще 60 пунктов + 20 за лучшее.

Answer 1

const e = 2.7182818285; //константа - число е

var

  x, b, a, s1, s2: real; {s1 - результат вычисления 1-ой функции, s2 - 2-ой функции}
begin
  writeln('Введите x, b, a');
  readln(x, b, a);
  writeln('Исходные значения: x = ', x, ', b = ', b, ', a = ', a);
  s1:= (sqr(x) * x) * sqr(sin(sqr(x + b)) / cos(sqr(x + b))) + a / sqrt(x + b);{sin / cos - это tg}
  s2:= (b * sqr(x) - a) / (power(e, a * x) - 1);{функция power возводит число е в степень a * x}

  writeln('Результат вычисления 1 формулы: ', s1 : 0 : 5, ', 2 формулы: ', s2 : 0 : 5);{ : 0 : 5 - это формат вывода с точностью до 5 знаков после запятой а 0 это автоформатирование числа знаков до запятой}

end.

Функция power есть в компиляторах pascal ABC, pascal ABC.NET.