home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t12.p < prev    next >
Text File  |  1980-02-17  |  347b  |  25 lines
  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.
  25.