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 / t09.p < prev    next >
Text File  |  1980-02-17  |  296b  |  20 lines
  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.
  20.