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

Question

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

---

Answer 1

Табуляция функций - это задача из разряда "однострочных".

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

begin
  Range(0,14).Select(i->0.25*i).Select(x->(x,2*sqrt(x+1)*cos(x)))
      .ForEach(x->Writeln(x[0]:5:2,x[1]:15:7))
end.

Результат
1.00      1.5282057
 1.25      0.9459671
 1.50      0.2236907
 1.75     -0.5911753
 2.00     -1.4415749
 2.25     -2.2649122
 2.50     -2.9976049
 2.75     -3.5798077
 3.00     -3.9599700
 3.25     -4.0989017
 3.50     -3.9730492

Answer 2

Var
   x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',2*Sqrt(x+1)*Cos(x));
x:=x+0.25
Until x > 3.5;
End.