|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Циклы с неизвестным числом повторений
Написать программу суммирования рядов при одном и том же значении аргумента и 2-х значениях точности, отличающихся друг от друга более чем на порядок.
Ряд: y=1+a+a/2!+a/3!+..... Точность: 0,01 Точное значение: y=1-a+a*e |
#2
|
|||
|
|||
Ну и в чем проблема? While подойдет.
Код:
const e : double = 0.01; var i : double; k : double; begin s := 0; k := 1; i := 0; while k > e do begin s := s + k; inc(i); k := a/fact(i); end; Если нигде не напутал, то так. Последний раз редактировалось lmikle, 27.11.2013 в 06:21. |