Ajuda para resolver meu algaritmo. Pf.

[Lucianø]

Oi? Tudo na paz? Hoje estou aqui para pedir um favor pra vocês!

Estou fazendo um curso técnico em informática 1° periodo, e a parte mais complicada está sendo algaritimo para mim!

Estou precisando resolver um algaritimo que é pra ser entregue no 24/06! Irei começar com o enunciado.

O professor pediu pra eu fazer um algaritimo para ler duas notas de um aluno, calcular a media final, acumulo dessas notas, quantidade de alunos aprovados e reprovados, total de alunos aprovado e reprovados, média total dos alunos aprovados e reprovados e o percentual de alunos aprovados e reprovados e também voltar a calcular a media de outro aluno tendo 1 para sim e 2 para não!

comecei desse jeito!

variaves:

nota1, nota2, md (media), acum (acumulo), quant, mdap (media aprovados) e mdrp.

inicio

Nome caracter

real nota1, nota2, md, acum

inteiro quant, mdap, mdrp,opcao

opcao <- 1

enquanto opcao=1 faz

escrever " digite a 1° nota "

ler nota1

escrever " digite a 2° nota "

ler nota2

md<- (nota1+nota2)/2

se md>= 7 então

cont<-cont+1

acum<-acum+md

escrever "Aluno aprovado"

senão

acum<-acum+md

cont<-cont+1

escrever "Aluno reprovado"

fimse

escrever "calcular a média de outro aluno?"

escrever "digite 1 para sim"

escrever "digite 2 para não"

ler opção

fimenquanto

escrever "total de alunos aprovados é" , cont

escrever " a média de alunos aprovados"

mdap<-acum/md

escrever mdap

escrever " média alunos reprovados"

mdrp<-acum/cont

fim

Tipo, agora quero jogar a porcentagem de alunos aprovados e reprovados, não estou conseguindo fazer isso! se puder me ajude! E ve se esta faltando algo! porque não consegui executar no portugol! Desde já agradeço