Program2.pas(29) : Нельзя преобразовать тип function(x: real;eps: real): real к real var...

Question

Program2.pas(29) : Нельзя преобразовать тип function(x: real;eps: real): real к real
var
a, i, s, r, j, t, x, eps: real;

function v(x, eps: real): real;
begin
i := 1;s := 0;a := 1;t := 1; r := 1;
while abs(sin(x) - s) > eps do
begin

while i <= x do<br> begin
a := a * i;
r := r + 1
end;

s := s + t * power(x, i) / a;
t := -t;
a := 1;
i := i + 2;
end;
v := s;
end;

begin
read(x);
read(eps);
a := v;
v(x, eps);
write('sinx=', sin(x));
write('по формуле ', a);
write('количество итераций', i);
end.
Как исправить?

Answer 1

var
  a,i,s,r,j,t,x,eps:real;

function v(x,eps:real):real;
begin
  i:=1; s:=0; a:=1; t:=1; r:=1;
  while abs(sin(x)-s)>eps do begin
    while i<=x do begin a:=a*i; r:=r+1 end;<br>  s:=s+t*power(x,i)/a;
  t:=-t; a:=1;
  i:=i+2
  end;
  v:=s
end;

begin
  read(x);
  read(eps);
  a:=v(x,eps);
  write('sinx=',sin(x));
  write('по формуле ',a);
  write('количество итераций',i);
end.