sTokesX

Boa noite, pessoal! Comprei um Acer Aspire 5733 no Olx e o vendedor me disse que ele quando conectado na bateria e fosse desligado, ele só ligaria novamente se retirasse a bateria e colocasse de volta. Aí tudo bem, achei que o problema era apenas na bateria e resolvi pegar mesmo assim (na hora que ele me mostrou pessoalmente, até ligou normal sem precisar recolocar a bateria). Peguei o note ontem e usei tranquilo, sem nenhum bug, aí desliguei e fui trabalhar, porém quando cheguei em casa e fui ligá-lo (agora de noite), ele simplesmente não deu sinal de vida. Mesmo relocando a bateria, como fui orientado, e também sem bateria direto na tomada, ele não quis ligar. Simplesmente não dava nenhum sinal de vida. Nem os leds acendiam. Deixei um tempo sem tentar ligá-lo e agora pouco ele ligou normal. O que vocês acham que pode estar ocorrendo? As vezes liga e as vezes não, tendo que esperar.

Então Simon, eu fiz o que você disse, porém deu erro no código. Segue abaixo o meu código: begin Writeln('====== Programa de Notas Escolares - 4 bimestre ======'); Writeln('Digite o numero da materia que deseja calcular: '); Writeln(' 1 - Portugues'); Writeln(' 2 - Matematica'); Writeln(' 3 - Biologia'); Writeln(' 4 - Geografia'); Readln(Escolha); {Portugues} If (Escolha = 1) Then Begin Writeln(' ===== Portugues ===== '); Writeln('* Digite a nota do 4 bimestre: '); Readln(QPortugues); ValPortugues := 22; ValPortugues := ValPortugues + QPortugues; If ValPortugues < 20 Then Begin Writeln('* REPROVADO *'); Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.'); End If ValPortugues >= 20 Then {ERRO AQUI} Begin Writeln('* APROVADO * '); Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.'); Readln; End; {Matematica} If (Escolha = 2) Then Begin Writeln(' ===== Matematica ===== '); Writeln('Digite a nota do 4 bimestre: '); Readln(QMatematica); ValMatematica := 16; ValMatematica := ValMatematica + QMatematica; If ValMatematica < 20 Then Begin Writeln('* REPROVADO *'); Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.'); Readln; End If ValMatematica >= 20 Then {ERRO AQUI} Begin Writeln('* APROVADO * '); Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.'); Readln; End;end. {ERRO AQUI} Marquei os erros que obtive. Muito obrigado pelas respostas! Não sabia que eu poderia usar um if dentro de If. Essa é nova pra mim. rsr Estou no aguardo, abraços.

Obrigado pela resposta! Porém, ainda estou tendo problemas com o código. No caso, eu queria usar um "If" que me avisasse se passei ou não, com o número total de pontos que acumulei durante o ano. Segue o código abaixo de Português: {Portugues} If Escolha = 1 Then Begin Writeln(' ===== Portugues ===== '); Writeln('* Digite a nota do 4 bimestre: '); Readln(QPortugues); ValPortugues := 22; ValPortugues := ValPortugues + QPortugues; End If ValPortugues < 20 Then Begin Writeln('* REPROVADO *'); Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.'); End If ValPortugues >= 20 Then Begin Writeln('* APROVADO * '); Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.'); Readln; End; Entendeu o meu ponto? Não teria alguma forma de usar um "If" dentro de "If"? Ex: Se Escolher = 1 Faça Início {PORTUGUES AQUI} Fim Se ValorPortugues >= 20 Faça Início {APROVADO} Fim Se ValorPortugues < 20 Faça Início {REPROVADO} Fim Seria possível algo desse tipo?

Fala galera! É o seguinte, estou no 2º grau do Ensino Médio e com o final das notas escolares, eu resolvi tentar criar um pequeno algoritmo em pascal que apenas de colocar o resultado do 4º Bimestre, ele calcula o resultado do ano inteiro e me diz se passei ou não, em determinada matéria. Eu criei 2 variáveis: uma para Português (ValPortugues), e uma para Matemática (ValMatematica), que recebem o total dos meus 3 Bimestres. Já as variáveis QPortugues e QMatematica, recebem o valor do 4º Bimestre. Porém, o problema que estou tendo é que ao executar o programa e escolher o número 2, além de executar o cálculo de MATEMÁTICA, ele também executa o bloco de Português. Creio eu que isso seja um erro bem bobo, mas estou há 3 dias tentando solucionar esse problema e não consigo. Comecei a aprender Pascal na semana passada, ainda não consegui obter aquela "lógica" da programação. Isso foi o máximo que consegui fazer: Programa em execução e ao escolher número 2 (Matemática): Código até o momento: uses SysUtils; Var ValPortugues, ValMatematica, ValBiologia, ValGeografia, QPortugues, QMatematica, QBiologia, QGeografia: Real; Escolha: Integer;begin Writeln('====== Programa de Notas Escolares - 4 bimestre ======'); Writeln('Digite o numero da materia que deseja calcular: '); Writeln(' 1 - Portugues'); Writeln(' 2 - Matematica'); Writeln(' 3 - Biologia'); Writeln(' 4 - Geografia'); Readln(Escolha); {Portugues} If Escolha = 1 Then Begin Writeln(' ===== Portugues ===== '); Writeln('* Digite a nota do 4 bimestre: '); Readln(QPortugues); ValPortugues := 22; ValPortugues := ValPortugues + QPortugues; End; If ValPortugues < 20 Then Begin Writeln('* REPROVADO *'); Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.'); End; If ValPortugues >= 20 Then Begin Writeln('* APROVADO * '); Writeln('** O total de pontos ao ano foi de ',ValPortugues:2:2,' Pontos.'); Readln; End; {Matematica} If Escolha = 2 Then Begin Writeln(' ===== Matematica ===== '); Writeln('Digite a nota do 4 bimestre: '); Readln(QMatematica); ValMatematica := 16; ValMatematica := ValMatematica + QMatematica; Writeln('O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.'); Readln; End; If ValMatematica < 20 Then Begin Writeln('* REPROVADO *'); Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.'); End; If ValMatematica >= 20 Then Begin Writeln('* APROVADO * '); Writeln('** O total de pontos ao ano foi de ',ValMatematica:2:2,' Pontos.'); Readln; End; Readln; end.

Obrigado mesmo, brother! Realmente é bem mais elegante dessa forma. Ficou bem mais simples do seu modo. Vou seguir seus conselhos da próxima vez! Abraços!!

Boa tarde a todos! Pessoal, tenho 17 anos e decidi a aprender programação. Estou começando pelo Pascal por ser um pouco mais "simplificado" do que as outras linguagens. Eu estou com uma apostila e um dos exercícios é criar um algoritmo que realizasse um quis de 4 perguntas e que se o usuário errasse a resposta, o algoritmo mostra uma mensagem de que o usuário errou e também qual a resposta correta. O máximo que eu consegui fazer, foi isso: A dúvida é a seguinte: Como eu posso fazer um algoritmo que mostre qual a resposta correta se o usuário errar? E caso o usuário erre, como eu posso fazer um algoritmo que faça o código voltar ao primeiro "bloco de instrução"? Me desculpem pelas perguntas bobas, é que esse é o meu segundo algoritmo. Eu sei que dá pra melhorar muito aí, só que eu ainda não sei muita coisa sobre programação. Abraços!