devair1010

@RafaelLittleo o calculo que você fez está certo . Mas você vai precisar de mais algumas variáveis; Coloque estas: v,vi : real y,g : inteiro altura : caractere e logo depois do inicio na linha de baixo coloque: g:=10 e no loop y coloque essas linhas: para y de 0 ate 55 passo 5 faca altura:=numpcarac(55-y) se 55-y < 10 então altura:="0"+altura fimse // 5 é a qtd de caracteres incluindo o ponto v:=raizq(vi^2+2*g*y) // 2 é a qtd de caracteres depois da virgula escreval("a ",altura," MT de altura a velocidade é = ",v:5:2," M/S")

@Kaio Gomes no primeiro leia está faltando colocar a dimensão do vetor que está sendo lido coloque assim: leia (v1[i]) para ler o documento procurado não pode ser no vetor v1, use outra variável por exemplo o x assim: leia(x) Em seguida coloque um loop com a variável i para procurar no vetor de acordo com a quantidade de elementos do vetor, e dentro desse loop coloque assim: se v1[i]=x então//x>0]) e (x<5]) então escreva("o Numero do documento é: ",x," encontrado na posição ",i," do vetor" ) fimse

@RafaelLittleo posta o algoritmo que você já fez, para podermos ver.

@Kevin Neres se você tiver o blitz basic 3d instalado, você pode usar este algoritmo aqui para fazer esta função que você pretende: Graphics3D 1280,720 ;tamanho da tela grafica SetBuffer BackBuffer() ;bufer de fundo da tela tex=CreateTexture(380,160) ;cria uma textura HidePointer ;esconde a setinha do mouse cubo=CreateCube() ;cria um cubo tridimensional PositionEntity cubo,0,0,0 ;coloca o cubo na posição x=0 e y=0 e z=0 camera=CreateCamera() ;cria uma camera para ver o mundo 3d luz=CreateLight() ;cria uma luz no mundo 3d para ver os objetos MoveEntity camera,0,0,-5 ;move a camera 5 unidades para trás tempo=600 ;do jeito que está 600 é igual a 20 segundos ClsColor 255,255,255 ;cor de fundo para a textura font=LoadFont("book antiqua",55) ;tipo e tamanho das letras fant=LoadFont("book antiqua",25) ;tipo e tamaho das letras Repeat ;fica repetindo tempo=tempo-1 ;decrementa o tempo c=GetKey() ;verifica qual tecla foi pressionada, se nada for pressionada então é c=0 TurnEntity cubo,2,2.2,1.2 ;gira o cubo nos três eixos: X Y Z SetBuffer TextureBuffer(tex) ;para mostrar o que está no bufer de texturas EntityTexture cubo,tex ;isso escreve os nomes no cubo RenderWorld ;renderiza e mostra os objetos do mundo 3d Cls SetFont fant ;tamanho das letras na tela igual a 25 Print "Digite A Resposta E Tecle Enter" Print "Em Que Ano Foi Descoberto O Brasil ?" ;escreve na tela If c <> 0 And (c > 47 And c < 58) Then ;se pressionou alguma tecla e ela for de 0 até 9 b$=b$+Chr$(c) ;armazena ela na variável b$ d=d+1 ;incrementa o contador EndIf ;fim das comparações If KeyHit(14) Then ;se presionou a tecla backspace If d > 0 Then d=d-1 ;se o contador for maior que zero b$=Mid$(b$,1,d) ;apaga o último número EndIf ;fim da comparação Print "RespostA = "+b$ ;escreve o número na tela Color 1,1,1 ;cor preta para as letras SetFont font ;tamanho das lstras no cubo = 55 Text 130,100,Int(tempo/30)+" SegundoS" ;escreve no cubo Color 255,255,255 ;cor branca para as letras Flip ;mostra tudo que está no bufer da tela Until KeyHit(28) Or tempo=00 ;até apertar enter ou o tempo esgotar SetFont fant ;tamanho das letras ao fundo da tela = 25 For f=1 To Len(b$) ;um loop de acordo com a quantidade de números em b$ x=x+Mid$(b$,f,1) ;calculando a resposta Next ;fim do loop If tempo = 00 Then ;se o tempo esgotou Print"Tempo Esgotado" ;escreve na tela If x<>0 Then Print " Você Não Teclou Enter" ;se deu uma resposta If x=0 Then Print "E Você Não Deu Nenhuma Resposta.";se não responder e o tempo acabar If x<>0 And x<>1500 Then Print "E A Propósito, A Resposta Está Errada";se respondeu mas não teclou enter If x=1500 Then Print "Mas A Resposta Estaria Certa Se Tivesse Teclado Enter";se respondeu certo mas não teclou enter Else If x=1500 Then ;se a resposta estiver certa Print "Resposta Certa" ;escreve na tela Else ;se a resposta não estiver certa If x<> 0 Then Print "Resposta Errada" ;escreve na tela If x=0 Then Print " Nenhuma Resposta Foi Digitada";se não respondeu nada EndIf ;fim da comparação EndIf ;fim da comparação Delay 1000 ;espera um segundo ;End

