HenriqueArisi

@RonaldoXbox Cougar VTE 500W

Tenho um kit de fan da aigo air 12, que veio com uma controladora que conecta direto na fonte, no começo funcionava normal mas hoje em dia quando ligo o pc as fans ligam mas o led não, de vez em quando cai a luz e o pc reinicia e ai o led ascende, ou se eu desconecto da fonte e conecto novamente manualmente, elas ligam também, mas quando desligo e ligo o pc normalmente o led não liga. alguém sabe me dizer o que pode ser, se é problema na fonte, controladora ou nas próprias fans?

@luscas Muito obrigado cara! você é uma potencia, você devia ser piloto de foguete da NASA!

Bom, sou universitário de ADS e estou no segundo período do curso, e nossa linguagem educacional por enquanto é o Portugol do Visualg O professor passou a seguinte atividade para nós... Criar um programa em Visualg que tenha um MENU com: 1 - Cadastrar Venda 2 - Lista de Vendas Realizadas S - Sair (Encerrar o programa, agradecendo pela utilização) * Utilize APENAS estruturas como procedimento, para o cadastro e a listagem de produtos Procedimento de cadastro deve ter: - Cliente - Data - Produto - Valor do Produto - Quantidade vendida (O programa deve calcular o valor total da venda e armazená-lo no cadastro.) - Mensagem de produto cadastrado concluído com sucesso Procedimento de Listagem deve ter: - Retornar as informações de todas as vendas realizadas, e o valor total de cada uma Algoritmo "Controle de Vendas" Var clientes: vetor [1..100] de caractere datas: 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(datas[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 Só que da erro e nem se quer executa o menu que é a parte principal, já tentei de tudo pra arrumar isso mas não consigo de jeito nenhum. Queria pedir ajuda aos experts para me orientar... Aqui estão os erros que o próprio VisualG indica! https://pasteboard.co/M5Ad7MJ2dxP9.png https://pasteboard.co/QsHmgs1oeprz.png

Bom, sou universitário de ADS e nossa linguagem de aprendizagem por enquanto é o portugol do Visualg. Tenho uma dúvida em um algoritmo que fiz. O algoritmo consiste em: Criar um programa em Visualg que permita o cadastro de produtos com NOME, CÓDIGO E VALOR. E a pesquisa de produtos por código. O programa deve retornar as informações do produto encontrado, ou uma mensagem de erro se o produto não for encontrado. Aqui está o código... algoritmo "Cadastro e Pesquisa de Produtos" var nome: vetor[1..50] de caractere codigo: vetor[1..100] de inteiro valor: vetor[1..100] de real opcao: caractere codigoPesquisa: inteiro encontrado: logico quantidadeProdutos: inteiro i: inteiro procedimento cadastrarProduto inicio se quantidadeProdutos < 100 então escreval("Digite o nome do produto: ") leia(nome[quantidadeProdutos]) escreva("Digite o código do produto: ") leia(codigo[quantidadeProdutos]) escreva("Digite o valor do produto: ") leia(valor[quantidadeProdutos]) quantidadeProdutos <- quantidadeProdutos + 1 escreva("Produto cadastrado com sucesso!") senao escreval("Limite de produtos atingido. Não é possível cadastrar mais produtos.") fimse fimprocedimento procedimento pesquisarProduto inicio encontrado <- falso para i de 0 ate quantidadeProdutos-1 faca se codigo[i] = codigoPesquisa então escreval("Produto encontrado:") escreval("Nome: ", nome[i]) escreval("Código: ", codigo[i]) escreval("Valor: ", valor[i]) encontrado <- verdadeiro interrompa fimse fimpara se não encontrado então escreval("Produto não encontrado.") fimse fimprocedimento inicio quantidadeProdutos <- 0 repita escreval("========== Menu ==========") escreval("1 - Cadastrar Produto") escreval("2 - Pesquisar Produto por Código") escreval("S - Sair") escreval("==========================") escreva("Escolha a opção desejada: ") leia(opcao) escolha opcao caso "1" cadastrarProduto caso "2" se quantidadeProdutos > 0 então escreva("Digite o código do produto a ser pesquisado: ") leia(codigoPesquisa) pesquisarProduto(quantidadeProdutos) senao escreval("Nenhum produto cadastrado.") fimse caso "S" escreval("Saindo do programa.") outrocaso escreval("Opção inválida. Tente novamente.") fimescolha ate opcao = "S" fimalgoritmo Fiz com estruturas de procedimento e escolha caso, que é o que estamos aprendendo no momento. O erro se dá na hora de escolher a opção 1 - Cadastrar produto Não sei sé é necessário todas essas prints, mas é tudo o que o Visualg acusa, e sei q nem sempre o que ele acusa é o que esta incorreto! mas já fiz de tudo que eu consigo pensar para arrumar isso Espero que os experts possam me ajudar, desde já, obrigado! Henrique Arisi 23.11.2023

@kgin Amigo, testei aqui e continua no mesmo erro...

Sou estudante so 2o período de Analise de Desenvolvimento de Sistema, e o Visualg (Portugol) é a nossa linguagem educacional/ Professor passou um trabalho com os seguintes pedidos... Desenvolva um programa em Visualg que apresente o seguinte menu para o usuário: 1 - Cadastrar aluno 2 - Pesquisar aluno 3 - Listar alunos 4- Lista média de todos alunos da turma S - Sair Digite Opção: 1. Em Cadastrar: deve conter os vetores: RA, Nota1, Nota2 e Cidade. Um de cada vez; 2. Realiza a pesquisa por RA, caso encontrar apresentar a média (que é criado automaticamente no vetor MEDIA, quando é realizado o cadastro das notas). Caso não encontre, informar “RA inexistente”; 3. Lista todos alunos cadastrados até o momento; 4. Lista a média de cada aluno, mas apresentando somente RA e Media; 5. Sair agradecendo o usuário. * Utilizar a Estrutura Caso... Escolha *O limite de alunos deve ser 10, após tentar cadastrar mais alunos porém com esse limite já atingido, mandar uma informação.(que já foi atingido *Informar quando não tem alunos cadastrados caso a Opção seja 2, 3 ou 4 O ERRO SE DA NA SEGUINTE PARTE: O limite de alunos deve ser 10, após tentar cadastrar mais alunos porém com esse limite já atingido, mandar uma informação.(que já foi atingido) Algoritmo "CadastroAlunos" Var opcao: Caractere RA: Vetor[1..10] de Inteiro Nota1: Vetor[1..10] de Real Nota2: Vetor[1..10] de Real Cidade: Vetor[1..10] de Caractere MEDIA: Vetor[1..10] de Real i: Inteiro raPesquisa: Inteiro encontrou: Logico alunosCadastrados: Logico Inicio Para i de 1 ate 10 faca RA[i] <- 0 Nota1[i] <- 0 Nota2[i] <- 0 MEDIA[i] <- 0 FimPara alunosCadastrados <- Falso Enquanto opcao <> "S" faca Escreval("==================================================") Escreval(" -=MENU=-") Escreval("1 - Cadastrar aluno") Escreval("2 - Pesquisar aluno") Escreval("3 - Listar alunos") Escreval("4 - Lista média de todos alunos da turma") Escreval("S - Sair") Escreval("==================================================") Escreval("Digite Opção: ") Leia(opcao) LimpaTela Escolha opcao Caso "1" // Cadastrar aluno i <- 1 Enquanto (i <= 10) E (RA[i] <> 0) faca i <- i + 1 FimEnquanto Se i <= 10 então Escreva("Digite o RA do aluno: ") Leia(RA[i]) Escreva("Digite a Nota 1 do aluno: ") Leia(Nota1[i]) Escreva("Digite a Nota 2 do aluno: ") Leia(Nota2[i]) Escreva("Digite a Cidade do aluno: ") Leia(Cidade[i]) MEDIA[i] <- (Nota1[i] + Nota2[i]) / 2 LimpaTela Escreval("Aluno cadastrado com sucesso!") alunosCadastrados <- Verdadeiro Senao Escreval("Limite de alunos atingido.") FimSe Caso "2" // Pesquisar aluno Se alunosCadastrados então Escreval("Digite o RA para pesquisa: ") Leia(raPesquisa) encontrou <- Falso Para i de 1 ate 10 faca Se RA[i] = raPesquisa então LimpaTela Escreval("Média: ", MEDIA[i]) encontrou <- Verdadeiro Interrompa FimSe FimPara Se não encontrou então Escreval("RA inexistente") FimSe Senao Escreval("Nenhum aluno cadastrado até o momento.") FimSe Caso "3" // Listar alunos Se alunosCadastrados então Para i de 1 ate 10 faca Se RA[i] <> 0 então Escreval("RA: ", RA[i]) Escreval("Nota 1: ", Nota1[i]) Escreval("Nota 2: ", Nota2[i]) Escreval("Média: ", MEDIA[i]) Escreval("---------------------------------") FimSe FimPara Senao Escreval("Nenhum aluno cadastrado até o momento, consequentemente, nenhuma média calculada.") FimSe Caso "4" // Listar médias Se alunosCadastrados então Para i de 1 ate 10 faca Se RA[i] <> 0 então Escreval("RA: ", RA[i]) Escreval("Média: ", MEDIA[i]) Escreval("---------------------------------") FimSe FimPara Senao Escreval("Nenhum aluno cadastrado até o momento.") FimSe Caso "S" Escreval("Agradecemos por utilizar o programa!") OutroCaso Escreval("Opção inválida. Tente novamente.") FimEscolha FimEnquanto FimAlgoritmo Esse é o código, e aqui está o erro na hora da execução - Acredito que essas linhas que o Visualg acusa estejam erradas, mas resumindo, Eu cadastro os 10 alunos porém quando clico novamente na Opção 1(de cadastro), ao invés de aparecer a mensagem de "Limite de alunos atingido", e aí o erro se apresenta. Se algum expert puder me ajudar ficarei muito agradecido!!