Jak połączyć funkcję z tablicą?

Jak połączyć funkcję z tablicą?
B9
  • Rejestracja: dni
  • Ostatnio: dni
  • Postów: 112
0

Hej, załóżmy, że mam taką funkcję...
function taka_funkcja:real;
a w funkcji mam taki wynik:

Kopiuj
tab[1]:=0;
tab[2]:=1;
tab[3]:=2;

jak zatem mam wyświetlić tą funkcję, żeby wyświetlone zostały wszystkie elementy tablicy?

_13th_Dragon
  • Rejestracja: dni
  • Ostatnio: dni
0
Kopiuj
{$mode objfpc}
type realarray=array of real;

function taka_funkcja:realarray;
begin
   SetLength(Result,3);
   Result[0]:=0;
   Result[1]:=1;
   Result[2]:=2;
end;

function inna_funkcja(const tb:realarray):real;
var I:Integer;
begin
   Result:=0
   for I:=0 to Length(tb)-1 do Result:=Result+tb[I];
end;

begin
   WriteLn(inna_funkcja(taka_funkcja));
end.

Zarejestruj się i dołącz do największej społeczności programistów w Polsce.

Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.