Lösung zu Aufgabe 24

  1. MODULE Aufgabe24;
  2. FROM InOut IMPORT WriteInt, WriteLn;
  3. VAR
  4. x, y, z : INTEGER;
  5. PROCEDURE TueWas(x : INTEGER; VAR y : INTEGER);
  6. BEGIN
  7. y := x + z;
  8. z := y + 5;
  9. WriteInt(x+y+z, 3); WriteLn
  10. END TueWas;
  11. BEGIN (* Aufgabe 24 *)
  12. x := 3; y := 2; z := x-y;
  13. TueWas(z,z)
  14. END Aufgabe24.
Schritt nach Zeile globale Variablen Parameter von TueWas
x y z x y
1 14 3 2 1 - -
2 6 3 2 1 1 1
3 8 3 2 2 1 2 => Durch VAR sind die globale Variable z und der Parameter y das gleiche!
4 9 3 2 7 1 7 => wie Schritt 3
5 10 3 2 7 1 7 => Ausgabe von 15
... ... ... ... ... ... ...