Ir ao conteúdo
  • Cadastre-se

Pascal Eu estou fazendo um programa para realizar registros de pacientes de hospital,


Ir à solução Resolvido por Pedro Lage Santos,

Posts recomendados

Tem algum problema na estrutura de if  dessa procedure abaixo que está fazendo ele não rodar. Ja conferi todas as variáveis, ta tudo certinho. Quem puder dar uma olhada, eu agradeço

 

 

procedure consultadiagnostico;                                // pesquisa diagnóstico //
var
dig: string;
k: integer;
begin;
    write ('Digite o diagnóstico: ');
    readln(dig);
    for k:=1 to 100 do
        begin;
            if (dig=diagnostic[k].diag) then
            begin;
                writeln (paciente[k].CPF,' ',paciente[k].nome,' ',Diagnostic[k].mes,'/',Diagnostic[k].ano);
            end;    
        end;
end;

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Redes-Wi-Fi-capa-3d-newsletter.png

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!