Vinícius V.

Olá pessoal, venho estudando lógica de programação mas gostaria que me indicassem alguns porque algumas dúvidas vem surgindo. Abraços

algoritmo "SuperContador" // ============================================================= // Algoritmo que dá 3 opções: // [1] Contar de 1 até 10 // [2] Contar de 10 até 1 // [3] Terminar programa // - Caso usuário escolha [1] ou [2] , no final vai perguntar // se quer executar de novo. Caso responda [S], vai limpar a tela // e voltar para o Menu Principal. Caso escolha outra tecla, // a variável PARAR receberá verdadeiro e o programa não vai repetir // no próximo loop. // - Caso Escolha [3], a variável PARAR receberá verdadeiro e no // próximo loop o programa não vai repetir. //AUTOR: Vinícius V. // 27/10/2017 // ============================================================= // AUTOR: Vinícius // 27/10/2017 // ============================================================= //Procedimentos: procedimento MSG_QuerExecutarDenovo() inicio EscrevaL("Deseja executar o programa de novo?") EscrevaL("Responda [S] para continuar.") EscrevaL("Responda com qualquer outra tecla para terminar o programa.") Escreva("Resposta: ") fimprocedimento procedimento contador (I, F, S: inteiro) var C : inteiro inicio Para C de I ate F passo S faca Escreva(C) FimPara EscrevaL() fimprocedimento procedimento MSG_Carregando() inicio EscrevaL("Carregando..") timer 250 timer <off> fimprocedimento procedimento MSG_Saindo() inicio EscrevaL("Saindo..") timer 600 timer <off> fimprocedimento var Resposta : caractere C, op : Inteiro parar : logico inicio Repita //Menu Principal: EscrevaL("-------------------------") EscrevaL("| SuperContador |") EscrevaL("-------------------------") EscrevaL("|[1] Contar de 1 ate 10 |") EscrevaL("|[2] Contar de 10 ate 1 |") EscrevaL("|[3] Sair --------- |") EscrevaL("-------------------------") Escreva("| Digite uma opção: ") //--------------- Leia(op) Escolha op Caso 1 procedimento contador(1,10,1) //Contar de 1 a 10 //Menu Executar de novo: MSG_QuerExecutarDenovo() Leia(Resposta) Se Resposta = "S" então MSG_Carregando() Senao MSG_Saindo() parar <- verdadeiro Fimse //--------------------- Caso 2 procedimento contador(10,1,-1) // Contar de 10 a 1 //Menu Executar de novo: MSG_QuerExecutarDenovo() Leia(Resposta) Se Resposta = "S" então MSG_Carregando() Senao MSG_Saindo() parar <- verdadeiro Fimse //---------------------- Caso 3 MSG_Saindo() parar <- verdadeiro OutroCaso EscrevaL("Opção inválida") timer 600 timer <off> FimEscolha LimpaTela Ate parar = verdadeiro fimalgoritmo

Olá pessoal, poderiam me dar ajuda com problemão que eu tô tendo? Aqui eu uso meu laptop ligado no Wifi e o PC do meu irmão é ligado direto no roteador. No meu fica bastante lento. Não tenho certeza mas acho que o PC ligado ao cabo está sendo usado o meu fica lento. Alguém poderia me ajudar? Obrigado desde já

Muito obrigado pela avaliação Hoje vi que posso complementar o comando Para com passos, daí resolvi fazer um procedimento. Acredito que melhorou porque economizei umas 8 linhas no código principal , mas em contrapartida o procedimento adicionou mais 8 linhas também hehe). Chamada: procedimento contador(1,10,1) //Contar de 1 a 10 ou procedimento contador(10,1,-1) // Contar de 10 a 1 //------------- procedimento contador (inicial, final, salto: inteiro) var C : inteiro inicio Para C de inicial ate final passo salto faca Escreva(C) FimPara fimprocedimento //--------------

Olá pessoal do CdH, podem avaliar meu código? Agradeço mt algoritmo "SuperContador" // ============================================================= // Algoritmo que dá 3 opções: // [1] Contar de 1 até 10 // [2] Contar de 10 até 1 // [3] Terminar programa // AUTOR: Vinícius V. // 27/10/2017 // ============================================================= //Procedimentos: procedimento MSG_QuerExecutarDenovo() inicio EscrevaL("Deseja executar o programa de novo?") EscrevaL("Responda [S] para continuar.") EscrevaL("Responda com qualquer outra tecla para terminar o programa.") Escreva("Resposta: ") fimprocedimento //------------------------- procedimento MSG_Carregando() inicio EscrevaL("Carregando..") timer 250 timer <off> fimprocedimento //------------------------- procedimento MSG_Saindo() inicio EscrevaL("Saindo..") timer 600 timer <off> fimprocedimento //------------------------- procedimento MSG_Opcao_Invalida() inicio EscrevaL("Opção inválida") timer 600 timer <off> fimprocedimento //------------------------- procedimento pulalinha() inicio EscrevaL() fimprocedimento //------------------------- procedimento parar() inicio parar <- "verdadeiro" fimprocedimento //------------------------- var Resposta : caractere C, op : Inteiro parar : logico inicio Repita EscrevaL("-------------------------") EscrevaL("| SuperContador |") EscrevaL("-------------------------") EscrevaL("|[1] Contar de 1 ate 10 |") EscrevaL("|[2] Contar de 10 ate 1 |") EscrevaL("|[3] Sair --------- |") EscrevaL("-------------------------") Escreva("| Digite uma opção: ") Leia(op) Escolha op Caso 1, 2 Se (op = 1) então C <- 1 Repita Escreva(C) C <- C + 1 Ate C > 10 Fimse Se (op = 2) então C <- 10 Repita Escreva(C) C <- C - 1 Ate C < 1 Fimse pulalinha() MSG_QuerExecutarDenovo() Leia(Resposta) Se Resposta = "S" então MSG_Carregando() Senao MSG_Saindo() parar() Fimse Caso 3 MSG_Saindo() parar() OutroCaso MSG_Opcao_Invalida() FimEscolha LimpaTela Ate parar fimalgoritmo

Eu rodei o programa e consegui ver o erro. Entendi agora, não dá para colocar para abrir um procedimento que está aberto porque ele vai ter que finalizar várias vezes. Acho que entendi mais ou menos. Eu usei procedimento de novo , mas dessa vez só para organizar mesmo, aí não dá problemas rs. Algoritmo "Criança Esperança" //----------------------------------- procedimento menu_principal() var inicio EscrevaL(" Para doar 15 reais, pressione [1]") EscrevaL(" Para doar 20 reais, pressione [2]") EscrevaL(" Para doar 30 reais, pressione [3]") EscrevaL(" Para doar 40 reais, pressione [4]") EscrevaL(" Para doar outros valores, pressione [5]") EscrevaL(" Para cancelar, pressione [6]") EscrevaL() Escreva(" Pressione a opção desejada: ") fimprocedimento //----------------------------------- procedimento msg_voce_doou() var inicio EscrevaL(" Você doou R$", Valor, ",00.") EscrevaL(" Obrigado pela participação!") fimprocedimento //----------------------------------- procedimento pergunta_confirmacao() var inicio EscrevaL(" [1] Confirma a doação no valor de R$", Valor:3:2) EscrevaL(" [2] Cancela a doação") fimprocedimento //----------------------------------- procedimento msg_voce_cancelou() var inicio EscrevaL(" Você cancelou a participação.") fimprocedimento //----------------------------------- procedimento parar_programa() var inicio executar_programa := falso fimprocedimento //----------------------------------- procedimento voltar_ao_menu_principal() var inicio executar_programa := verdadeiro fimprocedimento //----------------------------------- procedimento msg_opcao_invalida() var inicio EscrevaL(" Opção Inválida.") EscrevaL(" [1] Voltar ao menu principal") EscrevaL(" [2] Cancelar doação") EscrevaL(" Escolha uma opção: ") fimprocedimento //----------------------------------- var N, Valor, B : inteiro executar_programa : logico inicio EscrevaL("-----------------------") EscrevaL(" CRIANÇA ESPERANÇA ") EscrevaL("-----------------------") EscrevaL() executar_programa := verdadeiro Enquanto executar_programa = verdadeiro faca menu_principal() Leia(N) Escolha N Caso 1 Valor := 15 Caso 2 Valor := 20 Caso 3 Valor := 30 Caso 4 Valor := 40 Caso 5 Escreva("Digite a quantia: ") Leia(Valor) Caso 6 msg_voce_cancelou() parar_programa() OutroCaso Se N <> 6 então repita msg_opcao_invalida() leia(B) Se B = 1 então voltar_ao_menu_principal() Senao Se(B = 2) então msg_voce_cancelou() parar_programa() Fimse Fimse ate (B = 1) ou (B = 2) Fimse FimEscolha Se (N >= 1) e (N <= 5) então pergunta_confirmacao() leia(B) Se B = 1 então msg_voce_doou() parar_programa() Senao Se B = 2 então msg_voce_cancelou() parar_programa() Senao repita msg_opcao_invalida() leia(B) Se B = 1 então voltar_ao_menu_principal() Senao Se (B = 2) então msg_voce_cancelou() parar_programa() Fimse Fimse ate (B = 1) ou (B = 2) Fimse Fimse Fimse FimEnquanto Fimalgoritmo Edit : Faltou umas coisas e tirar comando repetido.

