devair1010

olá eniac123 pelo que sei não tem nada a esse respeito no visualg. Talvez você consiga algo no java ou c++.

Hygor Coloque mais uma variável, por exemplo x do tipo caractere . E o repita seria colocado no começo do algoritmo, logo depois da palavra inicio, com isso todo o código seria repetido, fazendo mais um cadastro, e no final do algoritmo, uma linha antes do fimalgoritmo coloque assim : escreva("Tecle < S > Para Sair e < Enter > Para Outro Cadastro") leia(x) ate x = "s" fimalgoritmo

Hygor para fazer essa restrição você pode colocar um repita, que vai ficar repetindo até que seja digitado m ou t ou n, então depois do leia(valor) coloque assim : repita limpatela escreva("escolha o turno m = manha t = tarde n = noite") leia(turno) se (turno <>"m") e (turno <>"t") e (turno <>"n") então escreva("turno não existente. tecle enter") leia(a) fimse ate (turno = "m") ou (turno = "t") ou (turno = "n") E em seguida faça esse mesmo repita para verificar a categoria se é b ou n. E para saber quantos alunos são baixa renda ou renda normal você vai precisar de mais duas variáveis, br para baixa renda e RN para renda normal, aí quando verificar a categoria, se for b soma um à variável br e se for n some um à variável RN, então o se ficaria assim : se turno = "m" então p := 0 // porcentagem de desconto se categoria = "b" então p := 10 // porcentagem de desconto br := br+1 // baixa renda fimse se categoria = "n" então rn := rn+1 // renda normal fimse fimse colocando o se dessa forma acredito que fica mais fácil de entender; Aí use esse se, dessa forma para verificar se o turno é tarde ou noite, sendo que a variável p vai conter a porcentagem de desconto referente ao turno e mais 10 se for baixa renda. E aí no final é só mostrar o resultado assim : limpatela valor := valor-valor * (p/100) escreval("valor total do curso sem descontos no periodo de um ano:",voce) escreval("valor total do curso com descontos no periodo de um ano:",valor * 12) escreval("A quantidade de alunos de baixa renda é ",br," alunos") escreval("A quantidade de alunos de renda normal é ",rn," alunos") E coloque tudo isso dentro de um repita, para fazer mais de um cadastro.

Hygor Mathias Coloque mais uma variável do tipo real para a porcentagem por exemplo p, e aí quando verificar se é turno da manhã, verifique também a categoria, se for baixa renda some 10 á variável p ficando ela com o valor 10 que é o desconto de baixa renda, e quando for verificar se é turno da tarde, coloque o valor de p igual ao desconto da tarde que é de 5 e ve- rifique a categoria se é baixa renda, se for some mais 10, passando assim para 15, e no turno da noite a mesma coisa; E não precisa colocar esse escrevaL dentro de cada se, coloque apenas no final depois do terceiro fimse coloque assim : valor := valor - valor * ( p / 100 ) escreval("O Valor Da Mensalidade É = R$",valor) escreval("valor total do curso com descontos no período de um ano é R$",valor * 12)

andersonn06 Esse escreval("Senhor(a) ",nome," seu IMC é ",imc) tem que ficar depois do fimescolha e a altura tem que ser dividida por 100 para que seja em metros. Faça essa divisão logo depois do leia(altura). mude as variáveis nome e imc para caractere e as variáveis peso e altura para real. E os casos, coloque do jeito que o PVeloso postou que está certo.

Oi Bruno s Farias Esse algoritmo que você pretende é bem complexo, tem muita coisa para fazer,sugiro que você vá fazendo ele aos poucos, você está indo no caminho certo, um erro é esse para ai no começo não precisa dele; A entrada de dados está certa, agora é só orga - nizar essas informações e resolver cada detalhe separadamente.

