Вывести на экран таблицу значений функции у(х) для х, изменяющего от а =0,1 до b =1,2 с шагом h = 0,1.

[lenovo_vlad]

Помогите решить задачу пожалуйста

Вывести на экран таблицу значений функции у(х) для х, изменяющего от а =0,1 до b =1,2 с шагом h = 0,1.

[digitalis]

Ну давай свой вариант, посмотрим. А насчет халявы - во Фриланс.

[newerow1989]

function f(x:real):real;
var n:integer;
    xn:real;
begin
   { n^2 div 0 - no result!}
   xn:=x;
   Result:=Cos(pi/4)*xn;
   For n:=2 to 20 do
   begin
      xn:=xn*x;
      Result:=Result+Cos(n*pi/4)/n/n*xn;
   end;
end;

const a=0.1;
      b=1.2;
      h=0.1;
var y,x:real;
begin
   x:=a;
   Writeln('--------------------------');
   Writeln('     x     |     f(x)     ');
   Writeln('--------------------------');
   While x<=b do
   begin
      y:=f(x);
      Writeln(x:4:4,'       ',y:5:5);
      x:=x+h;
   end;
   Readln;
end.