Arrange 3 numbers - descending

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

Author: Juraj Pupák
Program: Cislo2.pas
File exe: Cislo2.exe
File ubuntu: Cislo2

Arrange 3 numbers - descending.
{ CISLO2.PAS                                                        }
{ Usporiadanie 3 cisel. Druha verzia.                               }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program cislo;
uses crt;
var
 a,b,c,max_num:integer;
begin
 clrscr;
 writeln('Porovnanie 3 cisel');
 writeln('------------------');
 writeln('Zadaj prve cislo');
 readln(a);
 writeln('Zadaj druhe cislo');
 readln(b);
 writeln('Zadaj tretie cislo');
 readln(c);
 clrscr;
 
 IF a > b THEN
   begin
     IF a > c THEN
       begin
         IF b > c THEN
           begin
             writeln('Najvacsie cislo je ',a,' potom ',b,' potom ',c);
           end else
           begin
             writeln('Najvacsie cislo je ',a,' potom ',c,' potom ',b);
           end;
       end else
       begin
         writeln('Najvacsie cislo je ',c,' potom ',a,' potom ',b);
       end;
   end else
   begin
     IF b > c THEN
       begin
         IF a > c THEN
           begin
             writeln('Najvacsie cislo je ',b,' potom ',a,' potom ',c);
           end else
           begin
             writeln('Najvacsie cislo je ',b,' potom ',c,' potom ',a);
           end;
       end else
       begin
         writeln('Najvacsie cislo je ',c,' potom ',b,' potom ',a);
       end;
   end;
 
 readln;
end.