LEIA COM VONTADE QUICO
Por: Rafael Mira Santos • 3/5/2015 • Projeto de pesquisa • 688 Palavras (3 Páginas) • 194 Visualizações
algoritmo "semnome"
// Função : exercicio 1 do livro
// Autor : RAFAEL MIRA SANTOS
// Data : 03/05/2015
// Seção de Declarações
var
A,B,C,D: vetor[1..5]de inteiro
i:inteiro
inicio
para I de 1 ate 5 passo 1 faca
escreval("Digite 4 números para formar o grupo", I)
leia(A[i],B[i],C[i],D[i])
fimpara
escreval("")
escreval("FORMAÇÃO DOS GRUPOS")
escreval("")
para I de 1 ate 5 passo 1 faca
escreval("Grupo", I, "=", A[i],B[i],C[i],D[i])
fimpara
escreval("")
escreval("NÚMEROS EM ORDEM CRESCENTE")
escreval("")
para I de 1 ate 5 passo 1 faca
se (A[i]<B[i]) e (A[i]<C[i]) e (A[i]<D[i])entao
se (B[i]<C[i]) e (B[i]<D[i]) entao
se (C[i]<D[i]) entao
escreval("A ordem crescente dos números do grupo" ,I, " é:",A[i],B[i],C[i],D[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",A[i],B[i],D[i],C[i])
fimse
fimse
se (C[i]<B[i]) e (C[i]<D[i]) entao
se (B[i]<D[i]) então
escreval("A ordem crescente dos números do grupo" ,I, " é:",A[i],C[i],B[i],D[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",A[i],C[i],D[i],B[i])
fimse
fimse
se (D[i]<B[i]) e (D[i]<C[i]) entao
se (B[i]<C[i]) então
escreval("A ordem crescente dos números do grupo" ,I, " é:",A[i],D[i],B[i],C[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",A[i],D[i],C[i],B[i])
fimse
fimse
fimse
se (B[i]<A[i]) e (B[i]<C[i]) e (B[i]<D[i])entao
se (A[i]<C[i]) e (A[i]<D[i]) então
se (C[i]<D[i]) então
escreval("A ordem crescente dos números do grupo" ,I, " é:",B[i],A[i],C[i],D[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",B[i],A[i],D[i],C[i])
fimse
fimse
se (C[i]<A[i]) e (C[i]<D[i]) então
se (A[i]<D[i]) então
escreval("A ordem crescente dos números do grupo" ,I, " é:",B[i],C[i],A[i],D[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",B[i],C[i],D[i],A[i])
fimse
fimse
se (D[i]<A[i]) e (D[i]<C[i]) então
se (A[i]<C[i]) então
escreval("A ordem crescente dos números do grupo" ,I, " é:",B[i],D[i],A[i],C[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",B[i],D[i],C[i],A[i])
fimse
fimse
fimse
se (C[i]<A[i]) e (C[i]<B[i]) e (C[i]<D[i])entao
se (B[i]<A[i]) e (B[i]<D[i]) entao
se (A[i]<D[i]) então
escreval("A ordem crescente dos números do grupo" ,I, " é:",C[i],B[i],A[i],D[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",C[i],B[i],D[i],A[i])
fimse
fimse
se (A[i]<B[i]) e (A[i]<D[i]) entao
se (B[i]<D[i]) então
escreval("A ordem crescente dos números do grupo" ,I, " é:",C[i],A[i],B[i],D[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",C[i],A[i],D[i],B[i])
fimse
fimse
se (D[i]<B[i]) e (D[i]<A[i]) entao
se (B[i]<A[i]) entao
escreval("A ordem crescente dos números do grupo" ,I, " é:",C[i],D[i],B[i],A[i])
senao
escreval("A ordem crescente dos números do grupo" ,I, " é:",C[i],D[i],A[i],B[i])
fimse
fimse
fimse
se (D[i]<A[i]) e (D[i]<B[i]) e (D[i]<C[i])entao
se
...