Seřadí tri čísla podle velikosti

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: Homework in Pascal

Author: Pavel Paták
web: www.webpark.cz/programar

Program: Serad3.pas
File exe: Serad3.exe

Seřadí tri čísla podle velikosti.
{ SERAD3.PAS                              Copyright (c) Pavel Patak }
{ Seradi tri cisla podle velikosti.                                 }
{                                                                   }
{ Datum:28.10.2004                             http://www.trsek.com }
 
Program SeradTri;
Var A,B,C,D : Integer;
Begin
 Write('Zadej tri cisla : ');
 Readln(A,B,C);
 if A>B then {Usporadame prvni dvojici}
  begin
   D:=A;
   A:=B;
   B:=D;
  end;
 if B>C then {Usporadame druhou dvojici}
  begin
   D:=B;
   B:=C;
   C:=D;
  end;
 if A>B then {Pokud bylo na zacatku C > A, je nutne prohazovat jeste jednou}
  begin
   D:=A;
   A:=B;
   B:=D;
  end;
 Writeln(A,' < ',B,' < ',C);
 Readln;
End.