Question

Вычислить значение переменной u по заданной расчетной формуле и набору исходных данных. Значения исходных данных вводить с клавиатуры. На печать вывести значения вводимых исходных данных и результат вычислений, сопровождая вывод наименованием выводимых переменных.

Answer 1

// PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018

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

begin

 var (a, b, x) := ReadReal3('Введите через пробел a, b, x:');

 var u := (a * a * x + Exp(-x) * Sqr(b * x)) / (b * x - Exp(-x) * Sin(Abs(x - b)) + 1);

 $'a={a}, b={b}, x={x}, u={u,0:f5}'.Println

end.