Составить рекурсивный алгоритм вычисления суммы элементов массива

@ShamanX · Регистрация: 05.09.2010

Студворк — интернет-сервис помощи студентам

Пожалуйста помогите составить алгоритм вычисления суммы элементов массива

@Puporev · 05.09.2010, 14:00

Pascal

uses crt;
type Mas=array[1..100] of integer;
{Рекурсивная функция}
function Summa(k:byte;x:Mas):integer;
begin
if k=0 then Summa:=0 else Summa:=x[k]+Summa(k-1,x)
{если массив пуст, сумма=0, 
иначе к предыдущей сумме добавляем значение текущего элемента}
end;
{Основная программа}
var a:Mas;
    i,n,m:Byte;
begin
clrscr;
randomize;
write('Количество элементов массива n=');
readln(n);
for i:=1 to n do
  begin
    a[i]:=Random(20);
    write(a[i],' ');
  end;
writeln;
write('Сумма=',Summa(n,a));
readln
end.

@ShamanX · 08.09.2010, 22:12 **[ТС]**

И наконец последний вопросик к вам на сегодня)))))) на счет этой строки, что она вообще делает и что означают входящие в нее элементы?:

function Summa(k:byte;x:Mas):integer;

Просто препод у меня спросит наверняка про эту рекурсивную функцию, а я не "мя" не "бе") И еще: можно ли ее как-нибудь через procedure или по-другому ее ввести?

@Puporev · 08.09.2010, 22:26

Сообщение от ShamanX

Просто препод у меня спросит наверняка про эту рекурсивную функцию,

Ну так хоть прочитайте чуть про функции. Это же во всех учебниках есть.
Suuma-имя функции
x,k-параметры функции, массив и номер элемента
:integer-тип возвращаемого значения.
Можно и процедуру придумать, но получать одно значение проще функцией.
Насчет преподавателя, то он вам все равно не поверит что это вы сами алгоритм придумали, все таки рекурсия не очень простая вещь.

@Mr_Bula · 05.11.2014, 18:27

Извините а почему у вас элементы суммируются не в цикле, как он будет индекс то менять?

@Puporev · 05.11.2014, 18:49

Сообщение от Mr_Bula

суммируются не в цикле

Да потому что это рекурсия.

Добавлено через 56 секунд
И кстати там это прокомментировано..

@ShamanX 0 / 0 / 1 Регистрация: 05.09.2010 Сообщений: 15
		1
	Составить рекурсивный алгоритм вычисления суммы элементов массива 05.09.2010, 13:55. Показов 11099. Ответов 5 Метки нет (Все метки) Пожалуйста помогите составить алгоритм вычисления суммы элементов массива 0

@ShamanX 0 / 0 / 1 Регистрация: 05.09.2010 Сообщений: 15
	08.09.2010, 22:12 [ТС]	3
	И наконец последний вопросик к вам на сегодня)))))) на счет этой строки, что она вообще делает и что означают входящие в нее элементы?: function Summa(k:byte;x:Mas):integer; Просто препод у меня спросит наверняка про эту рекурсивную функцию, а я не "мя" не "бе") И еще: можно ли ее как-нибудь через procedure или по-другому ее ввести? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	08.09.2010, 22:26	4
	Сообщение от ShamanX Просто препод у меня спросит наверняка про эту рекурсивную функцию, Ну так хоть прочитайте чуть про функции. Это же во всех учебниках есть. Suuma-имя функции x,k-параметры функции, массив и номер элемента :integer-тип возвращаемого значения. Можно и процедуру придумать, но получать одно значение проще функцией. Насчет преподавателя, то он вам все равно не поверит что это вы сами алгоритм придумали, все таки рекурсия не очень простая вещь. 0

@Mr_Bula 0 / 0 / 0 Регистрация: 29.04.2013 Сообщений: 100
	05.11.2014, 18:27	5
	Извините а почему у вас элементы суммируются не в цикле, как он будет индекс то менять? 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	05.11.2014, 18:49	6
	Сообщение от Mr_Bula суммируются не в цикле Да потому что это рекурсия. Добавлено через 56 секунд И кстати там это прокомментировано.. 0

Опции темы