Programacion program hallarNotasReporte;
Enviado por Kate • 5 de Marzo de 2018 • 500 Palabras (2 Páginas) • 268 Visitas
...
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.
...