Se quiser, baixe esse app ¬ Visualg, copie o código, cole, teste, altere, treine, seja feliz! Sorria! Mesmo, se o mudo fizer careta (RS!).
Exercícios
algoritmo "Corrige Provas"
var
gab: vetor[1..5] de Caractere
prova: vetor[1..5] de Caractere
nome: vetor[1..3] de Caractere
nota: vetor[1..3] de Real
a: Inteiro
s, m: Real
prova: vetor[1..5] de Caractere
nome: vetor[1..3] de Caractere
nota: vetor[1..3] de Real
a: Inteiro
s, m: Real
Procedimento CadastroGabarito()
var
c: Inteiroinicio
EscrevaL("PASSO 1 - Cadastro de Gabarito ")
EscrevaL("-------------------------------")
Para c <- 1 ate 5 faca
EscrevaL("-------------------------------")
Para c <- 1 ate 5 faca
Escreva("Questao ", c, ": ")
Leia(gab[c])
FimPara
Leia(gab[c])
FimProcedimento
Funcao CadastraProva(): Real
var
c: Inteiro
notaFinal: Real
notaFinal: Real
inicio
notaFinal <- 0
EscrevaL("RESPOSTAS DADAS")
Para c <- 1 ate 5 faca
Retorne notaFinal
EscrevaL("RESPOSTAS DADAS")
Para c <- 1 ate 5 faca
Escreva("Questao ", c, ": ")
Leia(prova[c])
Se (Maiusc(prova[c]) = Maiusc(gab[c])) entao
FimPara
Leia(prova[c])
Se (Maiusc(prova[c]) = Maiusc(gab[c])) entao
notaFinal <- notaFinal + 2
FimSe
Retorne notaFinal
FimFuncao
inicio
CadastroGabarito()
Para a <- 1 ate 3 faca
LimpaTela
EscrevaL("NOTAS FINAIS ")
EscrevaL("-----------------------------")
Para a <- 1 ate 3 faca
m <- s / 3
EscrevaL("-----------------------------")
EscrevaL("Media da Turma: ", M:4:1)
Para a <- 1 ate 3 faca
LimpaTela
EscrevaL("------------------------")
EscrevaL("ALUNO ", a)
EscrevaL("------------------------")
Escreva("Nome: ")
Leia(nome[a])
nota[a] <- CadastraProva()
s <- s + nota[a]
FimPara
EscrevaL("------------------------")
EscrevaL("ALUNO ", a)
EscrevaL("------------------------")
Escreva("Nome: ")
Leia(nome[a])
nota[a] <- CadastraProva()
s <- s + nota[a]
LimpaTela
EscrevaL("NOTAS FINAIS ")
EscrevaL("-----------------------------")
Para a <- 1 ate 3 faca
EscrevaL(nome[a]:10, nota[a]:4:1)
FimPara
m <- s / 3
EscrevaL("-----------------------------")
EscrevaL("Media da Turma: ", M:4:1)