AMBIENTE ASA
decl
nome
cadeia
decl
nota1
integer
decl
nota2
integer
decl
media
integer
decl
resp
cadeia
decl
alunos_total
integer
decl
aprovado
integer
decl
reprovado
integer
-------------------------------------
atrib
alunos_total
0
atrib
aprovado
0
atrib
reprovado
0
atrib
resp
's'
enq
resp <> 'n'
atrib
alunos_total
alunos_total+1
leit
Nome do aluno:
nome
leit
1ª nota:
nota1
leit
2ª nota:
nota2
atrib
media
(nota1+nota2)/2
se
media >=7
atrib
aprovado
aprovado+1
end
senao
atrib
reprovado
reprovado+1
end
leit
Entrar no Programa ?
resp
impr
'Aluno: '
0
impr
nome
1
impr
'Média: '
0
impr
media
1
end
impr
'Total de alunos: '
0
impr
alunos_total
1
impr
'Aprovados: '
0
impr
aprovado
1
impr
'Reprovados: '
0
impr
reprovado
1
end
(
geocities.com/br)