Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
moshenick
0 / 0 / 0
Регистрация: 12.11.2014
Сообщений: 61
#1

Вычисление суммы рекурсивно и итеративно - Free Pascal

28.05.2016, 22:15. Просмотров 200. Ответов 3
Метки нет (Все метки)

Помогите сделать программу. В понедельник сдавать, а мне еще 9 программ писать. Все мельком глянул, вот только эту не знаю как сделать.
Задача: Разработать программу согласно алгоритму с использованием рекурсивной функции и без использования рекурсивной функции.
Вычисление суммы рекурсивно и итеративно
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.05.2016, 22:15
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычисление суммы рекурсивно и итеративно (Free Pascal):

Вычислить сумму ряда рекурсивно и итеративно
1.напишите рекурсивную функцию которая подсчитает сумму:...

Вычисление Суммы
Вычислить значение Суммы или произведения lnx= (x-1) - ((x-1)^2)/2 +...

вычисление суммы
Вычислить сумму S = K^2 - (2K)^2 + (3K)^2 - ... + (-1)^(n – 1) * (KN)^2. N...

вычисление суммы
m E 1/(n!+k!) k=1

Вычисление суммы
Составить программу вычисления суммы S\,=\,\sum_{i=1}^{10}\,\frac{1}{i^2}

Вычисление суммы ряда
var s,e,c,x:real; m:integer; begin e:=0.0001; m:=1; s:=1; c:=1; writeln...

3
Peoples
1270 / 775 / 730
Регистрация: 06.02.2016
Сообщений: 2,085
Записей в блоге: 15
Завершенные тесты: 4
28.05.2016, 23:44 #2
Без рекурсии
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
program pr;
var
  q, l, k: integer;
begin
  q := 0;
  writeln('Введите k');
  readln(k);
  l := 1;
  repeat
    q := q + (2 * l - 1);
    l := l + 1;
  until l > k;
  writeln('q= ', q);
end.
1
moshenick
0 / 0 / 0
Регистрация: 12.11.2014
Сообщений: 61
29.05.2016, 09:24  [ТС] #3
Спасибо, а можете еще сделать с рекурсией, или хотя бы на пальцах объяснить ее принцип действия.
0
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25622 / 17175 / 6836
Регистрация: 22.10.2011
Сообщений: 30,369
Записей в блоге: 6
01.06.2016, 12:05 #4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program pr;
 
function f(n : integer) : integer;
begin
  if n = 0 then f := 0
  else f := (2*n - 1) + f(n - 1);
end;
 
var
  q, l, k: integer;
begin
  q := 0;
  writeln('Введите k');
  readln(k);
 
  writeln('Рекурсия: q = ', f(k));
 
  l := 1;
  repeat
    q := q + (2 * l - 1);
    l := l + 1;
  until l > k;
  writeln('Итерация: q = ', q);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.06.2016, 12:05
Привет! Вот еще темы с решениями:

Вычисление значения суммы
Вычислить значение суммы Препод сказал что не правильно прошу помогите!!!...

Вычисление суммы ряда
помогите составить код на паскале x+(x^3/3!)+(x^5/5!)+...+(x^2n-1/(2n-1)!)+...

Вычисление суммы ряда
Вычисление суммы ряда оформить в виде процедуры с параметром (в качестве...

Вычисление суммы ряда
помогите пожалуйста. Дано натуральное n. Вычислить: ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru