Prohození obsahu dvou proměnných – Pascal – Fórum – Programujte.com

Prohození obsahu dvou proměnných umí úplně každý. Kdo to ale zvládne bez použití pracovní proměnné? :smile5:
(třetí procedura je obzvlášť půvabná)

Procedure Prohozeni1(var a,b:integer);

var t:integer;

begin

t:=a;

a:=b;

b:=t;

end;



Procedure Prohozeni2(var a,b:integer);

begin

a:=a+b;

b:=a-b;

a:=a-b;

end;



Procedure Prohozeni3(var a,b:integer);

begin

a:=a xor b;

b:=a xor b;

a:=a xor b;

end;

Hmm, v pythonu to je elegantnější:

a=5

b=4

a,b=b,a

To Blujacker : :smile6:

To Blujacker :
No jo, ale půvab není v tom, jak se to syntakticky zpracuje do programovacího jazyka, ale ten princip. Ty moje tři možnosti jsou použitelné i pro assembler. V Pythonu se to sice zapíše hezky elegantně jednoduše bez pomocné proměnné, ale vnitřně se to stejně provede pomocí ní.

Procedure Prohozeni3(var a,b:integer);

a:=a xor b;

b:=a xor b;

a:=a xor b;

end;

Ta logická funkce se aplikuje bit po bitu. První s prvním, druhý s druhým atd.
Jde to i s andem, orem a notem. Ve spojení s bitovými posuny (shl, shr) je to skvělá věc (nastavení nebo vynulování jednotlivých bitů v čísle je jenom začátek).