Referenz-Parameter II

ParamDemo3.om

MODULE ParamDemo3; IMPORT Write; VAR i: INTEGER; PROCEDURE P(VAR val: INTEGER); BEGIN Write.String("P: val = "); Write.Int(val, 1); Write.Ln; INC(i); Write.String("P: val = "); Write.Int(val, 1); Write.Ln; Write.String("P: i = "); Write.Int(i, 1); Write.Ln; END P; BEGIN i := 1; P(i); Write.String("Main: i = "); Write.Int(i, 1); Write.Ln; END ParamDemo3.

val und i sind in diesem Beispiel Synonyme. Also macht es keinen Unterschied, ob hier INC(val) oder INC(i) steht.

dublin$ ParamDemo3 P: val = 1 P: val = 2 P: i = 2 Main: i = 2 dublin$