Elabore um Algoritmo que receba quatro números e que os apresente por ordem decrescente.


Algoritmo "Ordem_Decrescente"
// Função : Mostrar a ordem decrescente de quatro números distintos.
// Autores : 
// Data : 02/01/2011
// Seção de Declarações
Variáveis
num1, num2, num3, num4 : inteiro;

Início
Escreva("Digite o primeiro número: ");
Leia(num1);
Escreva ("Digite o segundo número:  ");
Leia (num2);
Escreva ("Digite o terceiro número: ");
Leia (num3);
Escreva ("Digite o quarto número:   ");
Leia (num4);

Se (num1<num2) e (num1<num3) e (num1<num4) entao
   Se (num2<num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num4, num3, num2," e" ,num1);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1<num3) e (num1<num4) entao
   Se (num2<num3) e (num2<num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num3, num4, num2," e" ,num1);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1<num3) e (num1<num4) entao
   Se (num2>num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num4, num2, num3," e" ,num1);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1<num3) e (num1<num4) entao
   Se (num2<num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num3, num2, num4," e" ,num1);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1<num3) e (num1<num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num2, num4, num3," e" ,num1);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1<num3) e (num1<num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num2, num3, num4," e" ,num1);
       Fimse;
   Fimse;
Fimse;

//Fim da parte com todas as condições possíveis começando pelo menor número//

Se (num1>num2) e (num1<num3) e (num1<num4) entao
   Se  (num2<num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num4, num3, num1," e" ,num2);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1<num3) e (num1<num4) entao
   Se  (num2<num3) e (num2<num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num3, num4, num1," e" ,num2);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1>num3) e (num1<num4) entao
   Se  (num2>num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num4, num2, num1," e" ,num3);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1<num3) e (num1>num4) entao
   Se  (num2<num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num3, num2, num1," e" ,num4);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1>num3) e (num1<num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num2, num4, num1," e" ,num3);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1<num3) e (num1>num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num2, num3, num1," e" ,num4);
       Fimse;
   Fimse;
Fimse;

//Fim da parte com todas as condições possíveis começando pelo segundo menor número//

Se (num1>num2) e (num1>num3) e (num1<num4) entao
   Se  (num2<num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num4, num1, num3," e" ,num2);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1<num3) e (num1>num4) entao
   Se  (num2<num3) e (num2<num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num3, num1, num4," e" ,num2);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1>num3) e (num1<num4) entao
   Se  (num2>num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num4, num1, num2," e" ,num3);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1<num3) e (num1>num4) entao
   Se  (num2<num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num3, num1, num2," e" ,num4);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1>num3) e (num1>num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num2, num1, num4," e" ,num3);
       Fimse;
   Fimse;
Fimse;

Se (num1<num2) e (num1>num3) e (num1>num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num2, num1, num3," e" ,num4);
       Fimse;
   Fimse;
Fimse;
//Fim da parte com todas as condições possíveis começando pelo terceiro menor número//

Se (num1>num2) e (num1>num3) e (num1>num4) entao
   Se  (num2<num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num1, num4, num3," e" ,num2);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1>num3) e (num1>num4) entao
   Se  (num2<num3) e (num2<num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num1, num3, num4," e" ,num2);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1>num3) e (num1>num4) entao
   Se  (num2>num3) e (num2<num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num1, num4, num2," e" ,num3);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1>num3) e (num1>num4) entao
   Se  (num2<num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num1, num3, num2," e" ,num4);
       Fimse;
   Fimse;
Fimse;

Se (num1>num2) e (num1>num3) e (num1>num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3<num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num1, num2, num4," e" ,num3);
       Fimse;
   Fimse;
Fimse;
Se (num1>num2) e (num1>num3) e (num1>num4) entao
   Se  (num2>num3) e (num2>num4) entao
       Se num3>num4 entao
          Escreval ("A ordem decrescente da sequencia é: " ,num1, num2, num4," e" ,num3);
       Fimse;
   Fimse;
Fimse;

//Fim da parte com todas as condições possíveis começando pelo maior número//

Fim.

Nenhum comentário:

Postar um comentário