Question

Разработать алгоритм для вычисления выражения, с указанными параметрами
pascal

Answer 1

// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (a, b, x) := (0.3, 0.9, 0.61);

 var y := (a ** (2 * x) + b ** (-x) * Cos(a + b) * x) / (x + 1);

 var R := Sqrt(x * x + b) - b * b * Sin(x + a) ** 3 / x;

 Println(y, R)

end.