Вычислить значения функции f(x) на отрезке[a,b] с шагом h. f(x)=xlnx+1. Результат

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

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

begin

 var (a, b, h) := (0.0, 4.0, 0.2);

 var x := a;

 while x lt;= b + h / 2 do

 begin

   Writeln('x,3:f1 x*x*Ln(Sqrt(x+1)),13:f10');

   x += h

 end

end.

include lt;cmathgt;

include lt;iostreamgt;

int main()

const float

 a = 0.0f,

 b = 4.0f,

 h = 0.2f;

for(float x = a; x lt;= (b+0.1f); x += h)

 std::cout lt;lt; "X = " lt;lt; x lt;lt; "\t f(x) = " lt;lt; pow(x, 2)*log(sqrt(x + 1)) lt;lt; std::endl;