Здравствуйте.
Не могли бы вы помочь найти ошибку в программе.
Программа:
Code
Program 123; uses crt;
const e=0.01;
var Spred,Stek,x:real; i:integer;
begin clrscr;
writeln('Введите любой x...');
write('x=');readln(x);
if x=-3 then write('Все суммы равны 0')
else begin i:=3;
Spred:=(x+3)/SQRT(2);
Stek:=Spred+((x+3)*(x+3))/(2*SQRT(3));
repeat Spred:=Stek;
Stek:=Spred+EXP((x+3)*ln(i))/(i*SQRT(i+1));
i:=i+1
until ABS(Spred-Stek)<e end;
write('Сумма равна - ',Spred:0:8,'(сложено до элемента №',i);readkey
end.
RSS:
