The ADA Programming Language

Array Summation Example Program

Description

This program demonstrates some of ADA's features, such as packaging and array processing.

Source Code

package ArrayCalc is
	type Mydata is private;
	function sum return integer;
	procedure setval(arg:in integer);
	private
		size: constant:= 99;
		type myarray is array(1..size) of integer;
		type Mydata is record
			val: myarray;
			sz: integer := 0;
			end record;
		v: Mydata;
end;

package body ArrayCalc is
	function sum return integer is
		temp: integer;
	-- Body of function sum
		begin
		temp := 0;
		for i in 1..v.sz loop
			temp := temp + v.val(i);
			end loop;
			v.sz:=0;
			return temp;
			end sum;
		procedure setval(arg:in integer) is
			begin
			v.sz:= v.sz+1;
			v.val(v.sz):=arg;
			end setval; end;

with Text_IO; use Text_IO;
with ArrayCalc; use ArrayCalc;
procedure main is
	k, m: integer;
begin -- of main
	get(k);
	while k>0 loop
		for j in 1..k loop
		get(m); put(m,3);
		setval(m);
		end loop;
		new_line; put("SUM =");
		put(ArrayCalc.sum,4);
		new_line; get(k);
		end loop;
end;

Sample Run

Input:
	4 1 2 3 4 5 1 2 3 4 5 0
	
Output:
	  1  2  3  4
	SUM =  10
	  1  2  3  4  5
	SUM =  15

Program Notes

This program is taken from Programming Languages: Design and Implementation by Terrence W. Pratt and Marvin V. Zelkowitz.