Rafael2000

Var nome:vetor [1..100] de caractere m,n,t,x,y,op:inteiro alt: vetor [1..100] de real imc: vetor [1..5,1..5] de real procedimento "cadastro" var imc: real p: real inicio escreval (" CADASTRO") escreval ("___________________________________") escreval ("digite o nome do paciente: ") leia (nome[t]) escreval ("digite a altura do paciente: ") leia (alt[t]) escreval ("digite o peso do paciente: ") leia (p) imc<- p/(alt[t]*alt[t]) escreval ("IMC: ", imc) se (imc<17) então escreval (" MUITO ABAIXO DO PESO.") fimse se (imc>17) e (imc< 18.49) então escreval ("ABAIXO DO PESO") fimse se (imc>18.50) e (imc<24.99) então escreval ("PESO NORMAL") fimse se (imc>25) e (imc<29.99)então escreval ("ACIMA DO PESO") fimse se (imc>30) e (imc<34.99)então escreval ("OBESIDADE 1") fimse se (imc>35) e (imc<39.99)então escreval ("OBESIDADE 2 (SEVERA)") fimse se (imc>40)então escreval ("OBESIDADE 3 (MÓRBIDA)") fimse escreval t<-t + 1 fimprocedimento procedimento "monitoramento" var p: real inicio escreval (" MONITORAMENTO") para n de 1 ate t-1 faca escreval ("_____________________________________") escreval ("NOME: ", nome[n]) escreval ("ALTURA: ", alt[n]) escreval ("O peso atual do paciente é: ") leia (p) escreval ("O imc atual é: ") imc[n,m]<- p/(alt[n]*alt[n]) escreval ("IMC: ", imc[n,m]) se (imc[n,m]<17) então escreval (" MUITO ABAIXO DO PESO.") fimse se (imc[n,m]>17) e (imc[n,m]< 18.49) então escreval ("ABAIXO DO PESO") fimse se (imc[n,m]>18.50) e (imc[n,m]<24.99) então escreval ("PESO NORMAL") fimse se (imc[n,m]>25) e (imc[n,m]<29.99)então escreval ("ACIMA DO PESO") fimse se (imc[n,m]>30) e (imc[n,m]<34.99)então escreval ("OBESIDADE 1") fimse se (imc[n,m]>35) e (imc[n,m]<39.99)então escreval ("OBESIDADE 2 (SEVERA)") fimse se (imc[n,m]>40)então escreval ("OBESIDADE 3 (MÓRBIDA)") fimse n<-n+1 m<-m+1 fimpara fimprocedimento procedimento "relatorio" var linha, g: inteiro inicio escreval (" RELATÒRIO") escreval ("_________________________") escreval (" TABELA DE MONITORAMENTO") para x de 1 ate 1 faca escreval (" ") para y de 1 ate t-1 faca escreval("PacienTe ",nome[y]," Com IMC = ",imc[y,1]:5:2) escreva (imc[n,m]:5:2) fimpara fimpara fimprocedimento procedimento "menu" inicio escreval ("___________________________") escreval ("1.CADASTRO DO PACIENTE") escreval ("2.MONITORAMENTO DO PACIENTE") escreval ("3.RELATÒRIO") escreval ("4.SAIR") escreval("____________________________") leia (op) se (op=1) então cadastro fimse se (op=2) então monitoramento fimse se (op=3) então relatorio fimse fimprocedimento Inicio // Seção de Comandos, procedimento, funções, operadores, etc... m<-1 t<-1 n<-1 enquanto (op<>4) faca menu fimenquanto se(op=4) então escreval ("FIM") fimse Fimalgoritmo Alguém poderia me ajudar com este programa ele já esta me dando dor de cabeça kkkk