Ir para conteúdo
Fórum Script Brasil

sTokesX

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre sTokesX

sTokesX's Achievements

0

Reputação

  1. 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 para Português (ValPortugues) e 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. 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.
×
×
  • Criar Novo...