Return to t12.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/t12.p, revision 1.1.1.1

1.1       root        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:        var result: cmplx;
                     11:        begin
                     12:                result.rp := a.rp + b.rp;
                     13:                result.ip := a.ip + b.ip;
                     14:                cadd := result;
                     15:        end;
                     16: procedure cprint(a: cmplx);
                     17:        begin
                     18:                writeln(a.rp, '+', a.ip, 'i');
                     19:        end;
                     20: begin
                     21:        x.rp := 1;
                     22:        x.ip := 2;
                     23:        y.rp := 3;
                     24:        y.ip := 4;
                     25:        cprint(cadd(x, y));
                     26: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.