ai leonardo de souza observei 2 erros no seu codigo, o comando escreva não funciona desse jeito escreva(a>b)e(b>c) tem que ser assim escreva( a," > ",b," e ",b," > ",c ) assim ele vai escrever o valor de A e colocar o sinal maior que e depois o valor de B depois coloca o E, e depois o valor de B e novamente o sinal maior que e o valor de C. E no comando escolha, como a variável é i, não precisa colocar esse i de- pois do caso, basta colocar o numero; e tem que ficar na mesma linha do caso assim : caso 1 < comandos > caso 2 < comandos > e no caso 3 o então tem que ficar na mesma linha do se. e ficou faltando verificar se a variável i está dentro do valor estipulado, para isso coloque um se depois do leia ( i ), verificando se i é < 0 ou > 3 , se for co- loque uma mensagem informando sobre isso. Para colocar os numeros em ordem crescente é mais fácil usando vetores, tem um exemplo no visuALG com o nome exemplo1 na pasta exemplos, que organiza os numeros em ordem cescente, ai é só adaptar para o seu código, sendo que nesse exemplo o maior numero fica no vetor xvet [ 3 ].

Hygor Mathias O erro está no tipo de variável que é caractere então para dar certo a variável tem que ficar entre aspas assim: se ( turno = " m " ) então se ( turno = " t " ) então se ( turno = " n " ) então e a variável você não pode ter acento tem que ser assim : voce e para escrever o valor escreval (valor*0.05-valor) tem que ser assim : escreval (valor-valor*0.05) e escreval (valor*0.010-valor) tem ficar assim : escreval (valor-valor*0.10) como é 10 porcento é multiplicar por 0,10

Andersonn06 Aqui no visualg que eu tenho, usando caso não deu certo mesmo não, só deu certo usando se. E a variável literal também não foi aceita, então use a variável caractere. E a altura tem que ser dividida por 100, para isso precisa mudar a variável altura para Real .

olá Luismatheusbs15 O PVeloso está certo, Você colocou o fimenquanto fora do lugar, ele tem que ficar depois dos dois fimse e antes do fimalgoritimo. e para sair do enquanto tem que mudar o valor da variável cont; Coloque assim : cont := 5 antes dos dois fimse .

Oi Gabriel Tander coloque o segundo loop para ir de 1 ate 9 e aí depois do loop depois do fimpara coloque assim que funciona : se ( num [ 10 ] >= 10 ) e ( num [1 0 ] <= 150 ) então escreval( num [ 10 ] ) fimse

Fernando Marcelino Esse código fica mais fácil usando vetor. Tem um exemplo no visualg, que é quase igual a esse que você pretende; Na pasta exemplos abra o "exemplo1", ele organiza o vetor de forma que os numeros ficam em ordem crescente, e o vetor xvet[3] é onde está o maior numero, com isso basta você digitar escreva("o maior numero é : ",xvet[3]). E para ver se os numeros são iguais digite assim se (( numero1 = numero2 ) e (numero1 = numero3 ) ) então assim funcionará bem, eu testei aqui no visualg 3.

oi Marciano gomes coloque um loop para faça que soma os pares e os ímpares de acordo com o que foi pedido e faça a comparação até que os ímpares fiquem maiores que os pares .

oi claudioReichert . Você só esqueceu de somar a porcentagem . escreval("Seu novo saldo é",a+a*8/100)

Oi stractor. Eu acho que a linguagem basic é a mais fácil de se aprender, e a linguagem basic é usada em um programa chamado Blitz Basic 3D, estou usando este programa e com ele é bem fácil programar . Mas como disse o Mitnick8 a mais usada atualmente é o Java .

olá Lucas.Sandes seu código está bom, só precisa modificar algumas linhas. Peça para o usuário digitar o tempo em minutos, por exemplo se for digitar 1h e 30min digite 90. E a distancia em KM, e a velocidade media em KM/H, e Ali no caso 3 depois de leia(vm) coloque assim min := dist / vm * 60 e coloque um repita de forma que se min for maior que 59.999, seja somado um à hora, e subtraia 60 da variável min até que min seja menor que 60. Aí ele vai mostrar as horas e os minutos certos .

