AJUDA!! Pascal. algoritmo e fluxograma

pmpneves

Power Member
Alguem me pode ajudar neste exercicio?

Construa um algoritmo e respectivo fluxograma que lê o nome e as 4 notas bimestrais de
um aluno. Em seguida o Algoritmo calcula e escreve a média obtida pelo aluno escrevendo​
também se o aluno foi aprovado ou reprovado.
 
Código:
Inicio
  Escrever('Quais as notas?')
  Ler(Nota1,Nota2,Nota3,Nota4)
  Media -> (Nota1+Nota2+Nota3+Nota4)/4
  Se Media => 10
    Escrever('Aprovado')
  Senão
    Escrever('Reprovado')
Fim

Não seria algo deste género?
 
Sinceramente, numa fase bastante acessível da programação, não entendo o quanto pode ser complicado isto. Mas aqui vai uma dica :007:
Calculo que ainda não tenhas dado ciclos nem arrays... Por isso vou tentar tornar isto bastante simples :\

...
var nota1,nota2,nota3,nota4,média : Real;


Begin
Writeln ('Digite a 1ª nota do aluno');
Readln (nota1);

Writeln ('Digite a 2ª nota do aluno');
Readln (nota 2);

{até à 4ª nota.
depois é calcular a média...}

Media:=((nota1+nota2+nota3+nota4)/4); {nota que usaste o "/" por ser um real. Caso seja integer usa o "div" se não estou em erro)

if media >=9.5 then
writeln('Aprovado')
else
Writeln('Reprovado')
É claro que podes melhorar bastante o teu programa, protegendo-o... mas isso fica para mais tarde :007::007:

Cumps
 
Back
Topo