Ir ao conteúdo
  • Cadastre-se

luscas

Membro Pleno
  • Posts

    137
  • Cadastrado em

  • Última visita

posts postados por luscas

  1. 4 horas atrás, Aleatorio02 disse:
     resultado <- computador ganhou

     

    4 horas atrás, Aleatorio02 disse:
    resultado <- jogador ganhou

    Caractere precisa colocar entre aspas

    Exemplo :

    resultado <- "jogador ganhou !!"

    codigo:

    Algoritmo "semnome"
    
    Var
       num, num_aleat: inteiro
       resultado: caractere
       jogador: caractere
       computador: caractere
    Inicio
        escreval ("escolha um número entre 0 e 50: ")
        leia (num)
        escreval ("número escolhido pelo computador: ")
        aleatorio 1, 50
        leia (num_aleat)
        aleatorio off
    
        escreval
        se num_aleat > num então
           resultado <- "computador ganhou !!"
        senao
             se num_aleat < num então
             resultado <- "jogador ganhou !!"
             fimse
        fimse
    
        escreva ("Resultado: ", resultado)
    fimalgoritmo

     

    • Obrigado 3
  2. @Carlos FW Informatica Bom, qual você esta usando agr? quando instalaa o programa ele ja fica configurado para acessar o phpmyadmin.

    ja criou o banco de dados? o problema ocorre quando tenta conectar para inserir?consultar?

    e como esta seu codigo de conexão com mysql? 

    se conseguir mandar um print do erro fica melhor para tentar te ajudar.

    Tanto o http server como o mysql server estão rodando?

  3. Ja estava jogando o jogo a alguns dias,tudo ok, mas hoje quando entrei o mesmo esta com uma borda na parte superior e inferior.

    A  configuração do jogo ja esta em tela cheia, proporcao 16:9,sendo a proporcao do meu monitor, e a resolucao correta, porém o jogo fica com bordas.

    Algum já teve esse problema, sabe como resolver?

     

    Captura de tela 2024-01-20 140342.png

  4. tenho um modelo da hp multifuncional e o problema é com a durabilidade dos cartuchos, além do preço dos mesmos.

    Vai depender do seu uso, se pretende imprimir bastante o melhor é uma tanque de tinta/tonner, mas ai entra na questão de orçamento, as tanque de tinta sao mais caras que as de cartuchos e as de tonner mais caras que as de tanque.

    Na minha opinião se fosse pegar uma nova atualmente pegaria uma de tanque, no quesito marca o pessoal recomenda bastante a epson.

  5. @HenriqueArisi

    Bom, testei aqui e depois de um longo tempo testando , o problema se encontrava na declaração de variais do vetor de datas.

    9 horas atrás, HenriqueArisi disse:

     datas: vetor [1..100] de caractere

    Ao que tudo indica a palavra " datas " é uma palavra reservada no visualg, até procurei algo sobre ela mas não encontrei, enfim mudando o nome da variável para data funcionou .

    Algoritmo "Controle de Vendas"
    
    Var
    
       clientes: vetor [1..100] de caractere
    
       data: vetor [1..100] de caractere
    
       produtos: vetor [1..100] de caractere
    
       valoresProduto: vetor [1..100] de real
    
       valoresTotal: vetor [1..100] de real
    
       quantidades: vetor [1..100] de inteiro
    
       contador, totalvendas: inteiro
    
       i: inteiro
    
       vendasCadastradas: logico
    
       opcao: caractere
    
    
    
    Procedimento cadastrarVenda
    
    Inicio
    
       Se totalvendas < 100 então
    
          contador <- contador + 1
    
          totalvendas <- totalvendas + 1
    
    
    
          escreva("Informe o Cliente: ")
    
          leia(clientes[contador])
    
          escreva("Informe a Data: ")
    
          leia(data[contador])
    
          escreva("Informe o Produto: ")
    
          leia(produtos[contador])
    
          escreva("Informe o Valor do Produto: ")
    
          leia(valoresProduto[contador])
    
          escreva("Informe a Quantidade Vendida: ")
    
          leia(quantidades[contador])
    
    
    
          valoresTotal[contador] <- valoresProduto[contador] * quantidades[contador]
    
    
    
          Escreval("Produto cadastrado com sucesso!")
    
    
    
          // Atualiza a variável vendasCadastradas para Verdadeiro
    
          vendasCadastradas <- Verdadeiro
    
    
    
       Senao
    
          Escreval("Limite de vendas atingido.")
    
       FimSe
    
    FimProcedimento
    
    
    
    Procedimento listarVendas
    
    Inicio
    
       vendasCadastradas <- Falso
    
       Para i de 1 ate 100 faca
    
          Se clientes[i] <> "" então
    
             vendasCadastradas <- Verdadeiro
    
             Escreval("Cliente: ", clientes[i])
    
             Escreval("Data: ", datas[i])
    
             Escreval("Produto: ", produtos[i])
    
             Escreval("Valor do produto: ", valoresProduto[i])
    
             Escreval("Quantidade de produtos: ", quantidades[i])
    
             Escreval("Valor total da venda: ", valoresTotal[i])
    
             Escreval("------------------------------")
    
          FimSe
    
       FimPara
    
    
    
       Se não vendasCadastradas então
    
          Escreval("Não há vendas cadastradas.")
    
       FimSe
    
    FimProcedimento
    
    
    
    // Programa Principal
    
    Inicio
    
    
    
       totalvendas <- 0
    
       contador <- 0
    
       vendasCadastradas <- Falso
    
    
    
       Repita
    
          escreval("MENU:")
    
          escreval("1 - Cadastrar Venda")
    
          escreval("2 - Lista de Vendas Realizadas")
    
          escreval("S - Sair")
    
          escreva("Escolha a opção desejada: ")
    
          leia(opcao)
    
    
    
          escolha opcao
    
          caso "1"
    
             cadastrarVenda
    
          caso "2"
    
             listarVendas
    
          caso "S"
    
             escreva("Programa encerrado. Obrigado por utilizar!")
    
          outrocaso
    
             escreva("Opção inválida. Tente novamente.")
    
          fimescolha
    
    
    
       Ate opcao = "S"
    
    FimAlgoritmo

     

    • Curtir 2

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!