t12.p

来自「早期freebsd实现」· P 代码 · 共 27 行

program records(output);
type
	cmplx = record
		rp: real;
		ip: real;
	end;
var
	x, y: cmplx;
function cadd(a,b: cmplx): cmplx;
	var result: cmplx;
	begin
		result.rp := a.rp + b.rp;
		result.ip := a.ip + b.ip;
		cadd := result;
	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.