С помощью рекурсии вывести сумму элементов массива

@Saccn · Регистрация: 29.10.2016

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

Помогите разобраться в рекурсии. С помощью рекурсии вывести сумму элементов массива.

@Sergey_Davydovs · 29.06.2017, 19:44

Сделал на скорую руку. Можно и нужно оптимизировать, но работает верно.

Рекурсия, если простыми словами - процедура, которая вызывает саму же себя, пока не выполнится условие выхода из процедуры. Если условия нет или оно никогда не выполнится - процедура будет работать вечно (пока не закончится память). (И да, сделал на Pascal, думаю на Delphi - не тяжело будет перевести)

Pascal

Var mass: array[0..10] of integer;
summ: integer;
Procedure summarray(i: integer); 
Begin 
   summ:=summ+i;
   i:=i-1;
   Writeln (summ+' '+i);
    If i=0 then exit; 
   summarray(i);  
End; 
begin
    for var j:=0 to 9 do
      mass[j]:=j;
  summarray(9);
end.

@Puporev · 29.06.2017, 20:04

Для примера.

Delphi

var
  Form1: TForm1;
  a:array of integer;
implementation
 
{$R *.dfm}
//рекурсивня функция
function summa(n:integer):integer;
begin
if n=0 then summa:=0
else summa:=summa(n-1)+a[n-1];//рекурсивный вызов
end;
procedure TForm1.Button1Click(Sender: TObject);
var n,i:integer;
begin
randomize;
n:=10;
setlength(a,n);
Edit1.Clear;
for i:=0 to n-1 do
 begin
  a[i]:=1+random(5);
  Edit1.Text:=Edit1.Text+'  '+inttostr(a[i]);
 end;
Edit2.Text:=inttostr(summa(n))
end;

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

Помогите разобраться в рекурсии

Читайте сами, информации в инете море.

@Saccn 0 / 0 / 1 Регистрация: 29.10.2016 Сообщений: 6
		1
	С помощью рекурсии вывести сумму элементов массива 29.06.2017, 19:36. Показов 1103. Ответов 2 Метки нет (Все метки) Помогите разобраться в рекурсии. С помощью рекурсии вывести сумму элементов массива. 0

	29.06.2017, 20:04

С помощью рекурсии вывести сумму элементов массива

Решение