Вычисление суммы ряда с заданной точностью Опции

[Single]

Помогите пожалуйста решить задачу на вычесление суммы ряда с заданной точностью по таким вот формулам
cos(i)*sin(i)+i*x/(i*(2*i))+abs(i+x*ln(e))

Сама точность 5*exp(-6*ln(10))

Наклепал вот такую задачу, но она неверная, помогите исправить пожалуйста недочёты в ней

program lab4;
uses crt;
const e=2.71;
label t1;
var
a,x,s,ecp:real;
n,i:integer;
begin
clrscr;
ecp:=5*exp(-6*ln(10));
writeln('tocnost=',ecp:1:6,'');
a:=x;
x:=0.71;
n:=6;
s:=x;
i:=0;
t1: for i:=1 to n do
begin
a:=cos(i)*sin(i)+i*x/(i*(2*i))+abs(i+x*ln(e));
s:=s+a;
i:=i+1;
writeln('chusla progresii=',a:6:2,'');
end;
if a<ecp then goto t1;
writeln('kolichestvo chlenov=',i);
writeln('suma chleniv=',s:6:3,'');
readkey;
end.

Результат нужно выдать в таком порядке
• Точность =
• Член 1=
• Член 2=
Сумма чисел прогресии =

Сообщение отредактировано: Lapp - 3.12.2007 13:49