Algoritmo Se - Senão.

Pstefani · 14 de abril de 2012

Boa tarde Pessoal!!

Sensacional este fórum, sempre que possível dou uma passada aqui para tirar alguma dúvida. Estou iniciando em Logica e gostaria que alguém desse uma olhada no meu Algoritmo, queria saber se estou indo no caminho certo.

Desde á um abraço e fiquem com Deus.

FUA para ler quatro valores referentes a quatro notas escolares de um aluno e imprimir

uma mensagem dizendo que o aluno foi aprovado, se o valor da média escolar for maior

ou igual a 7. Se o valor da média for menor que 7, solicitar a nota de exame, somar com

o valor da média e obter nova média. Se a nova média for maior ou igual a 5, apresentar

uma mensagem dizendo que o aluno foi aprovado. Se o aluno não foi aprovado, indicar

uma mensagem informando esta condição. Apresentar com as mensagens o valor da

média do aluno, para qualquer condição.


Algoritmo_aprovado;
Var
     nota_1,nota_2,nota_3,nota_4, media_a, media_b , nota_exa: Real;
Inicio
          escrever('informe as 4 notas do aluno: ');
          ler (nota_1,nota_2,nota_3,nota_4);
media_a recebe (nota_1 + nota_2+nota_3+nota_4)/4
          escrever (' A média do aluno é: `, media_a);0
se      (media_a   >= 7) então
          escrever('O aluno está aprovado')
senao
    Inicio
          escrever('O aluno foi reprovado');
          escrever(' Informe nota do exame: `)
          ler (nota_exa);
          nota_b recebe (exame + media) / 2
Se      (nota_b >= 5)
          escrever (' O aluno foi aprovado com média: `, nota_
Senao
          escrever (' O aluno foi reprovado com média: `, nota_
Fim_se;
Fim.

Se puderem dar uma ajuda queria ter segurança para fazer os próximos.

Um abraço

chilero · 17 de abril de 2012

Pstefani, estou meu sem tempo, mas vou passar um algoritmo pronto, parecido com o que você quer, ai é só estudar. Quando eu terminar as minhas atividades do curso e se ninguém tiver tirado suas duvidas eu te ajudo.

algoritmo "Aluno"
// Autor : Leonardo S. Santos
// Data : 16/04/2012
// Seção de Declarações 
var
na,disc,nc:caractere
n1,n2,n3,m:real
f:inteiro
inicio
//Imput de dados
escreva ("Nome do aluno: ")
leia (na)
escreva ("Nome da disciplina: ")
leia (disc)
escreva ("Curso: ")
leia (nc)
escreva ("Nota da N1: ")
leia (n1)
escreva ("Nota da N2: ")
leia (n2)
escreva ("Nota da N3: ")
leia (n3)
escreva ("Quantidade de faltas: ")
leia (f)
//Processamento
m <- (n1+n2+n3)/3
//Condições
se (m<6) ou (f>20) então
         escreval ("Nome: ",na," Disciplina: ",disc," Quantidade de faltas: ",f," Reprovado")
senao
         escreval ("Nome: ",na," Disciplina: ",disc," Quantidade de faltas: ",f," Aprovado")
fimse
fimalgoritmo