Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- Notafim, Faltas, nota1, nota2, nota3: Real
- Idade, notatrab, Media, Peso1, Peso2: Real
- Result, Reprovado: Caractere
- inicio
- // Seção de Comandos
- Escreva ("Digite o número de faltas: ")
- Leia (Faltas)
- Escreva ("Digite a nota da primeiroa prova: ")
- Leia (nota1)
- Escreva ("Digite a nota da segunda prova: ")
- Leia (nota2)
- Escreva ("Digite a nota da terceira prova: ")
- Leia (nota3)
- Escreva ("Digite a nota do trabalho final: ")
- Leia (notatrab)
- Limpatela
- Se (nota1>nota2) e (nota2>nota3) entao
- Media <- (nota1+nota2) / 2
- Senao
- Se(nota1>nota2) e (nota2<nota3) entao
- Media <- (nota1+nota3) / 2
- Senao
- Media <- (nota2+nota3) / 2
- Fimse
- Fimse
- Se Faltas < 5 entao
- Peso1 <- 3
- Senao
- Se (Faltas > 5) e (Faltas < 10) entao
- Peso1 <- 2
- Senao
- Peso1 <- 1
- Fimse
- Fimse
- Se Idade <= 17 entao
- Peso2 <- 1
- Senao
- Se Idade >= 18 <= 50 entao
- Peso2 <- 2
- Senao
- Peso2 <- 3
- Fimse
- Fimse
- Notafim <- Media * Peso1 + notatrab * Peso2
- Se Notafim <= 50 entao
- Result <- Reprovado
- Senao
- Se (Nofim > 50) e (Notafim < 70) entao
- Result <- Regular
- Senao
- Se (Nofim > 70) e (Notafim < 80) entao
- Result <- Bom
- Senao
- Se (Nofim > 80) e (Notafim < 90) entao
- Result <- Muito Bom
- Senao
- Result <- Excelente
- Fimse
- Fimse
- Fimse
- Fimse
- Escreval
- Escreval ("Este foi o resultado do aluno",Result)
- Escreval
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement