Se swappoooooo...

ecco il mio programmino per fare uno swap di memoria senza usare una variabile di scambio!
Questo è basato sullo XOR... si potrebbe (volendo...) farlo anche con i puntatori oppure con una array (o una mezza idea che si potrebbe farlo, però voglia e tempo non mi concedono spunto... forse fra un pò posto un altro programma in pasqualino)
CIaooooooo

Ha, se volete il programma prego... servitevi pure... no prob! ;-) anzi sono + ke felice! ciaus

Program swap;
uses crt;
var a,b:integer;

procedure VarSwap(var X, Y: Integer);
begin
if X <> Y then begin
X := X xor Y;
Y := X xor Y;
X := X xor Y;
end;
end;

begin
clrscr;
writeln('inserisci il 1 numero');
readln(a);
writeln('inserisci il 2 numero');
readln(b);
VarSwap(a,b);
writeln(a,'e poi', b);
repeat until keypressed;
end.