Anderson Rochaa

algoritmo "semnome" var nota1,nota2,media: real inicio // Seção de Comandos escreva ("Informe a nota do 1° Aluno : ") leia (nota1) escreva ("Informe a nota do 2° Aluno : ") leia (nota2) // Processo media <- (nota1 + nota2)/2 se media <= 4 então escreval ("Reprovado !") escreval ("Com média : ",media) senao se (media >= 4.1) e (media <= 6.9) então escreval ("Exame !") escreval ("Com média : ",media) senao escreval ("Aprovado !") escreval ("Com média : ",media) fimse fimse fimalgoritmo O segundo vai ficar assim! Qualquer dúvida poste ai que te dou uma força! Abçs!

O primeiro vai ficar assim: algoritmo "semnome" // Função : // Autor : // Data : 10/3/2011 // Seção de Declarações var n1,n2,rst:real op:caractere inicio // Seção de Comandos repita escreva ("Informe o 1° Numero : ") leia (n1) escreva ("Informe o 2° Numero : ") leia (n2) escreva ("Informe a Operação +,-,*,/ : ") leia (op) // Processamento escolha op caso "+" rst <- (n1 + n2) escreval ("O Resultado da Operação = ",rst) caso "-" rst <- (n1 - n2) escreval ("O Resultado da Operação = ",rst) caso "*" rst <- (n1 * n2) escreval ("O Resultado da Operação = ",rst) caso "/" se n2 = 0 então escreval ("Não é Divisivel por '0' !") senao rst <- (n1 / n2) escreval ("O Resultado da Operação = ",rst) fimse outrocaso escreval ("Não efetuamos este tipo de operação ! ") fimescolha escreva ("Deseja Continuar as Operações s/n ? ") leia (op) se (op <> "s") então interrompa fimse fimrepita fimalgoritmo O segundo vou corrigir dps posto pra vc!