[unix-history] / tests / t12.p

program records(output);
type
	cmplx = record
		rp: real;
		ip: real;
	end;
var
	x, y: cmplx;
function cadd(a,b: cmplx): cmplx;
	begin
		cadd.rp := a.rp + b.rp;
		cadd.ip := a.ip + b.ip;
	end;
procedure cprint(a: cmplx);
	begin
		writeln(a.rp, '+', a.ip, 'i');
	end;
begin
	x.rp := 1;
	x.ip := 2;
	y.rp := 3;
	y.ip := 4;
	cprint(cadd(x, y));
end.
Commit	Line	Data
fde98a2d BJ	1	program records(output);
	2	type
	3	cmplx = record
	4	rp: real;
	5	ip: real;
	6	end;
	7	var
	8	x, y: cmplx;
	9	function cadd(a,b: cmplx): cmplx;
	10	begin
	11	cadd.rp := a.rp + b.rp;
	12	cadd.ip := a.ip + b.ip;
	13	end;
	14	procedure cprint(a: cmplx);
	15	begin
	16	writeln(a.rp, '+', a.ip, 'i');
	17	end;
	18	begin
	19	x.rp := 1;
	20	x.ip := 2;
	21	y.rp := 3;
	22	y.ip := 4;
	23	cprint(cadd(x, y));
	24	end.