sexta-feira, setembro 11, 2015

LP - Ordem crescente com 4 números - Pascal

Program ordem_crescente;
var n1,n2,n3,n4:integer;
 Begin
  Write('Digite o 1º número...: ');
  Read(n1);
  Write('Digite o 2º número...: ');
  Read(n2);
  Write('Digite o 3º número...: ');
  Read(n3);
  Write('Digite o 4º número...: ');
  Read(n4);

if((n1<n2)and(n1<n3)and(n1<n4))Then
Begin
If((n2<n3)and(n2<n4))Then
Begin
If(n3<n4)Then
Write('a ordem crescente é ',n1,' ',n2,' ',n3,' ',n4)
else  
                          Write('a ordem crescente é ',n1,' ',n2,' ',n4,' ',n3);
                    end;
If((n2<n3)and(n2<n4))Then

If((n3<n2)and(n3<n4))Then
Begin
If(n2<n4)Then
Write('a ordem crescente é ',n1,' ',n3,' ',n2,' ',n4)
else  
                          Write('a ordem crescente é ',n1,' ',n3,' ',n4,' ',n2);
                    end;
             
If((n4<n2)and(n4<n3))Then
Begin
If(n2<n3)Then
Write('a ordem crescente é ',n1,' ',n4,' ',n2,' ',n3)
else  
                          Write('a ordem crescente é ',n1,' ',n4,' ',n3,' ',n2);
                    end;
          end;

if((n2<n1)and(n2<n3)and(n2<n4))Then
Begin
If((n1<n3)and(n1<n4))Then
Begin
If(n3<n4)Then
Write('a ordem crescente é ',n2,' ',n1,' ',n3,' ',n4)
else  
                          Write('a ordem crescente é ',n2,' ',n1,' ',n4,' ',n3);
                    end;
If((n2<n3)and(n2<n4))Then

If((n3<n1)and(n3<n4))Then
Begin
If(n1<n4)Then
Write('a ordem crescente é ',n2,' ',n3,' ',n1,' ',n4)
else  
                          Write('a ordem crescente é ',n2,' ',n3,' ',n4,' ',n1);
                    end;
             
If((n4<n1)and(n4<n3))Then
Begin
If(n1<n3)Then
Write('a ordem crescente é ',n2,' ',n4,' ',n1,' ',n3)
else  
                          Write('a ordem crescente é ',n2,' ',n4,' ',n3,' ',n1);
                    end;
          end;
       
if((n4<n1)and(n4<n2)and(n4<n3))Then
Begin
If((n1<n2)and(n1<n3))Then
Begin
If(n2<n3)Then
Write('a ordem crescente é ',n4,' ',n1,' ',n2,' ',n3)
else  
                          Write('a ordem crescente é ',n4,' ',n1,' ',n3,' ',n2);
                    end;


If((n2<n1)and(n2<n3))Then
Begin
If(n1<n3)Then
Write('a ordem crescente é ',n4,' ',n2,' ',n1,' ',n3)
else  
                          Write('a ordem crescente é ',n4,' ',n2,' ',n3,' ',n1);
                    end;
             
             
If((n3<n1)and(n3<n2))Then
Begin
If(n1<n2)Then

Write('a ordem crescente é ',n4,' ',n3,' ',n1,' ',n2)
else  
                          Write('a ordem crescente é ',n4,' ',n3,' ',n2,' ',n1);
                    end;
          end;        
 
 End.

Nenhum comentário:

Postar um comentário