exercicio Pascal

[Fabio Aragao 0]

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:

1. Program Exerc_4_slide ;
2. var vet : array [1..3] of string;
3. i : integer;
4. nome , R: string;
6. Begin
7. for i := 1 to 3 do
8. begin
9. write( 'Digite o ', i , 'o. nome: ' ) ;
10. read( vet[i] ) ;
11. end;
13. write( 'Digite o nome que voce quer procurar: ' ) ;
14. read( nome ) ;
17. for i := 1 to 3 do
18. begin
19. if ( nome = vet[i] ) then
20. begin
21. R := 'Achei!!!';
22. break;
23. end
24. else
25. R := 'Não achei!!!';
26. end;
28. write( R ) ;
29. End.

[Beraldo 864]

No primeiro semestre, meus professores não permitiam usar break.

Então a solução seria mais ou menos assim:

 

 

encontrou = false;
 
while i < 3 AND ! encontrou 
begin
    if ( nome = vet[i] )
    begin
         writeln( 'achei' )
         encontrou = true
     end
end

 

Ou seja, você inicia um booleano com false e, se encontrar o nome, muda seu valor para true, o que faz o loop parar

 

Deve haver erro de sintaxe. Há anos não mexo com Pascal :P

Mas a lógica é essa