// PascalABC.NET
function f(x: real) := (2 * x + 5 * x - 3) /
(Sqr(x + 1) + 3 * (x + 1));
begin
foreach var x in Seq(-2.1, 1.5) do
Writeln(x:4:1, f(x):20:15)
end.
Составить программу для вычисления значений следующей функции: значения аргумента: -2,1; 1.5.
// PascalABC.NET
function f(x: real) := (2 * x + 5 * x - 3) /
(Sqr(x + 1) + 3 * (x + 1));
begin
foreach var x in Seq(-2.1, 1.5) do
Writeln(x:4:1, f(x):20:15)
end.