Помощь - Поиск - Пользователи - Календарь
Полная версия: Рекурсия:сумма ряда
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Bac9
Хелп!!помагите плз написать программу с рекурсивной функцией вычисляюший сумму элементов одномерного массива
volvo
С итерацией написать сможешь? В чем тогда проблемы рекурсивной реализации?
Bac9
Итерация-?!!!Проблема 1 немогу решить задачукажеться легко а нечё неполучаеться!!!хелп
Bac9
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.
вот мои нароботки!!хелп
volvo
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.

Гость
Спс большое очень благодарен1!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.