Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 31.03.2016
Сообщений: 5

Вычислить сумму ряда рекурсивно и итеративно

31.03.2016, 22:01. Показов 631. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
1.напишите рекурсивную функцию которая подсчитает сумму: 1/(2*3)+2/(3*4)+...+n/(n+1)*(n+2)
2. имея рекурсивную подпрограмму составить итеративную
Pascal
1
2
3
4
5
6
   procedure f(n,k:integer);
     begin
     if k<=n then begin
     write(n-k); f(n,k+1);
     end;
     end;
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
31.03.2016, 22:01
Ответы с готовыми решениями:

Найти сумму ряда рекурсивно
Набросайте примерный ход. Решение задачи в паскаль с рекурсией. Найти значение выражения: y=СУММА(n;i) где...

Вычисление значения цепной дроби (рекурсивно и итеративно)
Описать рекурсивную и нерекурсивную функции вычисления значения цепной дроби: \huge...

Вычисление суммы рекурсивно и итеративно
Помогите сделать программу. В понедельник сдавать, а мне еще 9 программ писать. Все мельком глянул, вот только эту не знаю как сделать. ...

1
CAPITAL OF ROCK!
 Аватар для JokeR.BY
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
01.04.2016, 10:22
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
{$MODE TP}
function Recc(const n: LongWord): Extended;
var
    Result: Extended;
begin
    if (n = 0)
    then
        Result := 0
    else
        Result := n / (n + 1) / (n + 2) + Recc(n - 1);
    Recc := Result;
end;
 
function Iter(const n: LongWord): Extended;
var
    Result, xi: Extended;
    i: LongWord;
begin
    xi := 1 / 2 / 3; Result := xi;
    for i := 2 to n do
    begin
        xi := xi * Sqr(i) / (i - 1) / (i + 2);
        Result := Result + xi;
    end;
    Iter := Result;
end;
 
var
    n: LongWord;
begin
    Write('Input n='); ReadLn(n);
    WriteLn('Recc=', Recc(n):0:5);
    Write('Iter=', Iter(n):0:5);
end.
https://www.cyberforum.ru/cgi-bin/latex.cgi?{x}_{n+1}={x}_{n}*\frac{{\left(n+1 \right)}^{2}}{n*\left(n+3 \right)}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
01.04.2016, 10:22
Помогаю со студенческими работами здесь

Как рекурсивно и итеративно вычислить сумму ряда?
Ребят, помогите пожалуйста, ибо рекурсию вообще не шарю(( Есть ряд, как его считать?

Вычислить выражение рекурсивно и итеративно
Решить задачу двумя способами - с рекурсией и без: y(n)=\sqrt{1+\sqrt{2+...+\sqrt{n}}}

Вычислить выражение рекурсивно и итеративно
Помогите записать пример. Решить задачу на фото двумя способами - с применением рекурсии и без неё. ...

Вычислить произведение рекурсивно/итеративно, оценить время выполнения
Нужно разработать программу с использованием рекурсивной функции и без использования рекурсивной функции. Оценит время выполнения. x=...

Вычислить сумму ряда рекурсивно
Необходимо Вычислить сумму ряда с позиции N до позиции M. Функцию вычисления суммы реализовать рекурсивно. Вот что я наработал: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru