Вычислить сумму и найти число слагаемых, которые вошли в сумму - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста в решении задачи. Вычислить сумму и найти число слагаемых, которые вошли в сумму (см. таблицу 4). Процесс вычислений требуется закончить, когда очередное слагаемое по модулю окажется меньше ε (это слагаемое при вычислении суммы уже не учитывать):

Решение задачи: «Вычислить сумму и найти число слагаемых, которые вошли в сумму»

textual
Листинг программы
n:=0;
t:=1;
s:=0;
while abs(t)>e do
 begin
  n:=n+1;
  t:=-t*x*x/n;
  s:=s+t;
 end;
write('S=',s:0:4);

Объяснение кода листинга программы

  1. Переменная n инициализируется значением 0.
  2. Переменная t инициализируется значением 1.
  3. Переменная s инициализируется значением 0.
  4. Запускается цикл while, который выполняется до тех пор, пока abs(t) больше или равно e (где e - некоторое число).
  5. Внутри цикла переменная n увеличивается на 1.
  6. Переменная t пересчитывается как -txx/n. Здесь x - это некоторое число, а n - это текущее значение переменной n.
  7. Переменная s увеличивается на значение переменной t.
  8. Цикл while завершается, если abs(t) становится меньше или равно e.
  9. Выводится строка 'S=', за которой следует значение переменной s, округленное до 4 знаков после запятой.

Оцени полезность:

8   голосов , оценка 4.125 из 5
Похожие ответы