Циклы, помогите исправить ошибки!

[zarazza]

Приветствую! программирование в Delphi, циклы

задание:


архив с моим решением приложен

рецензия:
Замечания по части "б":

- не задано начальное значение prez. Поэтому при первом выполнении строки
while prez<e do
неизвестно, с чем будет сравниваться "e"

- расчет факториала будет выполняться правильно только для первого слагаемого

- в строке while prez<e do
условие задано неправильно

- у вас в сумму, помимо нужных слагаемых, попадет и то слагаемое которое приводит к выходу из цикла. А оно попадать в сумму уже не должно

первое замечание легкое, а вот с ошибками в условиях я не могу разобраться. помогите, пожалуйста!

[min@y™]

А где таблица 2?

[zarazza]

Сообщение от min@y™

А где таблица 2?

ой ей, второй скриншот не тот скинула) вот мой вариант из таблицы

[min@y™]

Ну, блин, как-то так штоль?



Скачать всё.

[evg_m]

 if (e <=0)or(e>=1)then showmessage('число выходит за границы диапазона');

 sum:=0;
 i:=1;
  prez:=x;//первый элемент
  while prez>e do //пока слагаемое БОЛЬШЕ
   begin
    sum:=sum+prez;//складываем ДО новых вычислений

    i:=i+1; //вычисляем НОВОЕ значение 
  
    if odd(i+1) then prez:=-1 //(-1)**(i+1)
    else prez:=1;
 
    for j:=1 to i do // (-1)**(i+1)*(x**i)
     prez:=prez*x;

    for j:=1 to (2*i-1) do // (-1)**(i+1)*(x**i)/(2*i-1)! 
     prez:=prez/j;

  end;

// как ВСЕ это можно написать короче 
i:=1;
prez:=(-1)*(-1)*x/1;
sum:=0;
while (prez/i)>e do begin // while i<n do begin
  sum:=sum+(prez/i); 
  i:=i+1;

 // вот это есть рекурсивное вычисление элемента по его предыдущему значению
  prez:=prez  *(-1)*x/((2*i-2)*(2*i-1));
end;