IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Рекурсия:сумма ряда, Нужна помошь
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  -1  +


Хелп!!помагите плз написать программу с рекурсивной функцией вычисляюший сумму элементов одномерного массива
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов(1 - 5)
сообщение
Сообщение #2


Гость






С итерацией написать сможешь? В чем тогда проблемы рекурсивной реализации?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  -1  +


Итерация-?!!!Проблема 1 немогу решить задачукажеться легко а нечё неполучаеться!!!хелп
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 12
Пол: Мужской
Реальное имя: Вячеслав

Репутация: -  -1  +


program rekurciya;
uses crt;
var
i,m:integer;
b:array[1..20] of integer;
function Rec( var a:array of integer;
n:integer):real;
var
X,Y:real;
begin
if n=1 then Rec:=a[0]
else
begin
x:=n+rec(a,n-1);
Rec:=x
end;
end;
begin
Writeln('Vvedite kolichestvo elementov m:');
Readln(m);
writeln('vvedite elementi massiv');
for i:=1 to m do
read(b[i]);
writeln(Rec(b,m)3.gif2);
readkey;
end.
вот мои нароботки!!хелп
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






program rekursiya;
uses crt;

{ сумма целых - она тоже целая, не вещественная }
function s(const a: array of integer; n: integer): integer;
begin
if n = 0 then s := 0
else s := a[n - 1] + s(a, n - 1);
end;

var
i, size: integer;
arr: array[1 .. 20] of integer;

begin
Writeln('Vvedite kolichestvo elementov m:');
Readln(size);

writeln('vvedite elementi massiv');
for i := 1 to size do readln(arr[i]);

writeln(s(arr, size));
readkey;
end.

 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Спс большое очень благодарен1!!!
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 12:58
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name