@Wallysson Santos basicamente esses loop vai pegar cada numero e testar se ele é menor que o outro numero; o A aponta para o primeiro numero e B aponta para o segundo numero, depois o terceiro e assim até o décimo, e ele vai comparando o primeiro numero com todos eles a partir do segundo, e se for menor ele troca eles de posição, colocando o menor antes do maior. Depois o A passa a apontar para o segundo numero e B aponta para o terceiro, fazendo as mesmas comparações, e indo assim até A apontar para o nono numero já que B só vai até dez, então quando A for dez o B não será executado, mas isso não dá nenhum erro e passa sem problema. aqui está o desenho do vetor numero em cada posição desse vetor ficará um dos números digitados por exemplo assim os números estão todos desorganizados então esses dois loops vão colocar os números organizados de acordo com cada posição.

@Wallysson Santos se você fizer com vetores fica mais fácil. coloque esse vetor lá nas variáveis numero :vetor [1..10] de inteiro e dentro do repita depois do leia coloque numero[cont]:=num e depois do ate (cont=10) na linha de baixo coloque para a de 1 ate 10 faca para b de a+1 ate 10 faca c:=numero[b] se c < numero[a] então numero[b]:=numero[a] numero[a]:=c fimse fimpara escreval(a," numero --> ",numero[a]) fimpara no vetor numero estará os números digitados em ordem crescente então podes imprimir o maior numero assim escreval("O maior número digitado foi: ",numero[10])// Maior1) o menor numero estará na primeira posição do vetor numero. e a média é a soma de numero[3] até numero[8] dividido por 6

@RafaelLittleo É para retirar apenas o loop para m de 1 ate t-1 faca que está no procedimento monitoramento. E no procedimento CADASTRO, toda vez que faz um cadastro ele volta para o menu e isso é ruim porque é preciso digitar 1 e teclar enter novamente para fazer outro cadastro, então se colocar um repita lá no inicio do procedimento cadastro, pode se cadastrar quantas vezes quiser e quando terminar aí sim sair. essas linhas é para colocar no procedimento RELATÓRIO, dentro do loop para y de 1 ate t-1 faca este aqui: procedimento "relatorio" var linha : inteiro g : caractere inicio escreval (" RELATÒRIO") escreval ("_________________________") escreval (" TABELA DE MONITORAMENTO") para x de 1 ate 1 faca escreval (" ") para y de 1 ate t-1 faca escreval("PacienTe ",nome[y]," Com IMC = ",imc[y,1]:5:2) linha:=linha+1 se linha>25 então escreval("Tecle Para Continuar") leia(g) linha:=0 limpatela fimse fimpara escreval fimpara se t=1 então escreval("Não Tem Nenhum Paciente Cadastrado") fimse escreval("Tecle Enter Para ContinuaR") leia(g) fimprocedimento

@RafaelLittleo coloque um repita no procedimento cadastro para poder fazer vários cadastro sem que fique voltando ao menu toda hora. No monitoramento retire o loop para m de 1 ate t-1 faca e o fimpara desse mesmo loop. E no procedimento relatório no começo coloque essa variável var linha : inteiro e dentro do loop para y de 1 ate t-1 faca coloque essas linhas. escreval("PacienTe ",nome[y]," Com IMC = ",imc[y,1]:5:2) linha:=linha+1 se linha>25 então escreval("Tecle Para Continuar") leia(g) linha:=0 limpatela fimse escreval se t=1 então escreval("Não Tem Nenhum Paciente Cadastrado") fimse escreval("Tecle Enter Para ContinuaR") leia(g) assim enquanto estiver rodando ele armazena todos os dados, mas se sair, os dados serão perdidos.

olá @hoffmano não tem como criar uma variável a partir do valor de outra variável. O que se pode é fazer uma variável igual a outra variável, por exemplo: a:=10 e aí b:=a Quanto ao banco de dados, creio que no visualg isso não seja possível, porque o visualg é apenas para aprendizado; Então para isso você pode ir de mysql, java, delphi....

@Higor Duarte de Oliveira porque você colocou esses 3v aí? se o teste é com 12v.

@linker1124 Pode instalar o WindowS XP sp3 que vai funcionar muito bem.