ai Leonardo de souza, tudo bem? : Seu código está bom, só tem alguns erros. Experimente colocar o N de ATE R=N entre aspas assim ate r= " n " , e o N do SE R = " n " também e a palavra então não pode ter TIL. E o SE comparando dois valores tem que ficar entre parenteses assim se( ( i >=1 ) e ( i <=26 ) ) .

Para mudar a cor dos ícones do desktop, é preciso baixar o programa chamado " iconoid " . Nesse vídeo do youtube, explica como fazer para baixar e instalar. Neste vídeo aqui -> https://www.youtube.com/watch?v=_SdLXpg1KRo Mas se não conseguir baixar nesse link aí do vídeo; eu não consegui! Aí pesquisei no google com o nome " iconoid ", e achei esse site aqui: - http://www.sillysot.com/download.htm nele baixei o setup-iconoid-x86.exe e instalei, e ele funcionou bem, e consegui mudar a cor do texto dos ícones do desktop. Quando abre ele é preciso clicar na aba colors e no botão DISABLE DROP SHADOWS, aí vai ativar o botão para mudar a cor, aí clica no Botão text color, e escolhe a cor que quiser e depois clique em OK, pronto a cor será mudada; Aproveite e clique na aba OPTION e marque a primeira caixa onde está escrito START ICONOID WITH WINDOWS, assim toda vez que o windows se iniciar, o ICONOID será aberto e aí é preciso clicar no botão DIASABLE DROP SHADOWS para que a cor fique do jeito que foi colocada; e se quiser que a cor volte a ser branca é só clicar no mesmo botão só que vai estar escrito ENABLE DROP SHADOWS . E clique também na aba HIDING e desmarque a caixa que está escrito HIDE WHEN OFF DESKTOP e a caixa que está escrito HIDE WHEN ON DESKTOP ; Se deixar a setinha do mouse em cima da janela do ICONOID por 5 segundos, os ícones da tela desaparecem, e aí para os ícones voltar é só tirar a setinha do mouse de cima da janela do ICONOID , aí volta ao normal. A mudança da cor é temporária, então quando desliga o computador e liga novamente a cor volta a ficar branca novamente . Aí com o ICONOID aberto clique no botão DISABLE DROP SHADOWS , que a cor fica do jeito que foi colocada. Mas a mudança da cor não melhora muita coisa não, porque na imagem na tela geralmente tem muitas cores, assim se colocar uma cor escura, aí no lugar que for claro fica bom, mas onde for escuro fica ruim, e o mesmo acontece se colocar uma cor clara . Por isso a cor branca é a melhor opção .

