Есть вот такой вот попросик...
Имеется ряд E= (-1)^N * X^2N / (2N)!
N=1
Так вот, надо определить с заданной точностью, а именно, с точностью cos(X) сумму бесконечного ряда.
Сам то алгоритм вычисленния данной суммы мне понятен, но вот с синтаксисом,а может и не только, есть проблемы
program sum_besc_ryad;
uses
crt;
const
pi=3.14;
lim=cos(x);
var
n:integer;
x:integer;
sum:real;
eps:real;
begin
repeat
ClrScr;
Writeln ('Please, enter epsilon:');
Readln (eps);
Writeln ('Eps = ', Eps:8:6);
Writeln;
If (Eps<=0) or (Eps>=1)
then
begin
Writeln ('bad epsilon (eps>1 or eps<0)');
Readln;
end;
until (Eps>0) and (Eps<1);
n:=0;
x:=?;
sum:=0;
n:=n+1;
Это небольшие наброски. Как мне установить в const моё значение точности cos(x) ?И вообще, если не сложно, помогите доработать программу.
Надеюсь, вы мне поможете :-)