Localize file www.TrSek.com/cover/ghostix/procedura_vymena.pas{ PROCEDURA VYMENA.PAS Copyright (c) ghostix }
{ Nacita 3 cisla a potom pomocou procedur ich vymeni medzi sebou. }
{ }
{ Author: Ghostix }
{ Date : 22.11.2007 http://www.trsek.com }
program zamena;
uses crt;
var a,b,c:integer;
procedure hodnoty;
begin
writeln('Zadajte hodnotu A');
readln(a);
writeln('Zadajte hodnotu B');
readln(b);
writeln('Zadajte hodnotu C');
readln(c);
writeln('A=',a,' B=',b,' C=',c);
end;
procedure vymenaab;
begin
writeln('Vymena A za B');
writeln('A=',b);
writeln;
end;
procedure vymenaac;
begin
writeln('Vymena A za c');
writeln('A=',c);
writeln;
end;
procedure vymenaba;
begin
writeln('Vymena B za A');
writeln('B=',a);
writeln;
end;
procedure vymenabc;
begin
writeln('Vymena B za C');
writeln('B=',c);
writeln;
end;
procedure vymenaca;
begin
writeln('Vymena C za A');
writeln('C=',a);
writeln;
end;
procedure vymenacb;
begin
writeln('Vymena C za B');
writeln('C=',b);
writeln;
end;
begin
hodnoty;
vymenaab;
vymenaac;
vymenaba;
vymenabc;
vymenaca;
vymenacb;
readln;
end.