Resposta em Códigos Em portugol Studio: Para cadastro do paciente é necessário inserir os seguintes dados: NOME, CPF, SEXO E IDADE. Outro ponto a ser avaliado na etapa de cadastro é verificar se o cpf do paciente já existe. Para esta etapa serão necessários utilizar variáveis indexadas para armazenar vários dados e uma função para validar o cpf, verificar se o mesmo tem a quantidade de números correta e verificar se já existe em outro cadastro. - O exame é feito com base em três amostras, uma colhida em jejum sem a ingestão da lactose, uma colhida após trinta minutos e outra com sessenta minutos após a ingestão. Dessa forma, o algoritmo precisará armazenar para cada paciente três resultados da glicemia durante o período das coletas, o que sugere novamente o uso de variáveis indexadas. - Para o resultado é necessário pegar o nível de glicemia das três amostras coletadas e verificar a diferença entre elas e a basal (amostra em jejum) se a diferença entre elas for inferior a 20mg/dl supõe que não houve absorção adequada da lactose sugerindo que o paciente possuaintolerância. Para apresentar os resultados é necessário apenas exibir um relatório dos pacientes contendo nome e o resultado (positivo ou negativo).
Soluções para a tarefa
Resposta:
Desculpe nao consegui identificar qual é a sua pergunta....
Explicação:
:(
Resposta:
programa
{
inclua biblioteca Texto --> tx
inclua biblioteca Matematica --> mat
cadeia nome[255], sexo[255], resp, cpf2
inteiro coleta[4]
real cpf[255], cpf1
inteiro idade[255], i = 1, pos = 0, op, tamanho
inclua biblioteca Util
funcao inicio()
{
resultado_exame()
}
funcao Menu(){
escreva("====================================================== \n")
escreva("== MENU - CLÍNICA DEUS NOS ACUDA ==\n")
escreva("======================================================\n")
escreva(" INFORME OPÇÃO PARA CONTINUAR \n \n")
escreva(" 1 - PARA CADASTRAR PACIENTE \n")
escreva(" 2 - MOSTRAR CADASTRO DE PACIENTE \n")
escreva(" 3 - PARA EXAME DOS CLIENTES \n")
escreva(" 4 - ECERRAR \n")
leia(op)
escolha (op)
{
caso 1:
cadastro_cliente()
exibir_cadastro()
pare
caso 2:
exibir_cadastro()
pare
caso 3:
resultado_exame()
pare
caso contrario:
escreva("SAINDO!!")
}
}
funcao cadastro_cliente(){
faca{
limpa()
escreva ("Informe o nome do paciente: \n")
leia (nome[i])
escreva ("Informe a idade do paciente: \n")
leia (idade[i])
escreva ("Informe o Sexo: \n")
leia(sexo[i])
se (sexo[i] == "m" ou sexo[i] == "M"){
sexo[i] = "Masculino"
} senao {
se (sexo[i] == "f" ou sexo[i] == "F"){
sexo[i] = "Feminino"
}
}
verificarCPF()
resultado_exame()
escreva ("Deseja Cadastrar Novo Paciente?[S/N] \n")
leia (resp)
i++
}enquanto(resp == "s")
}
funcao exibir_cadastro(){
limpa()
para (inteiro exibir = 1; exibir < i; exibir++){
escreva("DADOS DO PACIENTE \n")
escreva("===================================== \n")
escreva("Nome: ", nome[exibir], "\n")
escreva("Idade: ", idade[exibir], "\n")
escreva("Sexo: ", sexo[exibir], "\n")
escreva("CPF: ", cpf[exibir - 1], "\n")
}
}
funcao verificarCPF(){
faca{
escreva ("Digite o CPF: ")
leia (cpf1)
para(inteiro x = 0; x < pos; x++){
se (cpf1 != cpf[x]){
cpf[pos] = cpf1
}senao{
enquanto(cpf1 == cpf[pos]){
escreva("O CPF INVÁLIDO \n \n")
escreva ("Informe novo CPF: \n")
leia(cpf1)
}
cpf[pos] = cpf1
}
}
pos++
escreva("Confirma Seu CPF?[S/N] ")
leia (resp)
}enquanto(resp == "n")
}
funcao resultado_exame(){
inteiro referencia, maior = 0, resultado
escreva ("informe o valor da coleta feira em jejum: mg \n")
leia (coleta[0])
coleta[0] += 20
escreva ("informe o valor da coleta feira em 30min: mg \n")
leia (coleta[1])
escreva ("informe o valor da coleta feira em 60min: mg \n")
leia (coleta[2])
escreva ("informe o valor da coleta feira em 90: mg \n")
leia (coleta[3])
escreva("Valor de referencia: ", coleta[0], "\n")
se (coleta[1] > coleta[2]){
maior = coleta[1]
}senao{
se (coleta[2] > coleta[3]){
maior = coleta[2]
}senao{
se (coleta[1] > coleta[3]){
maior = coleta[1]
}
}
}
resultado = coleta[0]- maior
se (resultado < 20){
escreva("valor de resultador é: ", resultado, "\n")
escreva("Você é intolerante a lactose \n")
}senao{
se(resultado > 20){
escreva("O valor do resultado é: ", resultado, "\n")
escreva("Você não é intorelante a lactose!")
}
}
}
}
Explicação: