Разработать программу вычисления значений заданных функций для произвольных значений...

Question

Разработать программу вычисления значений заданных функций для произвольных значений исходных данных. Выполнить тестовый расчет и расчет для заданных значений исходных данных.

---

Answer 1

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  (var a,var g):=(1.45,0.2);
  var x:=Ln(a+1/a);
  var y:=sin(x+a)*(1+Sqr(x+a))/(g*Sin(a));
  Writeln('x=',x,', y=',y)
end.

Результат
x=0.760644681664142, y=23.7854781268528