@Kevin Neres Creio que no visualg não terá como fazer isso, porque nele só tem o comando leia para a entrada de dados, e quando o programa encontra esse comando ele fica parado esperando que seja digitado alguma coisa e tecle enter, então não tem como ele saber quanto tempo se passou. isso pode ser feito em outros programas como o c++, blitz basic 3d, java, c#...

@ET Bilu sim pode-se usar vetores simples, para isso é preciso colocar mais um vetor por exemplo vetor_num_vezes : vetor[1..10] de real aí na comparação quando o número for igual, coloca nesse vetor o contador, e no vetor_repetido na posição i coloca o número repetido e no final para mostrar na tela o número de vezes estará nesse vetor.

@ET Bilu seu codigo está bom, mas precisa modificar algumas coisas. a variável tam tem que ter o valor 10 porque são 10 números, e na hora de digitar os números não digite zero, e coloque os números também no vetor_apoio,depois do leia coloque assim: vetor_apoio := v[i] Essa variável repetido ali precisa ser um vetor bidimensional, para que possa receber os números repetidos e a quantidade de vezes que o número repetiu, e também mais um vetor para facilitar as coisas assim: vetor_apoio : vetor[1..10] de real vetor_repetido : vetor[1..10,1..2] de real Esse vetor_repetido aí tem duas dimensões, é como se fosse 20 variáveis em uma só, mas para usá-las é preciso informar a posição de cada uma delas e isso é feito com um loop, e para ver se o número repetiu, coloque mais um loop, ali dentro do loop i, por exemplo: para a de i+1 ate 10 faca e dentro desse loop faça as comparações de cada número com os outros números do vetor v assim: se v[a] = v[i] então aí se for igual, coloca o número no vetor_repetido[i,1] := v[a] e coloca zero no vetor v na posição a e soma 1 ao contador e coloca o contador no vetor_repetido na posição [i,2], depois é mostrar na tela os números repetidos e a quantidade de vezes, com um loop de 1 até 10; os numeros repetidos estão no vetor_repetido[i,1] e a quantidade de vezes está no mesmo vetor_repetido[i,2]. e os números digitados estão no vetor_apoio . dimensa.bmp dimensão.bmp

@ET Bilu Olá, infelizmente não posso fazer o algoritmo para você, vou te dar uma ideia de como fazer, aí você faz e posta aqui para que possamos te ajudar. Então você pode fazer assim : depois de ler os valores e colocar no vetor use dois loop, um dentro do outro indo de 1 ate 10 e dentro do segundo loop faça as comparações para ver se o número é igual a algum dos outros números se for igual é porque ele é repetido então coloque ele em um outro vetor chamado vetor_repetido e também coloque em outro vetor o número de vezes desse número mais um. aí no final escreva esses número que estão no vetor repetido.

@ET Bilu Do jeito que está não funciona porque i2 é uma variável simples, então ela recebe e mantém o valor naquele momento com isso a cada vez que o loop se repete ela tem um valor diferente, sendo que no final ela conterá o último valor digitado e coletado pelo leia. Se i2 fosse um vetor aí sim ele teria todos os valores digitados assim como v, mas não estaria em ordem inversa. Um jeito de fazer isso seria colocando uma variável começando de 30 e a cada passada ela fosse decrementada, passando para 29 depois para 28 até que no final ela teria o valor 1, e ali mesmo no primeiro loop você já coloca o número no vetor v2 usando essa variável. Então usando i2 como essa variável, antes do loop coloque i2 := 30 Aí dentro do primeiro loop ficaria assim : escreva("digite um numero e tecle enter") leia(v[i]) v2[i2]:=v[i] i2 := i2-1 com isso ele vai posicionando os números em ordem inversa no segundo vetor. agora pode-se escrever na tela para ver como ficou, então no segundo loop que vai de 1 ate 30 coloque só isso: escreval("em v= ",v[i]," <---> "," em v2= ",v2[i])

@ET Bilu Se Você Colocar Do Jeito Que Eu Postei Acredito Que Vai Funcionar Certo Pelo Menos Aqui Eu Testei E Está Funcionando. Veja Que As Variáveis Estão Ao Contrário, Entâo É v2 na posição i que recebe v na posição i multiplicado por 2 ou por 3. se i mod 2 = 0 então v2[i] := v[i]*2 senao v2[i] := v[i]*3 fimse

@ET Bilu Seu Código Está Bom, Só Tem Um Pequeno Erro Ali No Se, No Caso A Posição No Vetor É A Variável i, Então É Preciso Ver Se i É Par Ou Ímpar, Experimente Colocar Assim: se i mod 2=0 então v2[i]:=v[i]*2 senao v2[i]:=v[i]*3 fimse E Também Ali Na Hora Do Leia Seria Bom Colocar Uma Informação Para Que O Usuário Saiba O Que Fazer, Então Ali Antes Do Leia Coloque Isso: escreval("Digite Um Número E Tecle Enter") E No Final Pode-se Mostrar Os Valores Nos Vetores .

