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
aprovados := aprovados + 1;
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: