Entrada: arquivo contendo notas dos alunos
9837184 95
9700000 83
98371 84 94
9937184 67
9837184 102
9837I84 z
algoritmo aprovados-aeds1; inteiro: número, nota, aprovados; início aprovados := 0; enquanto existem dados faça leia (número, nota); se nota >= 60 então fim se; fim enquanto; imprima (aprovados); fim.
{ Determina numero de aprovados }
program aprovados_aeds1;
var numero, nota, aprovados: integer;
begin
aprovados := 0;
while not eof begin
readln(numero, nota);
if nota >= 60 then
aprovados := aprovados + 1;
end;
writeln(`AEDS1 - 2o. semestre 1998');
write(`numero de alunos `);
writeln(`aprovados = `, aprovados);
end.
Erros:
Localizar erros de execução e lógica:
Teste somente demonstra a presença de erros, nunca sua ausência!!!
Número de possibilidades para dados de entrada é muito grande:
Dentro do programa: