рекурсия

[cherry097]

Online delete Message for Irina Fomenkova
yesterday at 10:56 pm
program Recursive_debug;
{$mode objfpc}{$H+}
uses
Classes, SysUtils
{ you can add units after this };

type Dmas = array of real; // описание типа "вещественный массив"
var a:Dmas; // динамический массив

function AvgFwd(n:integer;var x:Dmas):real;
// функция AvgFwd суммирует массив x с начала;
// индексы массива x внутри AvgFwd изменяются
// от 0 до n-1, где n - количество элементов в
// массиве; поэтому обращаться к AvgFwd необходимо
// с массивами, объявленными с индекса 0;
begin
if n>1 then
AvgFwd:=x[n-1]/n+(n-1)/n*AvgFwd(n-1,x)
else
AvgFwd:=x[0];
end;

{$IFDEF WINDOWS}{$R Recursive_debug.rc}{$ENDIF}

begin
SetLength(a, 5); // выделение памяти для динамического массива
a[0]:=1;
a[1]:=2;
a[2]:=3;
a[3]:=4;
a[4]:=5.5;
writeln(#10,'AvgFwd(',5,')=',AvgFwd (5,a):4:2);
readln();
end.


нужно избавиться от параметра а, используя параметр по умолчанию

[artemavd]

Тему закрыта из-за несоблюдения и неуважения правил форума.