0 / 0 / 0
Регистрация: 30.03.2015
Сообщений: 15
1

Разработать программу для вычисления заданных сумм (рекурсия)

05.05.2015, 22:47. Показов 1994. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задано натуральное n . Разработать программу для вычисления заданных сумм . При исчислении сумм использовать
рекурсивные процедуры или функции.

https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{i=1}^{n}\frac{x_i}{k!!}\\<br />
x_1=1\;,\;x_2=2\;,\;x_3=3\\<br />
x_i=x_{i-1}+x_{i-2}+x_{i-1}
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
05.05.2015, 22:47
Ответы с готовыми решениями:

Разработать программу вычисления значений заданных функций для произвольных значений исходных данных
Разработать программу вычисления значений заданных функций для произвольных значений исходных...

Разработать программу для вычисления значений двух функций типа y=f(x) в точках x при заданных значениях a
Здравствуйте. Можете, пожалуйста, помочь с написанием программы. Организовать вывод результатов...

Разработать программу для вычисления заданных сумм, рекурсия
Задача: Задано натуральное n. Разработать программу для вычисления заданных сумм. ...

С помощью рекурсии разработать программу для вычисления заданных сумм
Задано натуральное n. Разработать программу для вычисления заданных сумм. При расчете сумм...

5
5087 / 2658 / 2350
Регистрация: 10.12.2014
Сообщений: 10,054
06.05.2015, 07:29 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
35
36
37
38
var
  N, K : Integer;
 
function DoubleFactorial(N : Integer) : Real;
var
  F : Real;
begin
  if N > 1 then
    DoubleFactorial := DoubleFactorial(N - 2) * N
  else
    DoubleFactorial := 1;
end;
 
function X(i : Integer) : Integer;
begin
  if i > 3 then
    X := X(i-1) + X(i-2) + X(i-3)
  else
    X := i;
end;
 
function Summa : Real;
var
  i : Integer;
  Sum, Kff : Real;
begin
  Kff := DoubleFactorial(K);
  Sum := 0;
  for i := 1 to N do
    Sum := Sum + X(i) / Kff;
  Summa := Sum;
end;
  
begin
  Write('N = '); ReadLn(N);
  Write('K = '); ReadLn(K);
  WriteLn('Сумма = ', Summa:0:10);
end.
Добавлено через 1 минуту
P.S. Для данной формулы гораздо лучше использовать рекуррентные формулы… Попробуйте запустить для N = 100…
1
0 / 0 / 0
Регистрация: 30.03.2015
Сообщений: 15
06.05.2015, 14:28  [ТС] 3
а как тогда з рекурсией будет?
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
33022 / 21323 / 8186
Регистрация: 22.10.2011
Сообщений: 36,632
Записей в блоге: 9
06.05.2015, 15:30 4
Это и есть с рекурсией
0
0 / 0 / 0
Регистрация: 30.03.2015
Сообщений: 15
06.05.2015, 17:49  [ТС] 5
ну да.. спасибо

Добавлено через 31 минуту
а ето для консоли.. а если зделать форму, то вивод данних просто другой?
0
Эксперт Pascal/Delphi
6811 / 4568 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
10.05.2015, 15:23 6
mylogo12, да, просто переделаете вывод. Например, в Memo
0
10.05.2015, 15:23
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.05.2015, 15:23
Помогаю со студенческими работами здесь

Разработать программу вычисления значения заданных сумм
Задано действительны Х иY(n) массив,n&lt;=200. Разработать программу вычисления значения заданных...

Разработать программу для вычисления значений заданных выражений
Задано натуральные n и m. Разработать программу для вычисления значений заданных выражений. При...

Разработать программу вычисления значений заданных функций для произвольных значений исходных данных
Разработать программу вычисления значений заданных функций для произвольных значений исходных...

Разработать программу вычисления значений заданных функций для произвольных значений исходных данных
Разработать программу вычисления значений заданных функций для произвольных значений исходных...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

Новые блоги и статьи
Как преобразовать список списков в простой список в Python
bytestream 22.01.2025
При работе с Python разработчики часто сталкиваются с необходимостью обработки сложных структур данных, среди которых особое место занимают вложенные списки. Эти структуры представляют собой списки,. . .
Что такое GUID / UUID и как их создать
bytestream 22.01.2025
В мире разработки программного обеспечения существует постоянная потребность в уникальной идентификации объектов, записей и ресурсов. Эта задача становится особенно актуальной в распределенных. . .
Как добавить пустую директорию в репозиторий Git
bytestream 22.01.2025
При работе с системой контроля версий Git разработчики часто сталкиваются с ситуацией, когда необходимо сохранить пустую директорию в репозитории. Данная задача может показаться простой на первый. . .
Как валидировать адрес email в JavaScript
bytestream 22.01.2025
JavaScript, как основной язык веб-разработки, предоставляет разработчикам множество инструментов для реализации эффективной валидации email-адресов. От простых встроенных решений до сложных. . .
Как заменить все вхождения подстроки в JavaScript
bytestream 22.01.2025
Строки в JavaScript представляют собой неизменяемые последовательности символов, что делает их обработку особенно интересной с точки зрения оптимизации и выбора правильного подхода к решению задач. . . .
Управление версиями пакетов в Node.js. В чем разница между тильдой (~) и кареткой (^) в package.json
bytestream 22.01.2025
В современной разработке программного обеспечения управление версиями пакетов играет ключевую роль в обеспечении стабильности и надежности проектов. Node. js, как одна из самых популярных платформ для. . .
Аутентификация на сайте с помощью формы
bytestream 21.01.2025
В современном цифровом мире безопасная аутентификация становится краеугольным камнем защиты веб-приложений и пользовательских данных. Каждый день миллионы людей используют различные онлайн-сервисы,. . .
Как получить индекс в цикле for в Python
bytestream 21.01.2025
При работе с коллекциями данных в Python часто возникает необходимость не только получить доступ к элементам последовательности, но и знать их позицию в процессе итерации. Индексация в циклах. . .
Как определить адрес, из которого локальный репозиторий Git был клонирован
bytestream 21.01.2025
В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса. При работе с Git разработчики часто сталкиваются с необходимостью. . .
Какая разница между операторами == и === в сравнениях в JavaScript
bytestream 21.01.2025
В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .
Из чего и как собрать свой домашний кинотеатр
bt_guru 21.01.2025
Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .
Ошибки стиральных машин
bt_guru 21.01.2025
Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru