Instrucciones:
Se nos a pedido escribir un programa que resuma los resultados recibidos de una lista de 10 estudiantes junto a cada nombre se anoto un número, 1 si el estudiante aprobó el examen, 2 si reprobó. Escriba un resumen de los resultados de la prueba indicando el número de estudiantes que aprobaron y l número de estudiantes que reprobaron, si el número de estudiantes que aprobaron es mayor a 8 la Universidad sera capaz de aumentar la colegiatura.
Code
Proceso Universidad_Ejercicio_CrisoftPc
//Desarrollado por Cristian Alejandro
//Fut. Ingeniero en Sistemas
//Carnet: 5190-10-9778
//Sede Villa Nueva
dimension nombresP(10)
dimension nombresG(10)
posicionAcG <- 1
posicionAcP <- 1
TotalG<-0
nota <-0
x<-1
escribir 'ingrese un 1 si aprobo, 2 si reprobo'
mientras x <= 10 Hacer
escribir 'ingrese el nombre del alumno'
leer nombre
escribir 'resultado (1 aprobado, 2 reprobado)'
leer nota
si (nota > 0) y (nota < 3) entonces
si nota = 1 Entonces
nombresG(posicionAcG)<- nombre
posicionAcG<-posicionAcG+1
TotalG<- TotalG +1
Sino
nombresP(posicionAcP)<- nombre
posicionAcP<-posicionAcP+1
FinSi
x<-x+1
Sino
escribir 'ingrese un valor valido, intente de nuevo'
FinSi
FinMientras
// muestra si se puede aumentar la colegiatura
escribir '------------------------------------- '
escribir '------------------------------------- '
si TotalG > 8 Entonces
escribir "Aumente la colegiatura del alumno"
Sino
escribir "No puede aumentar la Colegiatura"
escribir " haga ganar a : ", 9 - TotalG
escribir "para llegar a la meta"
FinSi
escribir '------------------------------------- '
escribir '------------------------------------- '
// muestra los resultados
si (TotalG >0) entonces
escribir '------------------------------------- '
escribir ' personas que ganaron:'
escribir '------------------------------------- '
para x <- 1 hasta TotalG Hacer
escribir nombresG(x)
FinPara
FinSi
TotalP<- 10 - TotalG
escribir '------------------------------------- '
escribir ' Personas que perdieron'
escribir '------------------------------------- '
si TotalP >0 entonces
Para x <- 1 Hasta TotalP Hacer
escribir nombresP(x)
FinPara
FinSi
FinProceso