@Vengefull Se você está começando a estudar programação então é bom usar o o programa VISUALG com ele é mais fácil começar a programar. No VISUALG use o comando Randi() para escolher os 7 números que vai remover usando para isso 7 variáveis cada uma com um dos números que serão removidos assim a<-randi(25)+1. Depois usando esse mesmo comando gere os 5 números e compare com os 7 números já gerados, se ele for diferente dos 7 números então veja se o número é par ou impar usando o comando MOD assim, se b mod 2=0, se for igual a zero é par se não for igual a zero é impar. bem esse é o começo, depois fazer o restante do código.

@Helena Ferreira Querida, no caso a placa de video é a APU que o@Rafael Campello Mazzoni citou acima, que vem junto com o processador no mesmo chip, AMD A10-7850K, essa APU pode dar conta do Battlefield™ 4, e está por R$ 637,00 no kabum.

@EvandroT ele lê o código, mas esses se e senão não estão funcionando do jeito certo não. Melhor usar vetores para isso. Então acrescentei essas linhas aí no seu código. Tente assim: Algoritmo "2.2 Pag 46" var A, B, C,d:inteiro vet : vetor[1..3] DE inteiro inicio //escreval ("Digite o primeiro valor") //leia (A) //escreval ("Digite o segundo valor") //leia (B) //escreval ("Digite o terceiro valor") //leia (C) para a de 1 ate 3 faca escreval("digite o ",a," valor") leia (vet[a]) fimpara //se (A > B) e (A > C) então // escreval (A) //senao // se (B > A) e (B > C) então // escreval (" ", B) // senao // escreval (" ", C) // fimse //fimse // se (B < C) e (B < A) então // se (C > A) então // escreval (A, B) // senao // escreval (C, B) // fimse // fimse para b de 1 ate 3 faca para c de b ate 3 faca se vet[b] > vet[c] então d := vet[b] vet[b] := vet[c] vet[c] := d fimse fimpara fimpara limpatela escreval("Escrevendo Em Ordem Decescente") para b de 3 ate 1 passo -1 faca escreval("VALOR ",vet[b]) fimpara Fimalgoritmo

@claycezar Valeu cara eu estava mesmo precisando de informação à esse respeito. Quando eu mandava imprimir, ele não imprimia os códigos. Muito obrigado por ter postado essa solução.

@brunoalv182 o até está faltando ali no comando para, e o comando escolha só funciona se você colocar o comando Caso para que ele saiba o que fazer. Então modifiquei seu código acrescentando o comando Caso e coloquei o comando Para também. Assim ele vai funcionar mas ainda falta muita coisa para terminar seu programa. e o então tem que ser sem TIL . Experimente assim: Algoritmo "Cadastro" Var a1,a2,a3,a4,x,y :inteiro a5, i,cad : caractere moradores: vetor[1..10] de caracter contas: vetor[1..10, 1..10] de caracter inteiro sair: inteiro Inicio x:=1 cad:="s" repita Escreval (" Menu principal") Escreval ("1. Cadastrar Moradores") Escreval ("2. Cadastrar contas") Escreval ("3. Mostrar Moradores Menores de idade") Escreval ("4. Sair ") a1:=0 leia (a1) //incluindo moradores escolha a1 caso 1 //cadastrar moradores enquanto cad <> "n" faca escreval("digite o nome do morador e tecle enter") leia (moradores[x]) escreval("cadastrar outro morador S N") leia(cad) x:=x+1 se x > 10 então escreval("Só podes Cadastrar 10 Moradores") cad:="n" fimse fimenquanto limpatela caso 2 //cadastrar contas caso 3 //mostrar moradores menoresde idade limpatela para y de 1 ate 10 faca escreval(y," morador ",moradores[y]) fimpara escreval(" tecle enter") leia(a2) limpatela fimescolha ate a1=4 // para a1=1 faca // Escreva ("Insira o nome do morador:") // leia (moradores) // fimpara //comando para sair //ate a1=4 Fimalgoritmo

@Ticorinthiano Eu não havia pensado nisso, realmente você tem razão, dessa forma você estaria programando,sim.

@Ticorinthiano Creio que sim, pois se você não souber o que está escrevendo, como o computador vai saber o que fazer. Dificilmente o programa funcionará se você não escrever exatamente o que fazer, e se você não souber uma linguagem de programação, você não terá nem ideia do que escrever.