Информатика

Мира

4 марта, 19:22

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

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.

Как исправить?