Logo Hardware.com.br
luiz_fcn
luiz_fcn Membro Senior Registrado
425 Mensagens 3 Curtidas

Algoritmo super dificil pra mim...alguem pode ajudar?

#1 Por luiz_fcn 16/03/2011 - 17:07
Tem que ser em PORTUGUES ESTRUTURADO (visualg):

.A avaliação de uma dada disciplina é obtida pela média aritmética de 2 (duas) notas, obtidas como a nota de uma prova teórica (peso 80%) e de um trabalho prático (peso 20%).

Para a disciplina é fornecido:
· Número total de alunos da turma;
· Número total de aulas ministradas;

Para cada aluno é fornecido:
· Número da matrícula;
· Nota da primeira e segunda prova teórica (0 – 10);
· Notas do primeiro e segundo trabalho prático (0 –10);
· Número de faltas.


Um aluno será considerado aprovado se obtiver média maior ou igual a 7 (sete) e faltas inferior a 25% das aulas ministradas.

Faça um algoritmo que calcule e a apresente:
- A nota final de cada aluno e se o mesmo foi aprovado ou reprovado.
- A maior e menor nota da disciplina;
- A nota média da turma;
- O número de alunos aprovados e reprovados.
luiz_fcn
luiz_fcn Membro Senior Registrado
425 Mensagens 3 Curtidas
#3 Por luiz_fcn
18/03/2011 - 15:27
// Declarações
var
alunos, aulas, nota1, nota2, faltas, cont, aux1, aux2: inteiro
menor, maior, media, mediaturma: real
matricula : caracter
inicio
media <- 0
mediaturma <- 0
cont <- 1
aux1 <- 0
aux2 <- 0
escreva("Numero de alunos: ")
leia(alunos)
escreva("Quantidade aulas: ")
leia(aulas)
enquanto (cont <= alunos) faca
escreva("Entre com sua matricula: ")
leia(matricula)
escreva("Entre com a primeira nota: ")
leia(nota1)
escreva("Entre com a segunda nota: ")
leia(nota2)
escreva("Numero de faltas: ")
leia(faltas)
media <- (nota1 + nota2)/ 2
mediaturma <- mediaturma + media
se (nota1 >= nota2) entao
maior <- nota1
menor <- nota2
senao
maior <- nota2
menor <- nota1
fimse
escreval("Maior nota: ",maior)
escreval("Menor nota: ",menor)
se ((media >= 70) e (faltas / aulas <= 0.25)) entao
escreval("Aprovado")
aux1 <- aux1 + 1
senao
escreval("Reprovado")
aux2 <- aux2 + 1
fimse
cont <- cont + 1
fimenquanto
mediaturma <- mediaturma / alunos
escreval("Media da turma: ",mediaturma)
escreval("Alunos aprovados: ",aux1)
escreval("Alunos reprovados: ",aux2)
fimalgoritmo


tá dando o aluno sempre como reprovado, onde está o erro?
Sonho meu...só falta a grana big_green.png
Core 2 Duo E7200
GigaByte G31M-ES2C
2GB DDR2-800 Kingston
9600gt 512mb - DDR3
HD: 500GB 7200rpm 32mb buffers - SATA2
OCZ400SXS
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal