Версия для печати темы

Автор: Bac9 21.03.2008 4:45

Хелп!!помагите плз написать программу с рекурсивной функцией вычисляюший сумму элементов одномерного массива

Автор: volvo 21.03.2008 4:59

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

Автор: Bac9 21.03.2008 5:02

Итерация-?!!!Проблема 1 немогу решить задачукажеться легко а нечё неполучаеться!!!хелп

Автор: Bac9 21.03.2008 15:06

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)2);
readkey;
end.
вот мои нароботки!!хелп

Автор: volvo 21.03.2008 15:28

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.

Автор: Гость 21.03.2008 18:18

Спс большое очень благодарен1!!!