Quis dizer que faltou o FimEscolha. Esse é código corrigido sem modificação: Algoritmo "Criança Esperança" //----------------------------------- procedimento opções() var inicio EscrevaL(" Para doar 15 reais, pressione [1]") EscrevaL(" Para doar 20 reais, pressione [2]") EscrevaL(" Para doar 30 reais, pressione [3]") EscrevaL(" Para doar 40 reais, pressione [4]") EscrevaL(" Para doar outros valores, pressione [5]") EscrevaL(" Para cancelar, pressione [6]") EscrevaL() Escreva(" Pressione a opção desejada: ") escolher_opcao() fimprocedimento //----------------------------------- procedimento escolher_opcao() var inicio Leia(N) Escolha N Caso 1 Valor := 15 Caso 2 Valor := 25 Caso 3 Valor := 30 Caso 4 Valor := 40 Caso 5 Escreva(" Por favor, digite a quantia que deseja doar:") Leia(Valor) Caso 6 Valor := 0 OutroCaso opcao_invalida() FimEscolha fimprocedimento //----------------------------------- procedimento confirmacao() var inicio EscrevaL(" [1] Confirma a doação no valor de R$", Valor:3:2, "?") EscrevaL(" [2] Cancela a doação") Leia(N) Escolha N Caso 1 EscrevaL(" Você doou R$", Valor, ",00.") EscrevaL(" Obrigado pela participação!") Caso 2 cancelamento() OutroCaso opcao_invalida() FimEscolha fimprocedimento //----------------------------------- procedimento cancelamento() var inicio EscrevaL(" Você cancelou a participação.") fimprocedimento //----------------------------------- procedimento opcao_invalida() var inicio EscrevaL(" Opção inválida.") EscrevaL(" [1] Voltar ao menu principal") EscrevaL(" [2] Cancelar doação") EscrevaL(" Escolha uma opção: ") Leia(N) Escolha N Caso 1 opções() Caso 2 cancelamento() Outrocaso opcao_invalida() FimEscolha fimprocedimento //----------------------------------- var N, Valor : inteiro inicio EscrevaL("-----------------------") EscrevaL(" CRIANÇA ESPERANÇA ") EscrevaL("-----------------------") EscrevaL() opções() Escolha N Caso 1, 2, 3 , 4 , 5 confirmacao() Caso 6 cancelamento() OutroCaso opcao_invalida() FimEscolha Fimalgoritmo Por que não posso usar recursividade nesse caso?