Olá Da_ni_el e Allangadelha Eu conheço o basic da época em que começou os computadores no Brasil Eu tinha um TK 85 em 1986, porém atualmente existem outros basic que usam estes mesmos comandos. Tem um Programa chamado " Blitz Basic 3D " que é fácil de se programar com ele e que usa estes e mais alguns outros comandos além de ter nele um tutorial ensinando a usar estes comandos. Os Comandos Do Basic São os Seguintes: Print ou Text - para escrever alguma coisa na tela CLS - para limpar a tela( desmanchar tudo que estiver na tela) Goto - para pular pra outra linha ou label do programa Gosub - para ir pra uma subrotina do programa Return - para finalizar uma subrotina do programa IF - para comparar um dado com outro EndIF - para finalizar a comparação do dado Then - Usado após a comparação com IF Input - pede a entrada de um dado (numero ou letra) Run - para rodar o programa Plot - para desenhar um ponto na tela gráfica Unplot - para desmanchar um ponto na tela gráfica For - para fazer um Loop Next - para finalizar o Loop iniciado com For To - usado como complemento do FOR Step - usado junto com FOR para estabelecer o passo(de 1 em 1 ou 2 em 2) Delay - para fazer uma pausa no programa Break ou Stop - para parar a execução do programa definitivamente Let - para atribuir valor a uma variável Save - para salvar o programa List - para listar as linhas do programa Rem - para fazer comentários nas linhas de programação Code - pega o valor numérico de uma letra Chr$ - transforma um valor numérico em uma letra Str$ - transforma uma letra em um valor numérico Rnd - atribui um valor randomico (entre 0 e 1) a uma variável Sin - pega o seno (em radiano) de um numero Cos - pega o coseno (em radiano) de um numero Tan - pega a tangente (em radiano) de um numero Arcsin - pega o arcoseno ( em radiano) de um numero ArcCos - pega o arcoseno ( em radiano) de um numero Arctan - pega o arcotangente ( em radiano) de um numero Abs - pega o valor absoluto de um numero (sem o sinal + ou -) Sqr - extrai a raiz quadrada de um numero Ln - pega o valor do logarítimo natural de um numero Len - verifica quantos caracteres tem em uma string (palavra) Usr - usado para rodar um prorama em linguagem de máquina(assembler) Or - usado na comparação (um dado "OU" outro dado) And - usado na comparação (um dado "E" outro dado) Inkey$ - verifica qual tecla foi pressionada no teclado PI - cujo valor é 3.14159265359 Load - para carregar um programa Scroll - puxa tudo que estiver na tela uma linha para cima Dim - É um array numérico wait ou pause - para e espera um tecla ser pressionada Os comandos do antiryad gx são complicados, mas você pode ver estes comandos abrindo a listagem de alguns programas que vem junto com o antiryad gx, na pasta workspaces, e aí estudar estes comandos pra ver o que eles fazem. Eu tenho aqui o antiryad gx da versão 1.9 que vem com dois programas e eles funcionam bem. com o antiryad win 32 a gente roda os programas clicando em TooLs / GeL Execute e aí escolher qual programa rodar. Aqui estão alguns comandos do GEL BASIC do Antiryad gx: gx_winbox::printconsol(string::"qualquer coisa") - para escrever qualquer coisa na tela gx_screen::drawbox(c,l,20,20,5,5,255,1,gx_bitmap_drawflat,128,64,128,255)- para desenhar um quadrado na tela.c,l é coluna e linha da tela 20,20 é o tamanho e 5,5,255,1 é cor gx_screen::drawline(c,l,c+150,l+150,255,128,128,128,gx_bitmap_drawflat,128,128,255,64)- desenha uma linha na tela começando na coluna c e linha l até c+150,l+150 gx_winbox::showdirectconsol() - para mostrar tudo que está na tela gx_sound::play2d(string::"sino.wav",255,256,0,0) - para tocar o som wave que está entre aspas gx_mouse::getleftbutton(0),==,gx_button_statetriggered - para ver se o botão esquerdo do mouse foi pressionado gx_mouse::getrightbutton(0),!=,gx_button_statetriggered- para ver se o botão direito do mouse foi pressionado c=790 ---------- para atribuir o valor 790 à variável c IF(c,>=,790) - para verificar se c é maior ou igual a 790 endif ------------ para finalizar a comparação gx_sound::reset()- para desabilitar o som function main ------ para estabelecer uma nova função endfunction -------- para finalizar uma função dim c,int ------------ para declarar a variável c declarefunction nothing,main,nothing - para declarar uma nova função gx_sound::init()-- para habilitar o som Do ------------------- para iniciar um Loop Loop ---------------- para finalizar um Loop for(n,0,<,200,1)-- para fazer um Loop com valor estipulado aqui vai de 0 até 200 de 1 em 1 next ----------------- para finalizar o Loop com valor estipulado

