occidt

ou mano valeu deu certo aqui, muito agradecido pela ajuda

resolvido, troquei todos os fios telefonicos, toquei a internet para o speedy, e usando o aparelho wireless deles

da uma olhado no codigo tem o comentario // 1 >> e o // 2 >> Program Pzim ;VARvet:array[1..10] of integer;i, a, k, j, x, cont:integer;Begincont:=1; for i := 1 to 10 do begin //comandos writeln( 'slot', cont ) ; readln( a ) ; cont:=cont+1; k:=1; while k=1 do begin// 2 >> quero q ele volte aqui e teste tudo de novo x:=1; for j := x to 10 do begin //comandos if ( a=vet[j] ) then begin //comandos writeln( 'este codigo ja existe, favor mudar' ) ; k:=1; readln( a ) ;// 1 >>> se ele entrou aqui end else k:=2; end; end; vet[i]:=a; end; End.

exercicio: Criar um programa onde após cadastrar produtos com seu código e preço em vetores de 10 posições, realiza a busca do preço de um determinado produto por meio de seu código, considere as seguintes instruções: · Ao cadastrar os produtos, se um código já foi cadastrado, informe ao usuário e peça para tentar outro código; · Após cadastrar todos os produtos, realizar a busca até que o usuário digite código igual a 0. estou precisando de ajuda aqui nesta parte · Ao cadastrar os produtos, se um código já foi cadastrado, informe ao usuário e peça para tentar outro código; essa parte do codigo nao sei como fazer, ja tentei de varias formas mas todas q eu tentei nao estão ficando com valores unicos dentro do vetor, agradeço a ajuda

obrigado pela ajuda, vou tentar algumas das opções, depois qual funcionar eu marco como resposta util.

Estou com problemas na minha conexão, ela cai toda hora, não tem um padrão de tempo, as vezes quando o telefone toca tambem cai, tem dia que cai bem menos, quando tem dois ou mais computadores usando a internet cai muito mais vezes e mais rápido, ainda mais se estiver jogando online, a internet volta, as vezes em segundos as vezes algumas horas pra voltar. Estou usando um modem e um roteador sem fio, uso o speedy de 4Mb, dois computadores estão com cabo e dois estão na rede sem fio; Ja troquei o modem, o roteador, os cabos, ja chamei o tecnico do speedy(mas ele vem checa somente naquela tomada do telefone e não olha intalaçoes do modem e nem do roteador, e diz que o problema pode ser no roteador), troquei os filtros de telefone, coloquei o modem e o roteador naqueles cooler pra notebook pra não equentar, mas não adianta, alguem pode me ajudar a deixar a minha conexao estavel, desde ja sou grato pela ajuda.