Opa, beleza? Achei o erro. Estava faltando Enquanto Mas eu acho que assim ficou mais fácil de entender: Só que acho que ainda está um pouco confuso. Teria um jeito mais claro de fazer esse código? Abraços Algoritmo "Criança Esperança" //----------------------------------- procedimento confirmacao() var inicio EscrevaL("[1] Confirma a doação no valor de R$", Valor:3:2, "?") EscrevaL("[2] Cancela a doação") Leia(N) Se N = 1 então EscrevaL(" Você doou R$", Valor, ",00.") EscrevaL(" Obrigado pela participação!") a <- VERDADEIRO Senao Se N = 2 então cancelamento() Senao opcao_invalida() Fimse Fimse fimprocedimento //----------------------------------- procedimento cancelamento() var inicio EscrevaL(" Você cancelou a participação.") a <- VERDADEIRO fimprocedimento //----------------------------------- procedimento opcao_invalida() var inicio EscrevaL(" Opção inválida.") EscrevaL(" [1] Voltar ao menu principal") EscrevaL(" [2] Cancelar doação") EscrevaL(" Escolha uma opção: ") Leia(N) Escolha N Caso 1 a <- FALSO Caso 2 cancelamento() Outrocaso opcao_invalida() FimEscolha fimprocedimento //----------------------------------- var N, Valor : inteiro a: logico inicio EscrevaL("-----------------------") EscrevaL(" CRIANÇA ESPERANÇA ") EscrevaL("-----------------------") Enquanto a = FALSO faca EscrevaL(" Para doar 15 reais, pressione [1]") EscrevaL(" Para doar 20 reais, pressione [2]") EscrevaL(" Para doar 30 reais, pressione [3]") EscrevaL(" Para doar 40 reais, pressione [4]") EscrevaL(" Para doar outros valores, pressione [5]") EscrevaL(" Para cancelar, pressione [6]") EscrevaL() Escreva(" Pressione a opção desejada: ") Leia(N) Escolha N Caso 1 Valor := 15 confirmacao() Caso 2 Valor := 20 confirmacao() Caso 3 Valor := 30 confirmacao() Caso 4 Valor := 40 confirmacao() Caso 5 Escreva(" Por favor, digite a quantia que deseja doar:") Leia(Valor) confirmacao() Caso 6 cancelamento() OutroCaso opcao_invalida() FimEscolha FimEnquanto Fimalgoritmo

Olá Simon, tudo bem? O que foi pedido foi bem simples, mas eu quis pensar em todas as situações possíveis que o usuário digitasse. O gabarito é assim, do site CursoemVideo.com (...) algoritmo "CriancaEsperanca" var D : Inteiro Valor: Real inicio EscrevaL ("---------------------------") EscrevaL (" CRIANCA ESPERANCA ") EscrevaL ("---------------------------") Escreval (" Muito obrigado por ajudar ") Escreval (" [1] para doar R$10 ") Escreval (" [2] para doar R$25 ") Escreval (" [3] para doar R$50 ") Escreval (" [4] para doar outros valores ") Escreval (" [5] para cancelar ") Leia (D) Escolha D Caso 1 Valor <- 10 Caso 2 Valor <- 25 Caso 3 Valor <- 50 Caso 4 Escreva ("Qual o valor da doacao? R$") Leia (Valor) Caso 5 Valor <- 0 FimEscolha Escreval ("------------------------") Escreval (" SUA DOACAO FOI DE R$", Valor) Escreval (" MUITO OBRIGADO!") Escreval ("------------------------") fimalgoritmo (...) mas eu pensei em praticar o que eu já tinha aprendido e colocar o máximo de coisas juntas. Hoje eu tentei refazer utilizando procedimento, (...) Algoritmo "Criança Esperança" //----------------------------------- procedimento opções() var inicio EscrevaL(" Para doar 15 reais, pressione [1]") EscrevaL(" Para doar 20 reais, pressione [2]") EscrevaL(" Para doar 30 reais, pressione [3]") EscrevaL(" Para doar 40 reais, pressione [4]") EscrevaL(" Para doar outros valores, pressione [5]") EscrevaL(" Para cancelar, pressione [6]") EscrevaL() Escreva(" Pressione a opção desejada: ") escolher_opcao() fimprocedimento //----------------------------------- procedimento escolher_opcao() var inicio Leia(N) Escolha N Caso 1 Valor := 15 Caso 2 Valor := 25 Caso 3 Valor := 30 Caso 4 Valor := 40 Caso 5 Escreva(" Por favor, digite a quantia que deseja doar:") Leia(Valor) Caso 6 Valor := 0 OutroCaso opcaoinvalida() fimprocedimento //----------------------------------- procedimento confirmacao() var inicio EscrevaL(" [1] Confirma a doação no valor de R$", Valor:3:2, "?") EscrevaL(" [2] Cancela a doação") Leia(N) Escolha N Caso 1 EscrevaL(" Você doou R$", Valor, ",00.") EscrevaL(" Obrigado pela participação!") Caso 2 cancelamento() OutroCaso opcao_invalida() FimEscolha fimprocedimento //----------------------------------- procedimento cancelamento() var inicio EscrevaL(" Você cancelou a participação.") fimprocedimento //----------------------------------- procedimento opcao_invalida() var inicio EscrevaL(" Opção inválida.") EscrevaL(" [1] Voltar ao menu principal") EscrevaL(" [2] Cancelar doação") EscrevaL(" Escolha uma opção: ") Leia(N) Escolha N Caso 1 opções() Caso 2 cancelamento() Outrocaso opcao_invalida() FimEscolha fimprocedimento //----------------------------------- var N, Valor : inteiro inicio EscrevaL("-----------------------") EscrevaL(" CRIANÇA ESPERANÇA ") EscrevaL("-----------------------") EscrevaL() opções() Escolha N Caso 1, 2, 3 , 4 , 5 confirmacao() Caso 6 cancelamento() OutroCaso opcao_invalida() FimEscolha Fimalgoritmo (...) mas não sei o que fiz de errado. O VisualG me deu a mensagem: "O fim do algoritmo foi encontrado inesperadamente" e "Linha 98: Esperava encontrar FIMALGORITMO" Abraços