Olá Da_ni_el . Tem um vídeo no youtube com o nome "Tutorial Antiryad GX" que explica alguma coisa sobre esse programa. E aqui tem o código de um programa simples apenas pra exercitar, eu fiz com um quadrado. porque ainda não descobri como desenhar um circulo. o antiryad que eu tenho é o da versão 1.9. As versões mais novas costuma não rodar este programa. As duas barras ou barra e asterisco aí no código significa o inicio de comentários do programa, se não quiser não precisa digitar . Digite os comandos exatamente como está escrito. o código do programa é o seguinte : declarefunction nothing,main,nothing // declaração de funções (tem que ser exatamente assim) dim c,int /* declaração de variáveis (se não declarar dá erro) */ dim l,int dim x,int dim y,int dim n,int function main gx_sound::init() gx_winbox::printconsol(string::"Press left mouse button to play sound, and right mouse button to exit.") /*imprime mensagem na tela, A mensagem é o que esta entre */ /*as aspas ai na linha de cima*/ c=500 /* pra variável manter o valor ela tem que estar dentro da função */ l=10 // L é a linha da tela e C é a coluna da tela x=0 // X controla a coluna se vai pra esquerda ou direita y=0 // Y controla a linha se vai pracima ou prabaixo gx_winbox::showdirectconsol() // este comando é que mostra a mensagem na tela do // Aqui é o inicio do Loop IF(x,==,0) /* tem que ser assim entre parenteses e dois sinais de igualdade */ c=c+10 endif IF(x,==,1) /* tem que ser assim entre parenteses e dois sinais de igualdade */ c=c-10 endif IF(y,==,0) /* tem que ser assim entre parenteses e dois sinais de igualdade */ l=l+9 endif IF(y,==,1) /* tem que ser assim entre parenteses e dois sinais de igualdade */ l=l-9 endif IF(l,>=,590) // Tem que ser assim entre parenteses e com os sinais >= // O tamanho da tela é 800 x 600. (começando do canto esquerdo e emcima), Ai se L >= 600 então passou prabaixo da tela gx_sound::play2d(string::"sino.wav",255,256,0,0) // Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o programa foi salvo e com // esse mesmo nome l=590 y=1 l=590 endif IF(l,<=,-10) /* tem que ser entre parenteses. se L <= 0 (zero) então passou pracima da tela */ gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o prog foi salvo e com esse // mesmo nome l=-10 // L = - 10 y=0 // Y = 0 endif IF(c,>=,790) /* tem que ser entre parenteses e com os sinais >=. Ai se c >= 800 então passou do tamanho máximo da tela do lado direito */ gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o prog foi salvo e com esse // mesmo nome c=790 x=1 c=790 endif IF(c,<=,-10) /* tem que ser entre parenteses e com os sinais <=. Ai se C <= 0(zero) então passou prafora da tela do lado esquerdo */ gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o prog foi salvo e com esse // mesmo nome c=-10 x=0 c=-10 endif IF(gx_mouse::getleftbutton(0),==,gx_button_statetriggered) // verifica se o botão esquerdo do mouse foi pressionado gx_winbox::printconsol(string::"Play sound.") // imprime a mensagem, que está entre aspas, na tela gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave, com este mesmo nome, tem que estar na mesma pasta onde o prog foi salvo endif gx_winbox::showdirectconsol() // este comando imprime todas as mensagens na tela gx_screen::drawbox(c,l,20,20,5,5,255,1,gx_bitmap_drawflat,128,64,128,255) // desenha um quadrado na posicao c,l com tamanho 20x20 e na cor RGB(5,255,1) // G é green(verde) que vai de 0 a 255 e R é (Red)vermelho que vai de 0 a 255 e // B é (Blue)azul que vai de 0 a 255. Quanto maior o valor mais claro gx_mouse::displaydynamic() // este comando é que verifica se algum botão do mouse foi pressionado loopwhile(gx_mouse::getrightbutton(0),!=,gx_button_statetriggered) // Fim do Loop, que termina quando se pressiona o botão direito do mouse gx_sound::reset() // Desabilita o som return(0) endfunction // Fim da funcão