Program prehodí medzi sebou čísla a,b

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Programy zos Pascalu

Program: Sswap.pas

Program prehodí medzi sebou čísla a,b. Špecialitou je že nepotrebuje pomocnú premenú ani zásobník. Niesom autorom ale je to tak geniálne že som to tu uviedol.
{ SSWAP.PAS                                                         }
{ Program prehodi medzi sebou cisla a,b.                            }
{ Specialitou je ze nepotrebuje pomocnu premenu ani zasobnik.       }
{                                                                   }
{ Datum:07.06.2006                             http://www.trsek.com }
 
program superswap;
 
var a,b: integer;
 
begin
  { precita cisla }
  writeln('Program vymeni 2 cisla medzi sebou bez pomocnej premenej');
  write('Zadaj a = ');
  readln(a);
 
  write('Zadaj b = ');
  readln(b);
 
  { zacnu kuzla }
  a:=b-a;
  b:=b-a;
  a:=b+a;
 
  { vypise cisla }
  writeln('Vymenene cisla su');
  writeln('      a = ',a);
  writeln('      b = ',b);
  readln;
end.