PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var F: (real,real) -> real :=
(a, x) -> Sqrt(x / a + a / x) + Ln(Sin(x) / Cos(2 * x));
var (a, x) := ReadReal2('Введите a, x:');
f(a, x).Println
end.
Примеры
Введите a, x: 3.5 0.24
2.51096182288121
Введите a, x: 5 2
NaN - при невозможности вычислить функцию