software interpretaçao de hemograma

[lourivan]

ola leitores, eu escrevo pouco aqui no site mas nesses feriado de carnaval eu não sai de casa(porque nao gosto de carnaval)mas também nao tinha internet então eu dei uma olhada no programa que tem ums 4 meses que to trabalhando nele.

e bem simples mas ta dando uma dor de cabeça, porque eu sou novo nisso então la vai

eu estou me formando em veterinaria e pensei."porque nao fazer um programa que interpreta o hemograma do cachorrinho pra mim nao ter dor de cabeça" e por fim estou com dor de cabeça pra fazer esse programa.

eu fiz um pequeno progresso...

o programa se inicia.

pego a raça do animal

pego a idade

se -8 anos uso uma tabela se + de 8 uso outra

ate agora eu so digito o resultado que pede o programa e ele me diz se ta "alto" "baixo" ou "normal"

agora no final do programa eu me perguntei como faço para o programa interpreta ele pra mim ?

vou posta ele aqui pra vocês me ajudar obrigado

// Autor : lourivan

// Data : 01/09/2011

// Seção de Declarações

var

ano, mes, ano1, eritrocitos, hematocrito, vgm, hemoglobina, chgm, reticulocitos, plaquetas: real

eritrocitos1, hematocrito1, vgm1, hemoglobina1, chgm1, reticulocitos1, plaquetas1 : real

eritrocitos2, hematocrito2, vgm2, hemoglobina2, chgm2, reticulocitos2, plaquetas2 : real

eritrocitos3, hematocrito3, vgm3, hemoglobina3, chgm3, reticulocitos3, plaquetas3 : real

inicio

repita // parte onde acha a idade < 35

escreva (" digite o(s) ano(s): " )

leia (ano1)

se (ano1)>35 então

escreva ("Impossivel ",(ano1)," é muito para um animal. Tente de novo" )

fimse

ate ano1<35

fimrepita // aqui termina parte que acha idade < 35 ate aqui tudo certo

escreva (" digite o(s) mes(es): ") // aqui onde pede os meses caso o ano for menor que 0 uso isso

leia (mes)

ano:=((mes/12)+ano1)

escreva ("o animal tem",(ano), " anos") //aqui muda os meses para ano

se (ano) > 35 então

limpatela

escreva ("Impossivel ",(ano)," é muito para um animal. Tente de novo" )

repita

escreva (" digite o(s) ano(s): ")

leia (ano)

se (ano)>35 então

escreval ("Impossivel ",(ano)," é muito para um animal. Tente de novo.")

fimse

ate ano<35

fimrepita

fimse

se (ano <=8) então

escreval (" (usando tabela 1)" ) // usando tabela aqui começa o programa

escreva (" digite Eritrócitos: ")

leia (eritrocitos)

se (eritrocitos>1000000) então

eritrocitos:=(eritrocitos/1000000)

fimse

se eritrocitos<3.5 então

eritrocitos:=(eritrocitos1)

escreval("baixo")

senao

se eritrocitos > 6.0 então

eritrocitos:=(eritrocitos2)

escreval ("alto")

senao

eritrocitos:=(eritrocitos3)

escreval ("eritrócitos normal")

fimse

fimse

escreva (" digite Hematócrito: ")

leia (hematocrito)

se (hematocrito<26) então

hematocrito:=(hematocrito1)

escreval("baixo")

senao

se(hematocrito>39) então

hematocrito:=(hematocrito2)

escreval ("alto")

senao

hematocrito:=(hematocrito3)

escreval ("Hematócrito normal")

fimse

fimse

escreva (" digite VGM: ")

leia (vgm)

se (vgm<69) então

vgm:=(vgm1)

escreval("baixo")

senao

se (vgm>83) então

vgm:=(vgm2)

escreval ("alto")

senao

vgm:=(vgm3)

escreval (" VGM normal")

fimse

fimse

escreva (" digite Hemoglobina: ")

leia (hemoglobina)

se (hemoglobina<8.5) então

hemoglobina:=(hemoglobina1)

escreval("baixo")

senao

se (hemoglobina>13) então

hemoglobina:=(hemoglobina2)

escreval ("alto")

senao

hemoglobina:=(hemoglobina3)

escreval (" hemoglobina normal")

fimse

fimse

escreva (" digite CHGM: ")

leia (CHGM)

se (CHGM<31) então

CHGM:=(CHGM1)

escreval("baixo")

senao

se (CHGM>33) então

CHGM:=(CHGM2)

escreval ("alto")

senao

CHGM:=(CHGM3)

escreval (" CHGM normal")

fimse

fimse

escreva (" digite Reticulócitos: ")

leia (reticulocitos)

se (reticulocitos=-) então

reticulocitos:=(reticulocitos1)

escreval("baixo")

senao

se (reticulocitos>1) então

reticulocitos:=(reticulocitos2)

escreval ("alto")

senao

reticulocitos:=(reticulocitos3)

escreval (" reticulócitos normal")

fimse

fimse

escreva (" digite Plaquetas: ")

leia (plaquetas)

se (plaquetas<2) então

plaquetas:=(plaquetas1)

escreval("baixo")

senao

se (plaquetas>5) então

plaquetas:=(plaquetas2)

escreval ("alto")

senao

plaquetas:=(plaquetas3)

escreval (" plaquetas normal")

fimse

fimse

se (plaquetas1)e (eritrocitos1) e (hemoglobina2) então

resultado = (doença do carrapato)

escreval (,(resultado),)

fimse

senao

se(ano >=8) então

escreval (" (usando tabela 1)" )

fimse

fimse

fimalgoritmo