Načíta 3 čísla a potom pomocou procedúr ich vymení medzi sebou

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)

Author: ghostix
Program: Procedura_vymena.pas
File exe: Procedura_vymena.exe

Načíta 3 čísla a potom pomocou procedúr ich vymení medzi sebou.
{ 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.