Olá, dessa vez eu refiz o algoritmo e ficou assim: Algoritmo "Programa que diz o maior número" //----------------------------------- procedimento leiavetorA() var inicio para i de 1 ate 5 faca escreva("Digite um valor (", i , " de 5 ): ") leia(vetorA[i]) fimpara fimprocedimento //----------------------------------- funcao dizer_maior_numero (): real var a : real inicio a := vetorA[1] para i de 2 ate 5 faca se (a < vetorA[i]) então a <- vetorA[i] fimse fimpara retorne a fimfuncao //----------------------------------- var vetorA : vetor[1..5] de real i : inteiro inicio EscrevaL("----------------------------") EscrevaL(" Maior Número ") EscrevaL("----------------------------") EscrevaL() leiavetorA() EscrevaL("----------------------------") EscrevaL("O maior valor é:", dizer_maior_numero()) EscrevaL("----------------------------") Fimalgoritmo Também quero saber se dá para definir um valor para o vetor onde o usuário informa o tamanho da lista. Por exemplo Escreva("Informe o número de valores a comparar") Leia(N) E o sistema cria um vetor com N posições. Abraços

Olá pessoal, tudo beleza? Alguém pode dar uma lida no meu código para ver como está? Agradeço desde já =D algoritmo "Criança Esperança" var N, Valor, Confirmar: inteiro inicio EscrevaL("-----------------------") EscrevaL(" CRIANÇA ESPERANÇA ") EscrevaL("-----------------------") EscrevaL() EscrevaL(" Muito obrigado por participar") EscrevaL() EscrevaL(" Para doar 15 reais, pressione [1]") EscrevaL(" Para doar 20 reais, pressione [2]") EscrevaL(" Para doar 30 reais, pressione [3]") EscrevaL(" Para doar 40 reais, pressione [4]") EscrevaL(" Para doar outros valores, pressione [5]") EscrevaL(" Para cancelar, pressione [6]") EscrevaL() Escreva(" Pressione a opção desejada: ") Leia(N) Escolha N Caso 1 Valor := 15 Caso 2 Valor := 20 Caso 3 Valor := 30 Caso 4 Valor := 40 Caso 5 Escreva(" Por favor, digite a quantia que deseja doar:") Leia(Valor) Caso 6 Valor := 0 FimEscolha Se N <> 6 então Enquanto (Confirmar <> 1) e (Confirmar <> 2) faca EscrevaL(" [1] Confirma a doação no valor de R$", Valor:3:2) EscrevaL(" [2] Cancela a doação") Leia(Confirmar) Se Confirmar = 1 então EscrevaL(" Você doou R$", Valor, ",00.") Escreva(" Obrigado pela participação!") Senao Se Confirmar = 2 então EscrevaL(" Você cancelou a participação. Valor doado: R$0,00.") Senao EscrevaL("Opção inválida") Fimse Fimse FimEnquanto Senao EscrevaL(" Você cancelou a participação. Valor doado: R$0,00.") Fimse fimalgoritmo

