Ir ao conteúdo
  • Cadastre-se

Pedro Lage Santos

Membro Júnior
  • Posts

    3
  • Cadastrado em

  • Última visita

Tudo que Pedro Lage Santos postou

  1. @Simon Viegas Eu consegui resolver aqui. Não descobri o erro hahaha apaguei e refiz e foi Valeu de qualquer forma
  2. @Simon Viegas Quando eu rodo no pascalzim aparece que o if "apresenta um tipo inválido de igualdade" if (dig=diagnostic[k].diag) then
  3. 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;

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...