Question

Помогите решить плиз....

Answer 1

Var
   x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Sqr(x+1)*(x+1)-2);
x:=x+0.5
Until x > 4;
End.

Но можно третью степень вычислить и по-другому:

Var
   x:real;
Begin
X:=0.5;
Repeat
WriteLn('Z(',x,') = ',Exp(3*Ln(x+1))-2);
x:=x+0.5
Until x > 4;
End.

Answer 2

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Range(0.5,4.0,7).Select(x->(x,Power(x+1,3)-2))
      .ForEach(x->Writeln(x[0]:4:2,x[1]:10:3))
end.

Результат
0.50     1.375
1.00     6.000
1.50    13.625
2.00    25.000
2.50    40.875
3.00    62.000
3.50    89.125
4.00   123.000