Циклы итерационного типа

[nick6161]

Мое неправильное решение

var  F,x,S,eps:real;
     n,fact:integer;
begin
write('vvedite x=');readln(x);
write('vvedite eps=');readln(eps);
F:=1;fact:=2; n:=1; S:=exp(2*n*ln(x))/fact;
while abs(S)>eps do
begin
F:=F+S;
n:=n+1;
fact:=fact*n*(n+1);
S:=exp(2*n*ln(x))/fact;
end;
write('pri x=',x:5:3, ' eps=',eps:5:3,' F=',F:10:3);
readln;
end.

Помогите пожалуйста

[KEA0301]

у тебя факториал не правильно считается, а лучше сделать примерно так:
...

F:=1; n:=1; S:=x*x/2;
while abs(S)>eps do
begin
F:=F+S;
n:=n+1;
S:=S*(x*x)/((2*n)*(2*n-1));
end;
...

[nick6161]

KEA0301
Переписал программу, а все равно факториал считается неправильно

var F,x,S,eps:real;
n,fact:integer;
begin
write('vvedite x=');readln(x);
write('vvedite eps=');readln(eps);
F:=1; n:=1; S:=x*x/2;
while abs(S)>eps do
begin
F:=F+S;
n:=n+1;
S:=S*(x*x)/((2*n)*(2*n-1));
end;
write('pri x=',x:5:3, ' eps=',eps:5:3,' F=',F:10:3);
readln;
end.

[KEA0301]

А откуда такая уверенность?

[nick6161]

При вводе любого из условий сверху, F получается равным единице, вроде так не должно быть. Или я ошибаюсь?

[KEA0301]

Ну а ты подставь в неравенство первый же элемент, максимальная S это ((0,03*0,03)/2)=0,00045, и в итоге не одной итерации не выполнится и поэтому F=1.

[Prime123]

var  
x,S,eps,a:real;
n:integer;
begin
write('vvedite x=');readln(x);
write('vvedite eps=');readln(eps);
a:=1; n:=1;s:=0;
while abs(S)>eps do
begin
s:=s+a;
n:=n+1;
a:=a*(x*x)/(2*n-1)*(2*n);
end;
write('pri x=',x:5:3, ' eps=',eps:5:3,' S=',s:10:3);
readln;
end.

[KEA0301]

Prime123 у тебя цикл ни разу не выполнится, а A будет делится не на 2!, а на (3*4).

[evg_m]

// F:=1; n:=1; S:=x*x/2;
F:=0; n:=0; s:=1;
while abs(s)>eps do
begin
  F:=F+s;
  n:=n+1;
  s:=s * ( (x*X) / ((2*n-1) *(2*n) ) );
end;

end;

[Prime123]

var  
x,S,eps,a:real;
n:integer;
begin
write('vvedite x=');readln(x);
write('vvedite eps=');readln(eps);
a:=1; n:=1;s:=0;
while abs(a)>eps do//поменять s на a
begin
s:=s+a;
a:=a*(x*x)/(2*n-1)*(2*n);
n:=n+1;//Эти строки нужно было поменять местами
end;
write('pri x=',x:5:3, ' eps=',eps:5:3,' S=',s:10:3);
readln;
end.

Или вариант,предложенный выше
Вариантов изменить код правильно очень много
Необходимо стараться думать самостоятельно