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. как исправить?

joryk2012    2   07.09.2019 18:10    0