|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Вычисление функции разложением ее в ряд
Помогите, хотябы начало алгоритма!!!!!!
|
#2
|
|||
|
|||
тебе надо написать функцию вычисления i-го члена ряда. Дальше в цикле While a(i) > E Do выичисляешь сумму.
Код:
function a(n : Integer) : Extended; begin // вычисление i-го члена ряда - сам напишешь, там просто. end; function Ryad(E : Extended) : Extended; var I : Integer; begin Result := 0; I := 1; While a(I) > E Do begin Result := Result + a(I); Inc(I); end; end; |