/* * juste une exemple que l'on verra peut-etre en cours * dans le livre de cours: Sebesta p. 364 * pseudo code ALGOL */ procedure BIGSUB; integer GLOBAL; integer array LIST[1:2]; procedure SUB(PARAM); integer PARAM; begin PARAM := 3; GLOBAL := GLOBAL + 1; PARAM := 5; end; begin LIST[1] := 2 LIST[2] := 2; GLOBAL := 1; SUB(LIST[GLOBAL]); end;