Pascal 数组参数

• 

  数组参数

  Pascal允许将数组作为子程序参数传递。以下函数将数组作为参数，并返回通过数组的数字的平均值，如下所示：

  
  program arrayToFunction;
  const
     size = 5;
  type
     a = array [1..size] of integer;
  var
     balance:  a = (1000, 2, 3, 17, 50);
     average: real;  
  
  function avg( var arr: a) : real;
  var
     i :1..size;
     sum: integer;
  
  begin
     sum := 0;
     for i := 1 to size do
        sum := sum + arr[i];
     avg := sum / size;
  end;
  
  begin  
     (*  Passing the array to the function  *)
     average := avg( balance ) ;
     
     (* output the returned value *)
     writeln( 'Average value is: ', average:7:2);
  end.
  

  复制

  尝试一下

  编译并执行上述代码后，将产生以下结果-

  
  Average value is: 214.40
  

  复制