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.

while (abs(a)>ecp) and (i<=6) do

ecp:=5*exp(-6*ln(10));

Const ecp = 5E-6;

Const ecp = 5E-6;

for i:=1 to n do
begin
...
i:=i+1; // <- изменение параметра цикла for "вручную" крайне нежелательно, 
           // а у меня вообще не проходит компиляцию..
...
end;

Цитата(volvo @ 4.12.2007 19:11)

program lab4;
uses crt;
const e=2.71;
var
a,x,s,ecp:real;
i:integer;
begin
clrscr;
ecp:=5e-6;
a:=0;
x:=0.71;
s:=x;
i:=1;
     while (abs(a-trunc(a) )>ecp)and(i<=5)or(a=0) 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:12,'');
      end;
writeln('tocnost=',ecp:1:6,'');
writeln('kolichestvo chlenov=',i);
writeln('suma chleniv=',s:6:3,'');
readkey;
end.