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

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.