Algoritimo de lente de contato

algoritmo "Escolha de lente"

// Função :Escolher a lente adequada

// Autor :Diego Ferreira de Oliveira

// Data : 28/10/2015

// Seção de Declarações

var

cd,ce,ed,ee,c,es,oe,od,fim,respondeu: real

resp : caracter

funcao lente(c,es:inteiro): inteiro

var

resultado :inteiro

inicio

se (c >= 0) e (c <= 5) entao

se (es >= -12) e (es <= -3) entao

se(c = 0) entao

resultado := 1

senao

se(es >= -10)e (es <= -3) e (c <= 2) entao

resultado := 1

senao

resultado := 2

fimse

fimse

senao

resultado :=2

fimse

senao

resultado := 0

fimse

retorne resultado

fimFuncao

inicio

// Seção de Comandos

fim := 0

enquanto fim = 0 faca

escreval("informe o grau cilindrico do olho direito")

leia(cd)

escreval("informe o grau cilindrico do olho esquerdo")

leia(ce)

escreval("informe o grau esferico do olho direito")

leia(ed)

escreval("informe o grau esferico do olho direito")

leia(ee)

od := lente(cd,ed)

oe := lente(ce,ee)

escolha od

caso 0

escreval("Não possuimos uma lente para o olho esquerdo")

caso 1

escreval("A lente para o olho esquerdo é a PRIME")

caso 2

escreval("A lente para o olho esquerdo é a VISION")

FIMESCOLHA

escolha oe

caso 0

...