ajuda com um "if e else"

Arthur2010 · 28 de março de 2010

Olá! sou novo por aqui, estou montando um programa que tem algumas opções, entre elas a opção "excluir" só que estou com um problema BOBO..

vou explicar:São 4 vetores, para inserir os não tenho problema algum,então, na hora de excluir eu faço um teste com o "IF" se ele achar o codigo digitado no vetor ele apaga "ELSE" ele manda uma mensagem de erro na tela, isso funciona certinho, ele exclui quando acha o codigo e não exclui quando não acha, o problema é que independente dele achar ou não o código no vetor ele escreve 5 vezes a mensagem de erro, sei que é por causa do "FOR" que uso pra percorrer o vetor, maas não consigo arrumar isso de jeito nenhum,

se alguém puder me ajudar ficaria muito feliz

colocarei somente a parte do codigo correspondente a esta opção.

Obrigado!


BEGIN//inicio da opção

 BEGIN
    readln (cod);
 END;

       for i:=1 to 5 do
          if cod = vet_cod[i] then
             BEGIN
              vet_cod[i] := '';
              vet_desc[i] := '';
              vet_dat_ent[i] := '';
              vet_qt[i] := 0;
             END

           else
            if cod <> vet_cod[i] then
            BEGIN
             writeln('erro! codigo invalido');
            END;

END; //fim opcao 4

valecovo · 28 de março de 2010

Eu faria assim. Colocaria uma variavel do tipo boleana. Não verifiquei, mas julgo que deve dar certo.


procedure apagar;
var x: boolean;
BEGIN
  readln (cod);
  x:= false;
  for i:=1 to 5 do
  begin   
    if cod = vet_cod[i] then
    BEGIN
      vet_cod[i] := '';
      vet_desc[i] := '';
      vet_dat_ent[i] := '';
      vet_qt[i] := 0;
      x:= true;
      writeln('Registo eliminado!');
    END;
  end;
  if x=false then writeln('erro! codigo invalido');
END;