quinta-feira, 23 de setembro de 2010

Elabore um algoritmo que lê 3 valores a,b,c e os escreva. A seguir , encontre o maior dos 3 valores e escreva com a mensagem: "É o maior".

algoritmo "Encontre o maior valor"
var
  a,b,c:real
inicio
 escreval("Encontre o maior valor")
 escreva(" Digite o valor de a ")
 leia(a)
 escreva(" Digite o valor de b ")
 leia(b)
 escreva(" Digite o valor de c ")
 leia(c)
 se (a>b) e (a>c) entao
  escreva(" a é o maior ")
 senao
 se (b>c) entao

   escreva(" b é o maior ")
 senao
 se (c>b) entao

   escreva(" c é o maior ")
 senao
 se (a=b)e(b=c)e(c=a) entao
 escreva(" Todos tem valores iguais ")
 fimse
 fimse
 fimse
 fimse
fimalgoritmo

Nenhum comentário:

Postar um comentário