Ir para conteúdo

Fabio Aragao

Members
  • Total de itens

    1
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre Fabio Aragao

  1. Fabio Aragao

    exercicio Pascal

    Boa noite pessoal, Fiz um exercicio mas fiquei pensando se não existe uma outra forma de fazer, ainda mais que a utilização do comando "break" não foi muito bem explicado Enunciado: ¡Faça um programa em Pascal que possua um vetor com 3 nomes armazenados: nomes[1] := ‘Jose’; nomes[2] := ‘Maria’; nomes[3] := ‘Carlos’; O programa deverá solicitar a digitação de um nome qualquer, e buscará o nome digitado no vetor de nomes. Caso encontre o nome, escreverá ‘Achei!’; Caso contrário, escreverá ‘Não achei’; Minha Solução: Program Exerc_4_slide ; var vet : array [1..3] of string; i : integer; nome , R: string; Begin for i := 1 to 3 do begin write( 'Digite o ', i , 'o. nome: ' ) ; read( vet[i] ) ; end; write( 'Digite o nome que voce quer procurar: ' ) ; read( nome ) ; for i := 1 to 3 do begin if ( nome = vet[i] ) then begin R := 'Achei!!!'; break; end else R := 'Não achei!!!'; end; write( R ) ; End.
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.