Pascal-passing-arrays-to-subprograms
提供:Dev Guides
サブプログラムの引数として配列を渡す
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