Rechenaufgabe zum Verstaendnis (Vorsicht: Pascal!)

[Tom]

Hello,

program verwirrung;

uses crt;

var zahl: integer;
{----------------------------------------------}
 procedure addiereverdopple (var a,b: integer);

begin
 a:= 1+a;
 b:= 2*b;
 end;
{----------------------------------------------}
 procedure verdoppleaddiere (var a,b: integer);

begin
 a:= 2*b;
 b:= 1+b;
 end;
{----------------------------------------------}
 begin
 clrscr;

zahl:= 7;
 addiereverdopple (zahl,zahl);
 writeln (zahl:5);
 verdoppleaddiere (zahl,zahl);
 writeln (zahl:5);

repeat until keypressed;

end.

a ist 3, b ist 3
a wird 3+1 = 4. Damit wird auch b = 4
2*4 ist 8

a ist 8, b ist 8
a = 2*8 = 16, damit wird auch b = 16
b = 1+b = 17, damit wird auch a = 17

Ist es nun klar?

Harzliche Grüße aus http://www.annerschbarrich.de

Tom