Programacion program hallarNotasReporte;

...

sumaNota:=sumaNota+nota*cred;

sumaCred:=sumaCred + cred;

if nota>=10.5 then credAprob:=credAprob+cred

else credDesap:=credDesap+cred;

end;

readln(archIn);

porcAprob:=(credAprob*100)/sumaCred;

prom:= sumaNota/sumaCred;

promCiclos:=promCiclos + prom;

credCiclos:=credCiclos + sumaCred;

credAprobCiclos:=credAprobCiclos + credAprob;

credDesapCiclos:=credDesapCiclos + credDesap;

writeln(archOut,’Semestre ’,anio1,’-’,ciclo1,prom:20:2,sumaCred:18:2,

credAprob:16:2,credDesap:14:2,porcAprob:12:2,’%’);

if ciclo1=1 then begin

anio1:=anio1;

ciclo1:=ciclo1 + 1;

end

else begin

anio1:=anio1+1;

ciclo1:=ciclo1-1;

end;

end;

promTotal:=promCiclos/cantSem;

porcAprobTotal:=porcAprob/cantSem;

for i:=1 to 80 do write(archOut,’-’);

writeln(archOut,’General’,promTotal,credCiclos,credAprobCiclos,credDesapCiclos,

porcAprobTotal,’%’);

end;

end.