Programa Visualg

algoritmo "semnome"

// Função :

// Autor :

// Data : 18/04/2014

// Seção de Declarações

var

n1, n2, n3, n4,maior, menor, soma, multiplicacao: real

inicio

escreval ( " Informe os 4 numeros ")

leia ( n1, n2, n3, n4)

se (n1 > n2) e (n1 > n3) e (n1 > n4) entao

maior <- n1

escreval ( " Maior numero >> :", n1)

senao

se (n2 > n1) e ( n2 > n3) e ( n2 > n4) entao

maior <- n2

escreval ( " Maior numero >> :" , n2 )

senao

se (n3 > n1 ) e ( n3 > n2 ) e ( n3 > n4) entao

maior <- n3

escreval ( " Maior numero >> :", n3)

senao

maior <- n4

escreval ( " Maior numero >> :", n4 )

fimse

fimse

fimse

se (n1 < n2) e ( n1 < n3) e (n1 < n4) entao

escreval ( " Menor numero >> :", n1 )

menor <- n1

senao

se (n2 < n1 ) e (n2 < n3) e ( n2 < n4 ) entao

menor <- n2

escreval ( " Menor numero >> :", n2 )

senao

se (n3 < n1) e ( n3 < n2) e ( n3 < n4 ) entao

menor <- n3

escreval ( " Menor numero >> :", n3)

senao

menor <- n4

escreval ( " Menor numero >> :", n4 )

fimse

fimse

fimse

soma <-(n1 + n2 + n3 + n4) - menor

escreval ( " A soma dos 3 maiores numeros são :" , soma )

multiplicacao <-(n1 * n2 * n3 * n4) / maior

escreval ( " A multiplicação dos 3 menores numeros são :", multiplicacao )

escreval ( " " )

escreval (