anonymouatour

ok

vls amigo e no caso como vou aplicar o metodo jogar recebendo com os parametros?e ainda irei precisar implementar um array list para outros times essas são minhas dificuldades adicionado 3 minutos depois porque meu progrminha vai precisar mostrar isso na telahttp://imgur.com/p8LYYBR

Galera!!! Comecei a fazer um pequeno programinha em java para futebol, mas estou com dificuldade de aplicar agora algumas coisas, como AppTabela.java seria classe principal q ja fiz e a outra classe Time.java, e outras duas classes q ainda n fiz estou focando nas 2 primeiras ......tem também outras classe mas é apenas as duas por enquanto( está aqui para depois fazer ; Tabela.java, Imprimir.java), a classe Time precisa ter o construtor como parametro, o nome que ja apliquei abaixo, minha duvida é como aplico um metodo na classe time q ta recebendo nome como parametro para q n seja modificado, preciso aplicar também o metodo Jogar(int golsPro, int golsContra): como parametro mas n sei onde aplicar!! //Principal public class AppTabela { private String time; String Pontos; String Jogos; String Vitorias; String Empates; String Derrotas; String Golsmarc; String Golssofr; Saldo String; public static void main(String[]args){ Time Nomedotime = new time(); Nomedotime.recebetime(); } //segunda classe public class Time (String n) { String time; } } adicionado 48 minutos depois Bom dei uma melhorada nele class Time (String n) { private String nomeTime; public Time(String nome) { nomeTime = nome; } public String getNome() { return "Nome do time retornado "+nomeTime; } } //Principal public class AppTabela { public static void main(String[] args) { Time tm = new Time("São Paulo"); System.out.println(cp.getNome()); } }

