¡Descarga Ejercicios Resueltos - While y más Guías, Proyectos, Investigaciones en PDF de Programación Informática solo en Docsity!
El bucle while
Un bucle while permite repetir la ejecución de un grupo de instrucciones mientras se
cumpla una condición (es decir, mientras la condición tenga el valor True).
La sintaxis del bucle while es la siguiente:
While <Condición(es)> do
Acción(es)
End While
1) Calcular el promedio de un alumno que tiene 7 calificaciones en la materia de Estructuras lógicas. Algoritmo Promedio Var real: Calif, AcumCalif, prom Integer: cont Begin AcumCalif 0 Cont 0 While Cont < 7 do Write(“Ingrese la nota ”) Read(calif) AcumCalif = AcumCalif + calif Cont Cont + 1 End While Prom _AcumCalif/ Write(“Su promedio es: ” Prom) End
- Calcular el promedio de un alumno que tiene N (no sabemos cuantas) calificaciones en la materia de Estructuras lógicas. Algoritmo Promedio Var real: Calif, AcumCalif, prom_
Estructura WhileEstructura While
cont Calif AcumCalif 0 85 0+85 = 85 1 70 85+70 = 155 2 100 155+100= 3 92 255+92 = 347 4 73 347+73 = 420 5 80 420+80 = 500 6 84 500+84 = 584
Integer: cont Begin AcumCalif 0 Cont 0 Write(“Ingrese la nota, para salir del programa ingrese -99 ”) Read(calif) While Calif != -99 do AcumCalif = AcumCalif + calif Cont Cont + 1 Write(“Ingrese la nota, para salir del programa ingrese -99”) Read(calif) End While Prom AcumCalif/cont Write(“Su promedio es: ” Prom) End Determinar cuántos hombres y cuantas mujeres se encuentran en un grupo de n personas, suponiendo que los datos son extraídos alumno por alumno Algoritmo géneros Var Char: Gen // H hombre, M mujer, S salir Int: ContH, ContM Begin ContH 0 ContM 0
Read Gen While Gen <> “S” or Gen <> “s” do Write(“Ingrese la edad”) Read edad If Gen = “M” or Gen = “m” then ContM ContM + 1 AcumEM AcumEM+edad Else If Gen = “H” or Gen “h” then ContH ContH + 1 AcumEH AcumEH+edad Else Write(“La letra que ingreso es incorrecta, no se tomara en cuenta”) End If End If Write(“Ingrese una letra M si el alumno es mujer, H si es hombre o S para salir”) Read Gen End While PromM AcumEM/ContM PromH AcumEH/ContH PromG (AcumEM+AcumEH)/(ContM+ContH) Write(“La promedio de edad de mujeres es: ” PromM) Write(“La promedio de edad de hombres es: ” PromH) Write(“El promedio de edad del grupo es: ” PromG) End
1. Escriba un programa que pida dos números enteros. El programa pedirá de nuevo
el segundo número mientras no sea mayor que el primero. El programa terminará
escribiendo los dos números.
Entrada num1 num Algoritmo numMay Var Int: n1, n Begin Write(“Ingrese un numero”) Read(n1) Write(“Escriba un número mayor que ” n1) Read(n2) While n2 < n1 do Write( n2 “ No es mayor que: “ n1) Write(“Intente de nuevo”) Read(n2) End While Write (“Los números son: ” n1 “y” n2) End
3. Escriba un programa que pida la cantidad de números positivos que se tienen que
escribir y a continuación pida números hasta que se haya escrito la cantidad de
números positivos indicada.
Algoritmo Numeros_Positivos Var Real: CPos, Num, Cant_Pos Begin CPos 0 Write(“Ingrese la cantidad de positivos a ingresar”) Read Cant_Pos While CPos < Cant_Pos do Write(“Ingrese un numero”) Read num If num > 0 then Write(“Numero positivo” num) CPos CPos+ Else Write(“Su número no es positivo, no será tomado en cuenta”) End If End While
