Вычислить сумму и найти число слагаемых, которые вошли в сумму - 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);
Объяснение кода листинга программы
- Переменная n инициализируется значением 0.
- Переменная t инициализируется значением 1.
- Переменная s инициализируется значением 0.
- Запускается цикл while, который выполняется до тех пор, пока abs(t) больше или равно e (где e - некоторое число).
- Внутри цикла переменная n увеличивается на 1.
- Переменная t пересчитывается как -txx/n. Здесь x - это некоторое число, а n - это текущее значение переменной n.
- Переменная s увеличивается на значение переменной t.
- Цикл while завершается, если abs(t) становится меньше или равно e.
- Выводится строка 'S=', за которой следует значение переменной s, округленное до 4 знаков после запятой.