No caso só faltará um metodo e o excluir pra finalizar tentei organizar ele da maneira possível o codigo abaixo Algoritmo "PROGRAMINHA" // Disciplina : [Linguagem e Lógica de Programação] // Professor : Antonio Carlos Nicolodi //Obs.: Alterado o total de 100 para 3, para assim facilitar os testes! //Após, voltar para 100 (lembrar de ajustar o código para o novo valor). var func :vetor[1..3] de inteiro //armazena os RG dos funcionários total :inteiro //total de funcionários cadatados menu :inteiro //usado no menu principal procedimento aguardarENTER() var aux :caractere //usado para auxiliar para "pausar antes de continuar" inicio escreva ("Pressione ENTER para continuar") leia(aux) //leitura de variável apenas para aproveitar que precisa aguardar um ENTER fimProcedimento procedimento Adicionar() inicio limpaTela se (total<=3) então escreval("ALGORITMO – PROGRAMA RG") escreval("ADICIONAR ELEMENTO") escreva ("RG [",total,"]:") leia(func[total]) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") aguardarENTER fimSe fimProcedimento procedimento Pesquisar() var subMenu :inteiro //usado no menu local inicio limpaTela repita escreval(" ALGORITMO – PROGRAMA RG") escreval("PESQUISAR ELEMENTO") escreval("[1] Pesquisa Sequencial") escreval("[2] Pesquisar Binária") escreval("[0] Voltar") escreval("Opção:") leia(subMenu) escolha subMenu caso 1 PesquisaSequencial() caso 2 BuscaBinaria() fimEscolha ate (subMenu=0) fimProcedimento procedimento PesquisaSequencial() var num: inteiro inicio escreval ("Digite o RG para pesquisar :") leia(num) total <- 1 enquanto (total < 3) e (func[total] <> num) faca total <- total + 1 fimenquanto se func[total] = num então escreva ("O RG foi localizado na posição [", total,"]") senao escreva ("O RG Não foi encontrado!!") fimse escreval aguardarENTER fimprocedimento procedimento BuscaBinaria Var pesq,comeco,final,meio:inteiro acha:logico inicio escreva (" Digite o RG para pesquisar: ") leia (pesq) comeco <-1 final <- 3 acha <- falso enquanto (comeco <= final) E (acha= falso) FACA meio <- (comeco + final) div 2 se (pesq = func[meio]) então acha<- verdadeiro senao se (pesq < func[meio]) então final <- meio - 1 senao comeco <- meio + 1 fimse fimse fimenquanto se func[meio] = pesq então escreva(pesq," O RG foi localizado na posição",meio) senao escreva(pesq," O RG Não foi encontrado!!") fimse escreval aguardarENTER fimprocedimento procedimento Ordenar() var subMenus :inteiro //usado no menu local inicio limpaTela repita escreval(" ALGORITMO – PROGRAMA RG") escreval("PESQUISAR ELEMENTO") escreval("[1] Método Bubblesort") escreval("[2] Método Inserção Direta") escreval("[3] Método Seleção Direta") escreval("[4] Metódo em construção") escreval("[0] Voltar") escreval("Opção:") leia(subMenus) escolha subMenus caso 1 Bubblesort() caso 2 Mude_lot() caso 3 SelectionSort() caso 4 ckick() fimEscolha ate (subMenus=0) fimProcedimento procedimento Bubblesort() var I,J,AUX:INTEIRO inicio PARA J:=3 ATE 1 PASSO -1 FACA PARA I:=1 ATE J-1 FACA SE (func[I] > func[I+1])então AUX <- func[I] func[I] <- func[I+1] func[I+1] <- AUX FIMSE FIMPARA FIMPARA ESCREVA("RG's ordenados: ") PARA I:=1 ATE 3 FACA ESCREVA(func[I]) FIMPARA fimprocedimento procedimento Mude_lot() var i, j, chave: inteiro inicio para j de 2 ate 3 faca chave <- func[j] i <- j-1 enquanto ((i>0) e (func[i] > chave)) faca func[i+1] <- func[i] i <- i-1 fimenquanto func[i+1] <- chave fimpara para i de 1 ate 3 faca escreval(func[i]) fimpara fimprocedimento procedimento SelectionSort() //Basicamente o Selecion Sort vai ordenando posição a posição, ou seja, //ele procura o menor valor e e troca pela posição atual (caso necessário) //vai para próxima e repete o processo, até a penúltimo (o último já estará //ordenado var i, j:inteiro min, aux:inteiro inicio //SLECIONAR O MENOR VALOR DO I PRA FRENTE para i de 1 ate total-1 faca //do primeiro ao penúltimo min <- i //menor valor igual a primeira posição do loop atual para j de i+1 ate total-1 faca //para indo do posterior ao atual até o último se func[j] < func[min] então //se posição atual é menor que o "menor atual" min<-j //menor passa ser o atual (em j) fimSe fimPara //final, o min terá posição do menor número!!! e i será a posição que está //sendo ordenada //SE O MENOR NÃO ESTÁ NO PRÓPRIO I (se no i estiver o menor, o mim=i) se min<>i então //faz a troca entre um e outro aux <- func[i] //copia o valor (pois será substituido abaixo) func[i] <- func[min]//menor passa a ter o valor mínimo func[min]<- aux //onte estava o mínimo, agora passa a ser o que estava em L //ou seja, no final, a posição i vai ter o menor valor (dele pra frente) fimSe fimPara escreva("RG's ordenados: ") para i:=1 ate total-1 faca escreva(func[i]) fimPara fimProcedimento procedimento ckick() fimprocedimento {PROCEDIMENTO Excluir() var opcao,modo:inteiro inicio se opcao=4 então escreval("Excluir dados RG:") leia(func[total]) fimse fimprocedimento } procedimento Listar var i :inteiro inicio escreval ("LISTAR..........") para i de 1 ate (total-1) faca escreval("Cadastro",i," RG:",func[i]) fimPara aguardarENTER fimProcedimento INICIO total<-1 //inicializa o total de cadastros repita limpaTela escreval("ALGORITOMO CADASTRANDO – PROGRAMA RG") escreval("[1] Adicionar ") escreval("[2] Pesquisar ") escreval("[3] Ordenar ") escreval("[4] Remover (em breve) ") escreval("[9] Listar obs.: apenas para teste") escreval("[0] Sair ") escreval("") escreva ("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Ordenar() //em construção caso 4 Excluir() //em construção caso 9 Listar() //procedimento provisório. Utilizado para testes fimEscolha ate(menu=0) fimAlgoritmo

bom eu ja conseguir fazer varios só falta apenas 1 q professor ira passar hj mas n tive tempo de organizar bem meu codigo devido a falta de tempo vou vê se posto aqui ele para você vê ao meu entender está funcionando normalmente só vai faltar outro metodo e o remover q estou com dificuldade de fazer tentei pegar um exemplo com função e passar para procedimento mas n conseguir e obgd pela ajuda estou conseguindo entender de vd abs

ok irei analisar aqui

Olá galera não estou conseguindo criar um algoritmo em visualg que funcione esses dois metodos de ordenação fiquei meio perdido na logica quem pode me ´passar dois codigos deles em visualg para mim estudar?abs obs não quero copiar e colocar apenas entender e aplicar no meu programa que estou montando adicionado 3 minutos depois aqui o codigo do inserção direta procedimento InsertionSort(n:inteiro) var i, j, chave: inteiro inicio para j de 2 ate n faca chave <- vet[j] i <- j-1 enquanto ((i>0)e(vet[i]>chave)) faca vet[i+1] <- vet[i] i <- i-1 fimenquanto vet[i+1] <- chave fimpara fimprocedimento adicionado 5 minutos depois e o seleção procedimento SelectionSort(n:inteiro) var i, j, min, aux: inteiro inicio para i de 1 ate n-1 faca min <- i para j de i+1 ate n faca se vet[j] < vet[min] então min <- j fimse fimpara se min <> i então aux <- vet [i] vet[i] <- vet[min] vet[min] <- aux fimse fimpara fimprocedimento

