Question

How to pass to a function any number of arguments in Pascal

Answer 1

program anynumberofargumentsProgram;

type
  TIntArray = array of Integer;

function SumNumbers(numbers: TIntArray): Integer;
var
  i, sum: Integer;
begin
  sum := 0;
  for i := Low(numbers) to High(numbers) do 
    sum := sum + numbers[i];
  SumNumbers := sum;
end;

const
  InitialValues1: array[0..4] of Integer = (1, 2, 3, 4, 5);
  InitialValues2: array[0..2] of Integer = (6, 7, 8);
var
  arr1: array[0..4] of Integer;
  arr2: array[0..2] of Integer;
begin
  arr1 := InitialValues1;
  writeln('The sum of arr1 is: ', SumNumbers(arr1));
  
  arr2 := InitialValues2;
  writeln('The sum of arr2 is: ', SumNumbers(arr2));
end.



(*
run:

The sum of arr1 is: 15
The sum of arr2 is: 21

*)

 

70+ SQL courses for beginners and professionals

Answer 2

program anynumberofargumentsProgram;

function SumNumbers(numbers: array of Integer): Integer;
var
  i, sum: Integer;
begin
  sum := 0;
  for i := Low(numbers) to High(numbers) do 
    sum := sum + numbers[i];
  SumNumbers := sum;
end;

const
  InitialValues1: array[0..4] of Integer = (1, 2, 3, 4, 5);
  InitialValues2: array[0..2] of Integer = (6, 7, 8);
var
  arr1: array[0..4] of Integer;
  arr2: array[0..2] of Integer;
begin
  arr1 := InitialValues1;
  writeln('The sum of arr1 is: ', SumNumbers(arr1));
  
  arr2 := InitialValues2;
  writeln('The sum of arr2 is: ', SumNumbers(arr2));
end.



(*
run:

The sum of arr1 is: 15
The sum of arr2 is: 21

*)

 

70+ SQL courses for beginners and professionals