Supongamos que se solicita un programa que dado como dato la calificación de un alumno en un examen, escriba «aprobado» cuando la calificación sea mayor que 8 para un número indeterminado de alumnos. Para indicar el final de la captura se dará una calificación negativa.
Dato: Cal es la variable de tipo real que representa la calificación del alumno).
El pseudocódigo correspondiente.
EXAMEN_SELECTIVA_CONDICION_ANIDADA
{El programa dado como dato la calificación de un alumno en un examen, escribe aprobado si la calificación es superior a 8 y excelente si es superior a 9.5}
{Cal es una variable de tipo real}
- Leer Cal
- Hacer Mientras Cal >=0
- Si Cal > 8 entonces
Escribir «Aprobado»
- Fin Si
- Fin Ciclo
‘ El código corresponde a un botón llamado btnClasifica.
Dim Cal As Double
Cal = cDbl(txtDato.Text) Do While Cal >=0
Cal = cDbl(InputBox(«Dame Calificación»))
Loop