procedimento zikadoido(n:inteiro) var i, j, min, aux: inteiro inicio para i de 1 ate n-1 faca min <- i para j de i+1 ate n-1 faca se func[j] < func[min] então min <- j fimse fimpara se min <> i então aux <- vet [i] func[i] <- func[min] func[min] <- aux fimse fimpara ESCREVA("RG's ordenados: ") PARA i:=1 ATE n-1 FACA ESCREVA(func[i]) FIMPARA fimprocedimento adicionado 0 minutos depois n consigo coplocar esse codigo pra funcionar ele seria o selection sort já fiz vários teste e nd me ajuda

vls conseguir fazer antes de você publicar as duas buscas . mandei para meu professor vê se esta de acordo com o que ele pediu mas funcionou perfeitamente, e obrigado pelas dicas está me ajudando mt de verdade, agora vou começar fazer os metodos de ordenação abs adicionado 1 minuto depois posto aqui assim q puder os metodos caso eu n consiga comprrender adicionado 2 minutos depois eu fiz o pesquisa de outra forma aproveitei e reutilizei um codigo na web q achei e o outro é identifico o binario mas fiz alteraçoes vou tentar melhorar eles amanha e já fazer esse ordenação logo

Essa eu entendi pouco e tentei fazer seguindo esse codigo abaixo mas n precisa fazer com sentinela aquele de cima também é valido

amigo conseguir passar pra procedimento está funcionando mas quando chega no ultimo valor ele fica 0 n sei porque segue o codigo em procedimento usei o sentinela q no caso é o pesquisa sequencia q diz q valor ´pe encontrado ou n já esse acima só encontra a chave procedimento PesquisaSequencial() var rg:inteiro i:inteiro elemento:inteiro inicio i<- 1 func[3] <- rg enquanto (rg <> func[i])faca i<- i+1 fimenquanto se (i<=2)então escreva(i) senao escreva("n encontrado o valor") fimse repita escreval("buscar elemento") leia(rg) elemento <- rg se(elemento > 0) então escreval("elemento encontrado",elemento) senao escreval("elemento não encontradokkk") fimse ate (elemento = -1) // Seção de Comandos, procedimento, funções, operadores, etc... // escreval("EM CONSTRUÇÃO") aguardarENTER fimprocedimento adicionado 27 minutos depois revisei esse codigo continua mesma coisa achei q estava pegando mas ele tipo n ta ligando pro vetor eu posso digitar qualquer numero maior q vai dar elemento encontrado procedimento n ta dando certo como meu professor disse faz com funcao adicionado 28 minutos depois no caso sem sentinela é melhor esse só foi outro caso caso eu queira colocar com sentinela

