Return to t09.p CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / pascal / tstpx / src

Annotation of 43BSDTahoe/ucb/pascal/tstpx/src/t09.p, revision 1.1

1.1     ! root        1: program sideffect(output);
        !             2: var
        !             3:        a, z: integer;
        !             4: function sneaky(x: integer): integer;
        !             5:        begin
        !             6:                z := z-x;
        !             7:                sneaky := sqr(x);
        !             8:        end;
        !             9: begin
        !            10:        z := 10;
        !            11:        a := sneaky(z);
        !            12:        writeln(a, z);
        !            13:        z := 10;
        !            14:        a := sneaky(10) * sneaky(z);
        !            15:        writeln(a, z);
        !            16:        z := 10;
        !            17:        a := sneaky(z) * sneaky(10);
        !            18:        writeln(a, z);
        !            19: end.

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