Pascal - Passing Arrays as Subprogram Arguments
- Details
- Category: Chapter 3
- Published: Sunday, 14 April 2013 16:28
- Written by Sternas Stefanos
- Hits: 22078
Pascal allows passing arrays as subprogram parameters. Following function will take an array as an argument and return average of the numbers passed through the array as follows:
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.
When the above code is compiled and executed, it produces following result:
Average value is: 214.40