Olá galera, poderiam me ajudar. Tô com problemão aqui. Tenho 2 pc's ligados na rede wifi. Tenho um pc do windows 10 que a internet fica normal, mas no meu laptop fica muito lenta, principalmente os vídeos. Alguém poderia me dar uma ajuda? Abraços!

Olá tentei colocar o procedimento lervetor para ler os dados, mas não funciona porque quando passa pelo fimprocedimento os dados somem e não podem ser aproveitados na função dizer_maior_numero. Veja: Algoritmo "Dizer o maior número" procedimento lervetor (b : inteiro) var vetorA: vetor[1..5] de inteiro p : inteiro inicio para p de 1 ate 5 faca escreva("Digite um valor:", "[" , p , "de 5]") leia(vetorA[p]) fimpara fimprocedimento //----------------------------------- funcao dizer_maior_numero (): inteiro var x, y : inteiro inicio x := 1 para y de 2 ate 5 faca se lervetor(x) < lervetor(y) então // Verifica o número da frente. Se x menor que x := y // Se x menor q y, x recebe o valor de y fimse // e continua verificando o próximo da frente fimpara // até chegar ao último. retorne vetorA[x] fimfuncao //----------------------------------- var inicio escreva("O maior número é:", dizer_maior_numero()) Fimalgoritmo

achei um pouco rude a resposta, mas obrigado ... adicionado 1 minuto depois .

Olá pessoal, poderiam dar uma olhada no meu código para avaliar como está? Segue: É no VisualG: Algoritmo "Dizer o maior número" //----------------------------------- funcao dizer_maior_numero (x,y: inteiro): inteiro var vetorA: vetor[1..5] de inteiro j : inteiro inicio para j de 1 ate 5 faca leia(vetorA[j]) fimpara repita y := y + 1 se vetorA[x] > vetorA[y] então y := y x := x senao x := y fimse ate y = 5 retorne vetorA[x] fimfuncao //----------------------------------- var a, n : inteiro inicio a := 1 n := 1 escreva(dizer_maior_numero(a,n)) Fimalgoritmo Agradeço desde ja.

Fala galera, estou tentando criar um jogo da forca no visualg com meu nome O enunciado é assim: 7) Faça um jogo da forca utilizando vetores. A palavra poderá ser definida pelo próprio programador dentro do programa e não é necessário existir um número limite de tentativas. Porém, é necessário que se exiba a palavra em cada etapa com as letras descobertas e as letras não descobertas sendo representadas com _.. Fiz assim: Algoritmo "semnome" var vvetor1, vvetor2 :vetor[1..8] de caracter x : caracter y : inteiro inicio para y de 1 ate 8 faca vvetor1[y] := "_" fimpara vvetor2[1] := "V" vvetor2[2] := "i" vvetor2[3] := "n" vvetor2[4] := "i" vvetor2[5] := "c" vvetor2[6] := "i" vvetor2[7] := "u" vvetor2[8] := "s" para y de 1 ate 8 faca enquanto vvetor1[y] <> vvetor2[y] faca leia(x) se x = vvetor2[y] então vvetor1[y] := vvetor2[y] para y de 1 ate 8 faca escreva(vvetor1[y]," ") fimpara senao escreva(vvetor1[y]," ") fimse fimenquanto fimpara Fimalgoritmo Estou com dificuldade em criar o algoritmo. Alguém pode me dar uma luz?

Oi galera, tenho 21 anos e quero fazer um tecnólogo em Sistemas de Informação à distância no Cederj gratuito, curso de 3 anos, e gostaria de saber se o que conta mais é minha formação ou os conhecimentos que eu mostrar na hora da entrevista. O curso de bacharelado em Sistemas de Informação na Estácio são de 4 anos, então não sei se faz muita diferença..

Olá galera, estou querendo entrar na área de programação mas queria saber se é exigido faculdade para trabalhar nessa área. Abraços

Já conheço lógica matemática. adicionado 1 minuto depois Ainda não tenho certeza. Qual setor tem mais mercado atualmente?

Olá pessoal, tudo bem? Sou novo aqui e gostaria de saber por qual linguagem de programação começar e como está o mercado de trabalho para programadores. Agradeço desde já