no caso o rg como parametro seria o numero que eu digito para verificar se ele está no vetor a var retorna ela vai recebe -1 esse -1 só será modificado caso encontre a posição exemplo encontrei o valor do rg na posição 2 ai esse -1 passa a ser 2 ja o para é ate onde vai procurar o limite ai ele vai comparar no se (func = rg seria o valor lá em cima q digitei no adicionar for igual ao ai o retorna <-i vai retorna a posição que está o valor caso tenha ai aquela explicação em cima o -1 passa a ser 2 um exemplo adicionado 0 minutos depois ai mais abaixo desse codigo deveria está retornando elemento encontrado ou não mas só fica no buscar elemento e n sai disso adicionado 8 minutos depois ai essepedaço é como se fosse o corpo do programa inicio e fim algoritmo repita escreval("buscar eleento") leia(rg) elemento <- PesquisaSequencial(rg) se(elemento >0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimse ate (elemento = -1)

coloquei a pesquisa sequencial com funcao agora está pelo menos aparecendo buscar o elemento mas n sai disso aparece td hora buscar elemento ai coloco ai aparece de novo n sai disso segue o codigo com a pesquisa Algoritmo "PROGRAMINHA" //Obs.: Alterado o total de 100 para 3, para assim facilitar os testes! //Após, voltar para 100 (lembrar de ajustar o código para o novo valor). var func :vetor[1..3] de inteiro //armazena os RG dos funcionários elemento,rg,i:inteiro total :inteiro //total de funcionários cadatados menu :inteiro //usado no menu principal procedimento aguardarENTER() var aux :caractere //usado para auxiliar para "pausar antes de continuar" inicio escreva ("Pressione ENTER para continuar") leia(aux) //leitura de variável apenas para aproveitar que precisa aguardar um ENTER fimProcedimento procedimento Adicionar() inicio limpaTela se (total<=3) então escreval("ALGORITMO – PROGRAMA RG") escreval("ADICIONAR ELEMENTO") escreva ("RG [",TOTAL,"]:") leia(func[total]) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") aguardarENTER fimSe fimProcedimento procedimento Pesquisar() var subMenu :inteiro //usado no menu local inicio limpaTela repita escreval(" ALGORITMO – PROGRAMA RG") escreval("PESQUISAR ELEMENTO") escreval("[1] Pesquisa Sequencial") escreval("[2] Pesquisar Binária") escreval("[0] Voltar") escreval("Opção:") leia(subMenu) escolha subMenu caso 1 escreval("a pesquisa é",PesquisaSequencial(rg)) caso 2 escreval("EM CONSTRUÇÃO") {PesquisaBinaria(x,n)} //EM CONSTRUÇÂO fimEscolha ate (subMenu=0) fimProcedimento FUNCAO PesquisaSequencial(rg:inteiro):inteiro var retorna :inteiro inicio retorna<- -1 para i de 1 ate (total-1) faca se(func[i] = rg )então retorna <- i fimse fimpara retorne retorna repita escreval("buscar eleento") leia(rg) elemento <- PesquisaSequencial(rg) se(elemento >0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimse ate (elemento = -1) // escreval("EM CONSTRUÇÃO") aguardarENTER fimFUNCAO procedimento Listar var i :inteiro inicio escreval ("LISTAR..........") para i de 1 ate (total-1) faca escreval("Cadastro",i," RG:",func[i]) fimPara aguardarENTER fimProcedimento INICIO total<-1 //inicializa o total de cadastros repita limpaTela escreval("ALGORITOMO CADASTRANDO – PROGRAMA RG") escreval("[1] Adicionar ") escreval("[2] Pesquisar ") escreval("[3] Ordenar (em breve) ") escreval("[4] Remover (em breve) ") escreval("[9] Listar obs.: apenas para teste") escreval("[0] Sair ") escreval("") escreva ("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 {Ordenar()} //em construção caso 4 {Remover()} //em construção caso 9 Listar() //procedimento provisório. Utilizado para testes fimEscolha ate (menu=0) fimAlgoritmo

//arrumei melhor o codigo mas parece q ele n reconhece os valores digitados no adicionar procedimento PesquisaSequencial() var elemento:inteiro rg:inteiro i:inteiro retorna:inteiro inicio retorna <- 1 para i de 1 ate 3) faca se(func[i] = rg )então retorna <- i //chave encontrada escreval(retorna) fimse fimpara repita escreval("Digite o elemento") leia(rg) elemento <- rg se(elemento > 0) então escreval("elemento econtrando",elemento) senao escreval("elemento não encontradokkk") fimSe ate (elemento = -1) aguardarENTER fimprocedimento

pow cara vls mesmo agora estou conseguindo desenvolver melhor e está ajudando meu aprendizado mas eu estou fazendo com funcao olha o codigo da função da PesquisaSequencial funcao PesquisaSequencial(x:inteiro):inteiro var retorna:inteiro inicio retorna <- -1 para i de 1 ate (total-1) faca se(func[total] = x )então retorna <- total para total de 1 ate 3 faca escreva("RG....",total) leia(func[total]) fimPara repita escreval("buscar eleemento") leia(x) elemento <- PesquisaSequencial(x) se(elemento > 0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimSe ate (elemento = -1) fimSe fimPara retorne retorna aguardarENTER fimFuncao e o inicio do algoritmo Algoritmo "PROGRAMINHA" //Obs.: Alterado o total de 100 para 3, para assim facilitar os testes! //Após, voltar para 100 (lembrar de ajustar o código para o novo valor). var func :vetor[1..3] de inteiro //armazena os RG dos funcionários //total de funcionários cadatados menu :inteiro //usado no menu principal elemento, x, total:inteiro estou tentando rodar mas diz que a variavel PesquisaSequencial não pode ser encontrado n entendo porque ja tentei varias formas e ainda apresenta o erro com procedimento n sei mt bem transferir esse codigo de funcao para procedimento até tentei mas n deu certo adicionado 2 minutos depois fora isto os menus ficaram show de bola alternando tranquilamente... pior q meu professor já passou o insert e o buble e ainda estou parado na sequencial e binaria adicionado 11 minutos depois http://imgur.com/a/o5z9X adicionado 12 minutos depois Link do erro que aparece adicionado 18 minutos depois olha como tentei fazer com procedimento procedimento PesquisaSequencial() var elemento, x, i:inteiro retorna:inteiro inicio retorna <- -1 para i de 1 ate 3 faca se(func[total] = x )então retorna <- total fimse fimpara //retorne retorna escreva(retorna) repita escreval("buscar eleemento") leia(x) elemento <- PesquisaSequencial se(elemento > 0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimSe ate (elemento = -1) aguardarENTER fimprocedimento adicionado 33 minutos depois agora com procedimento ja começa aparece algumas coisas mas ainda encontra com bug eu digito o elemento as vezes aparece encontrado as vezes n olha o codigo com procedimento procedimento PesquisaSequencial() var elemento, x, i:inteiro retorna:inteiro inicio //retorna <- -1 para i de 1 ate (total-1) faca se(func[total] = x )então retorna <- total fimse fimpara //retorne retorna // escreva(retorna) repita escreval("buscar eleemento") leia(x) elemento <- x se(elemento > 0) então escreval("elemento econtrando",elemento) senao escreval("elemento não encontradokkk") fimSe ate (elemento = -1) aguardarENTER fimprocedimento adicionado 34 minutos depois esse ultimo codigo ta pegando mas n o desejavel que é para aparecer encontrado ou n adicionado 43 minutos depois mas meu professor recomendou a fazer com função

Algoritmo "PROGRAMINHA" var func :vetor[1..100] de inteiro {i :inteiro} //substituido por total [Simon.Viegas] total :inteiro menu :inteiro x :inteiro elemento:inteiro j:inteiro procedimento Adicionar() //funcionando inicio limpaTela se (total<101) então escreval("FUNCIONÁRIO") escreva("RG : ") leia(func[total]) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") fimSe total<-1 repita limpaTela escreval("ALGORITMO – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Voltar") escreva("Opção:") leia(menu) escolha menu caso 1 Adicionar() fimEscolha ate (menu=2) fimProcedimento procedimento Pesquisar() //funcionando var rg :inteiro i :inteiro inicio limpaTela escreval("BUSCAR RG DO FUNCIONÁRIO") escreva("Número da pesquisa: ") leia(rg) para i de 1 ate (total-1) faca se (func= rg) então escreval("RG :",func) senao escreval("não encontrado") fimSe fimPara leia(rg) //para que esse comando? se eu tirar ele n vai mostrar o rg[Simon.Viegas] total<-1 repita limpaTela escreval("ALGORITMO – PROGRAMA RG ") escreval("PESQUISAR ELEMENTO") escreval("[1] Pesquisa Sequencial") escreval("[2] Pesquisa Binária") escreval("[3] Voltar") escreva("Opção:") leia(menu) escolha menu caso 1 Buscar(x) caso 2 BuscaBinaria(x,n) fimEscolha ate (menu=3) fimProcedimento //Não mexi na função, apenas identei a função n estou conseguindo retornar ela abaixo la no case dar erro[Simon.Viegas] funcao Buscar(x:inteiro):inteiro var retorna:inteiro inicio retorna <- -1 para i de 1 ate (total-1) faca se(func[total] = x )então retorna <- total para total de 1 ate 100 faca escreva("RG",total) leia(func[total]) fimPara repita escreval("buscar eleemnto") leia(x) elemento <- Buscar(x) se(elemento >0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimSe ate (elemento = -1) fimSe fimPara retorne retorna fimFuncao funcao BuscaBinaria (x,n:inteiro):inteiro var retorna,min,max,meio:inteiro retorna <- -1 min <-1 max <- n enquanto (min <=max) faca meio <- (min +max) \ 2 se (func[j] = x) então retorna <-meio interrompa senao se(func[meio] < x)então min <-meio +1 senao max <-meio -1 fimse fimse fimenquanto retorne retorna escreval("vetor ordenado") para j de 1 ate (total-1) faca escreva("vetor",j) leia(func[j]) fimpara repita escreva("buscar elemento") leia(elemento) elemento <- BuscaBinaria(elemento,10) se (elemento >= 0)então escreval("elemento na posição!",elemento) senao escreval("elemento n encontrado") fimse ate(elemento = -1) fimfuncao procedimento Listar var rg:inteiro i:inteiro inicio escreval ("LISTAR..........") para i DE 1 ate (total-1) faca escreval (" RG ", " ") escreval (i, " ", func) fimpara leia(rg) fimprocedimento INICIO total<-1 repita limpaTela escreval("UNICARIOCA – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Pesquisar") escreval("[3] Buscar") escreval("[4] Listar") escreva("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Buscar(x) caso 4 Listar() caso 5 BuscaBinaria(x,n) fimEscolha ate (menu=0) fimAlgoritmo adicionado 0 minutos depois nem sabia disso foi mal kkkkk

Já implementei a buscabinaria e a sequencial mas está dando error e continua mesmo problema que citei em cima olha o codigo Algoritmo "PROGRAMINHA" var func :vetor[1..100] de inteiro {i :inteiro} //substituido por total [Simon.Viegas] total :inteiro menu :inteiro x :inteiro elemento:inteiro j:inteiro procedimento Adicionar() //funcionando inicio limpaTela se (total<101) então escreval("FUNCIONÁRIO") escreva("RG : ") leia(func[total]) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") fimSe total<-1 repita limpaTela escreval("ALGORITMO – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Voltar") escreva("Opção:") leia(menu) escolha menu caso 1 Adicionar() fimEscolha ate (menu=2) fimProcedimento procedimento Pesquisar() //funcionando var rg :inteiro i :inteiro inicio limpaTela escreval("BUSCAR RG DO FUNCIONÁRIO") escreva("Número da pesquisa: ") leia(rg) para i de 1 ate (total-1) faca se (func= rg) então escreval("RG :",func) senao escreval("não encontrado") fimSe fimPara leia(rg) //para que esse comando? se eu tirar ele n vai mostrar o rg[Simon.Viegas] total<-1 repita limpaTela escreval("ALGORITMO – PROGRAMA RG ") escreval("PESQUISAR ELEMENTO") escreval("[1] Pesquisa Sequencial") escreval("[2] Pesquisa Binária") escreval("[3] Voltar") escreva("Opção:") leia(menu) escolha menu caso 1 Buscar(x) caso 2 BuscaBinaria(x,n) fimEscolha ate (menu=3) fimProcedimento //Não mexi na função, apenas identei a função n estou conseguindo retornar ela abaixo la no case dar erro[Simon.Viegas] funcao Buscar(x:inteiro):inteiro var retorna:inteiro inicio retorna <- -1 para i de 1 ate (total-1) faca se(func[total] = x )então retorna <- total para total de 1 ate 100 faca escreva("RG",total) leia(func[total]) fimPara repita escreval("buscar eleemnto") leia(x) elemento <- Buscar(x) se(elemento >0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimSe ate (elemento = -1) fimSe fimPara retorne retorna fimFuncao funcao BuscaBinaria (x,n:inteiro):inteiro var retorna,min,max,meio:inteiro retorna <- -1 min <-1 max <- n enquanto (min <=max) faca meio <- (min +max) \ 2 se (func[j] = x) então retorna <-meio interrompa senao se(func[meio] < x)então min <-meio +1 senao max <-meio -1 fimse fimse fimenquanto retorne retorna escreval("vetor ordenado") para j de 1 ate (total-1) faca escreva("vetor",j) leia(func[j]) fimpara repita escreva("buscar elemento") leia(elemento) elemento <- BuscaBinaria(elemento,10) se (elemento >= 0)então escreval("elemento na posição!",elemento) senao escreval("elemento n encontrado") fimse ate(elemento = -1) fimfuncao procedimento Listar var rg:inteiro i:inteiro inicio escreval ("LISTAR..........") para i DE 1 ate (total-1) faca escreval (" RG ", " ") escreval (i, " ", func) fimpara leia(rg) fimprocedimento INICIO total<-1 repita limpaTela escreval("UNICARIOCA – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Pesquisar") escreval("[3] Buscar") escreval("[4] Listar") escreva("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Buscar(x) caso 4 Listar() caso 5 BuscaBinaria(x,n) fimEscolha ate (menu=0) fimAlgoritmo

você tem um adaptador usb pra colocar na porta e conecta o rj45?

eu tirei o registro meu professor disse q n precisava fazer ai agr está em vetor agr.mas eu estou fazendo menu já conseguir fazer ele mas quando vou abrir o programa tipo abre o menu ai escolho adicionar ai ele pede pra inserir no caso o rg;; quando insiro o rg << ele abre o menu que tem a opção adicionar novamente e voltar. mesma coisa da pesquisa veja como está bugado faz o teste e eu coloquei nos menus tipo outras opções na parte que está fimescolha ate (menu=2) no caso o 2 seria aopçao de voltar porque o 0 está como opção de sair segue abaixo o codigo e também a funcao buscar n está funcionando meu professor disse q ta rodando la no dele mais aqui n roda de jeito nenhum segue abaixo o codigo do programa Algoritmo "PROGRAMINHA" var func :vetor[1..100] de inteiro {i :inteiro} //substituido por total [Simon.Viegas] total :inteiro menu :inteiro x :inteiro elemento:inteiro procedimento Adicionar() //funcionando inicio limpaTela se (total<101) então escreval("FUNCIONÁRIO") escreva("RG : ") leia(func[total]) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") fimSe total<-1 repita limpaTela escreval("ALGORITMO – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Voltar") escreva("Opção:") leia(menu) escolha menu caso 1 Adicionar() fimEscolha ate (menu=2) fimProcedimento procedimento Pesquisar() //funcionando var rg :inteiro i :inteiro inicio limpaTela escreval("BUSCAR RG DO FUNCIONÁRIO") escreva("Número da pesquisa: ") leia(rg) para i de 1 ate (total-1) faca se (func= rg) então escreval("RG :",func) senao escreval("não encontrado") fimSe fimPara leia(rg) //para que esse comando? se eu tirar ele n vai mostrar o rg[Simon.Viegas] total<-1 repita limpaTela escreval("ALGORITMO – PROGRAMA RG ") escreval("PESQUISAR ELEMENTO") escreval("[1] Pesquisa Sequencial") escreval("[2] Pesquisa Binária") escreval("[3] Voltar") escreva("Opção:") leia(menu) escolha menu caso 1 Buscar(x) fimEscolha ate (menu=3) fimProcedimento //Não mexi na função, apenas identei a função n estou conseguindo retornar ela abaixo la no case dar erro[Simon.Viegas] funcao Buscar(x:inteiro):inteiro var retorna:inteiro inicio retorna <- -1 para i de 1 ate (total-1) faca se(func[total] = x )então retorna <- total para total de 1 ate 100 faca escreva("RG",total) leia(func[total]) fimPara repita escreval("buscar eleemnto") leia(x) elemento <- Buscar(x) se(elemento >0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimSe ate (elemento = -1) fimSe fimPara retorne retorna fimFuncao procedimento Listar var rg:inteiro i:inteiro inicio escreval ("LISTAR..........") para i DE 1 ate (total-1) faca escreval (" RG ", " ") escreval (i, " ", func) fimpara leia(rg) fimprocedimento INICIO total<-1 repita limpaTela escreval("UNICARIOCA – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Pesquisar") escreval("[3] Buscar") escreval("[4] Listar") escreva("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Buscar(x) caso 4 Listar() fimEscolha ate (menu=0) fimAlgoritmo adicionado 1 minuto depois eu já tenho codigo da busca binaria mas n da pra fazer com esse programa sem funcionar adicionado 1 minuto depois estou testatno também com numeros menores como você disse pra ve se ta pegando realmente está rodando legal

então é nisso que não estou conseguindo fazer criar a Tela do menu Pesquisar: adicionado 1 minuto depois dar uma explicação pra ve se consigo pegar e conseguir fazer mais ou menos

pronto já concluir tudo que voce pediu segue abaixo o codigo funcionando Algoritmo "PROGRAMINHA" tipo pessoa = registro rg :inteiro nome:caractere fimRegistro var func :vetor[1..100] de pessoa {i :inteiro} //substituido por total [Simon.Viegas] total :inteiro menu :inteiro procedimento Adicionar() inicio limpaTela se (total<101) então escreval("FUNCIONÁRIO") escreva("RG : ") leia(func[total].rg) escreva("Nome: ") leia(func[total].nome) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") fimSe fimProcedimento procedimento Pesquisar() var rg :inteiro i :inteiro inicio limpaTela escreval("BUSCAR RG DO FUNCIONÁRIO") escreva("Número da pesquisa: ") leia(rg) para i de 1 ate (total-1) faca se (func.rg = rg) então escreval("RG :",func.rg) escreval("NOME:",func.nome) senao escreval("cadastro não encontrado") fimSe fimPara leia(rg) //para que esse comando? se eu tirar ele n vai mostrar o rg e o nome[Simon.Viegas] fimProcedimento procedimento Listar var rg:inteiro i:inteiro inicio escreval ("LISTAR..........") para i de 1 ate (total-1) faca escreval (" RG ", " ") escreval (i, " ", func.rg, " ", func.nome) fimpara leia(rg) fimprocedimento INICIO total<-1 repita limpaTela escreval("UNICARIOCA – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Pesquisar") escreval("[3] Listar") escreva("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Listar() fimEscolha ate (menu=0) fimAlgoritmo

ok vou fazer isto no sábado que tenho mais tempo livre ai eu posto aqui assim que terminar e já aproveitar para inserir depois a binaria que meu professor vai passar hj

conseguir colocar o listar mas so o listar.... o buscar n funciona dar erro que n encontrou a funcao buscar..e sobe esses menus eu n tenho ideia de como vou fazer eles Algoritmo "PROGRAMINHA" tipo pessoa = registro rg :inteiro nome:caractere fimRegistro var func :vetor[1..100] de pessoa {i :inteiro} //substituido por total [Simon.Viegas] total :inteiro menu :inteiro x :inteiro elemento:inteiro procedimento Adicionar() inicio limpaTela se (total<101) então escreval("FUNCIONÁRIO") escreva("RG : ") leia(func[total].rg) escreva("Nome: ") leia(func[total].nome) total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") fimSe fimProcedimento procedimento Pesquisar() var rg :inteiro i :inteiro inicio limpaTela escreval("BUSCAR RG DO FUNCIONÁRIO") escreva("Número da pesquisa: ") leia(rg) para i de 1 ate (total-1) faca se (func.rg = rg) então escreval("RG :",func.rg) escreval("NOME:",func.nome) fimSe fimPara leia(rg) //para que esse comando? se eu tirar ele n vai mostrar o rg[Simon.Viegas] fimProcedimento //Não mexi na função, apenas identei a função n estou conseguindo retornar ela abaixo la no case dar erro[Simon.Viegas] funcao Buscar(x:inteiro):inteiro var retorna:inteiro inicio retorna <- -1 para i de 1 ate total faca se(func[total].rg = x )então retorna <- total para total de 1 ate 100 faca escreva("RG",total,":") leia(func[total].rg) fimPara repita escreval("buscar eleento") leia(x) elemento <- Buscar(x) se(elemento >0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimSe ate (elemento = -1) fimSe fimPara retorne retorna fimFuncao procedimento Listar var rg:inteiro i:inteiro inicio escreval ("LISTAR..........") para i DE 1 ate total faca escreval (" RG ", " ") escreval (i, " ", func.rg, " ", func.nome) fimpara leia(rg) fimprocedimento INICIO total<-1 repita limpaTela escreval("UNICARIOCA – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Pesquisar") escreval("[3] Buscar") escreval("[4] Listar") escreva("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Buscar(x) caso 4 Listar() fimEscolha ate (menu=0) fimAlgoritmo adicionado 3 minutos depois no caso a pesquisa binaria meu professor vai fala sexta feira sobre ela por enquanto é até a sequencial ai eu posto aqui dps no forum , além dos outros metodos ele n disse ainda ai estou indo por etapas pra entregar certinho abs

Tentei ja colocar a pesquisa sequencial buscar mas apresenta erros olista q n conseguir fazer Algoritmo "PROGRAMINHA" tipo pessoa = registro rg: inteiro nome: caractere fimRegistro var func:vetor[1..100] de pessoa i :inteiro menu:inteiro x:inteiro elemento:inteiro procedimento Adicionar() inicio limpaTela se (i<101) então escreval(" FUNCIONÁRIO") escreva("RG : ") leia(func.rg) escreva("Nome: ") leia(func.nome) i<-i+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") fimSe fimProcedimento procedimento Pesquisar() var rg :inteiro j :inteiro inicio limpaTela escreval("BUSCAR RG DO FUNCIONÁRIO") escreva("Número da pesquisa") leia(rg) para j de 1 ate (i-1) faca se (func[j].rg = rg) então escreval("RG:",func[j].rg) escreval("NOME",func[j].nome) fimSe fimPara leia(rg) fimProcedimento funcao Buscar(x:inteiro):inteiro var retorna:inteiro inicio retorna <- -1 para i de 1 ate 100 faca se(func[j].rg = x )então retorna <- i para i de 1 ate 100 faca escreva("RG",i,":") leia(func[j].rg) fimpara repita escreval("buscar eleento") leia(x) elemento <- Buscar(x) se(elemento >0) então escreval("elemento",elemento) senao escreval("elemento n encontradokkk") fimse ate (elemento = -1) fimse fimpara retorne retorna fimfuncao INICIO i <- 1 repita limpaTela escreval("UNICARIOCA – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Pesquisar") escreval("[3]Buscar") escreva("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Buscar(x) fimescolha ate (menu=0) fimAlgoritmo

ok desculpa vi agora vou ver e depois te mostro obgd adicionado 37 minutos depois tentei fazer o listar mas não está funcionando e troquei ja o i por total como você disse Algoritmo "PROGRAMINHA" tipo pessoa = registro rg: inteiro nome: caractere fimRegistro var func:vetor[1..100] de pessoa total :inteiro menu:inteiro procedimento Adicionar() inicio limpaTela se (total<101) então escreval(" FUNCIONÁRIO") escreva("RG : ") leia(func[total].rg) //aqui faltou o escreva("Nome: ") leia(func[total].nome) //aqui faltou o total<-total+1 senao escreval("NÃO PODE MAIS CADASTRAR NENHUM FUNCIONÁRIO!") fimSe fimProcedimento procedimento Pesquisar() var rg :inteiro j :inteiro inicio limpaTela escreval("BUSCAR RG DO FUNCIONÁRIO") escreva("Número da pesquisa") leia(rg) para total de 1 ate (j-1) faca se (func[j].rg = rg) então escreval("RG:",func[j].rg) escreval("NOME",func[j].nome) fimSe fimPara leia(rg) fimProcedimento procedimento Listar inicio ESCREVAL ("LISTAR TODOS OS RGS") PARA total DE 1 ATE func[total].rg faca escreval ("RG") escreval(func[total].rg) escreval("--------------") escreval(func[total].nome) escreval("--------------") fimpara fimprocedimento INICIO total <- 1 repita limpaTela escreval("UNICARIOCA – PROGRAMA RG") escreval("[1] Adicionar") escreval("[2] Pesquisar") escreval("[3] Listar") escreva("Opção:") leia(menu) escolha menu caso 0 escreval("Desconectado") caso 1 Adicionar() caso 2 Pesquisar() caso 3 Listar() fimescolha ate (menu=0) fimAlgoritmo