Ambiente

Algoritmo para calcular el promedio de notas de los estudiantes que pierden y de los que ganan un curso.

Inicio
Dimencionar nNotas 'Numero de notas a analizar por estudiante
Dimencionar contEstGanan 'Contador de los estudiantes que ganan
Dimencionar SumaPromGana 'Sumatoria de los promedios de los estudiantes que ganan
Dimencionar contEstPierde 'Contador de los estudiantes que pierdenDimencionar SumaPromPierde 'Sumatoria de promedios de los estudiantes que pierden

mostrar "Cuantas notas desea ingresar por estudiante?"
lea nNota
IngresarEstudiante()
GenerarResultados(contEstGanan, SumaPromGana, " que ganan")
GenerarResultados(contEstPierde, SumaPromPierde, " que pierden")
GenerarResultados(contEstGanan + contEstPierde, SumaPromGana + SumaPromPierde, " en Total")Fin

IngresarEstudiante()
Dimencionar siEst = 1 'switch, 1 = se quiere ingresar estudiantes
Dimencionar promEst 'Promedio del estudiante

mientras siEst == 1
promEst = CalcPromEst()
si promEst > 3 entonces
contEstGanan = contEstGanan + 1
sumaPromGana = sumaPromGana + promEst
sino
contEstPierden = contEstPierden + 1
sumaPromPierde = sumaPromPierde + promEst
Finsi
mostrar "Lleva " & contEstPierden + contEstGanan & " ¿desea ingresar mas estudiantes?"
lea siEst
fin mientras
Fin IngresarEstudiante

CalcPromEst()
dimencionar cont 'contador de las notas ingresadas del estudiante
dimencionar nota 'nota del estudiante
dimencionar sumaNota 'sumatoria de las notas del estudiante

cont = 0
mientras cont < nNota
mientras nota < 0 y nota >5
mostrar "ingrese la nota " & cont + 1 & " del estudiante"
Leer nota
Fin mientras
sumaNota = sumaNota + nota
cont = cont + 1
fin mientras
Retorne (sumaNota / nNota)
Fin calcPromEst

GenerarResultados(cantEst, sumaProm, estado)
'cantEst: Cantidad de estudiantes
'sumaProm: sumatoria del promedio de los estudiantes
'estado: Determina el estado de los estudiantesmostrar "Hay " & cantEst & estado
si contEstGanan == 0 entonces
mostrar "Por consiguiente, No existe el promedio de los estudiantes " & estado
sino
mostrar "y su promedio es de " & sumaProm / cantEst
Fin si
Fin GenerarResultadosAlgoritmo para calcular el promedio de notas de los estudiantes que pierden y de los que ganan un curso.

Inicio
Dimencionar nNotas 'Numero de notas aanalizar por estudiante
Dimencionar contEstGanan 'Contador de los estudiantes que ganan
Dimencionar SumaPromGana 'Sumatoria de los promedios de los estudiantes que ganan
Dimencionar contEstPierde 'Contador de los estudiantes que pierden
Dimencionar SumaPromPierde 'Sumatoria de promedios de los estudiantes que pierden

mostrar "Cuantas notas desea ingresar por estudiante?"
lea nNotaIngresarEstudiante()
GenerarResultados(contEstGanan, SumaPromGana, " que ganan")
GenerarResultados(contEstPierde, SumaPromPierde, " que pierden")
GenerarResultados(contEstGanan + contEstPierde, SumaPromGana + SumaPromPierde, " en Total")
Fin

IngresarEstudiante()
Dimencionar siEst = 1 'switch, 1 = se quiere ingresar estudiantes
Dimencionar promEst 'Promedio del estudiante

mientras siEst== 1
promEst = CalcPromEst()
si promEst > 3 entonces
contEstGanan = contEstGanan + 1
sumaPromGana = sumaPromGana + promEst
sino
contEstPierden = contEstPierden + 1
sumaPromPierde = sumaPromPierde + promEst
Fin si
mostrar "Lleva " & contEstPierden + contEstGanan & " ¿desea ingresar mas estudiantes?"
lea siEst
fin mientras
Fin IngresarEstudiante

CalcPromEst()dimencionar cont 'contador de las notas ingresadas del estudiante
dimencionar nota 'nota del estudiante
dimencionar sumaNota 'sumatoria de las notas del estudiante

cont = 0
mientras cont < nNota
mientras nota < 0 y nota > 5
mostrar "ingrese la nota " & cont + 1 & " del estudiante"
Leer nota
Fin mientras
sumaNota = sumaNota + nota
cont = cont + 1
fin mientras...