Ejercicios con Bucles
Clase 06
Material Clase
Ejercicios
- Se trabajan los mismos ejercicios de la clase 04, pero enfocado sólo en utilizar el bucle
while
. - Los bucles
while
necesitan un contador. Generalmente de declara comoi
. - El contador
i
se inicializa eni=0
oi=1
dependiendo de la conveniencia para la solución del problema. - El contador
i
se debe actualizar manualmente mediante la instruccióni = i +1
al final delwhile
.
Ejercicio 01
Ingresar por teclado NUMERO cantidad de números, sumarlos y mostrar el resultado por pantalla.
ej01.psc
Proceso Ejercicio01;
Definir num Como Entero;
Definir sum Como Entero;
Definir i Como Entero= 0;
sum = 1;
i
"Ingresar la cantidad de números: ";
Escribir Sin Saltar ;
Leer num<= num Hacer
Mientras i = sum + i;
sum = i + 1;
i
FinMientras"La suma de 1 a ", num, " es: ", sum;
Escribir FinProceso
Ejercicio 02
Mostrar en pantalla los números desde 0 hasta NUMERO.
ej02.psc
Proceso Ejercicio02;
Definir num Como Entero;
Definir i Como Entero= 0;
i
"Ingresar el número a iterar: ";
Escribir Sin Saltar ;
Leer num<= num Hacer
Mientras i ;
Escribir i= i + 1;
i
FinMientras FinProceso
Ejercicio 03
Mostrar la tabla de multiplicar de NUMERO hasta el 10.
ej03.psc
Proceso Ejercicio03;
Definir num Como Entero;
Definir i Como Entero;
Definir tabla Como Entero"Ingrese el valor de la tabla: ";
Escribir Sin Saltar ;
Leer num= 1;
i
<= 10 Hacer
Mientras i = i * num;
tabla , " * " , num, " = ", tabla;
Escribir i= i + 1;
i
FinMientras FinProceso
Ejercicio 04
Mostrar el factorial de NUMERO.
ej04.psc
Proceso Ejercicio04;
Definir num Como Entero;
Definir i Como Entero;
Definir factorial Como Entero"Ingrese el valor del número: ";
Escribir Sin Saltar ;
Leer num= 1;
i = 1;
factorial
<= num Hacer
Mientras i = factorial * i;
factorial = i + 1;
i
FinMientras"El factorial de ", num, " es: ", factorial;
Escribir FinProceso
Ejercicio 05
Mostrar los números pares que hay entre 0 y NUMERO.
ej05.psc
Proceso Ejercicio05;
Definir num Como Entero;
Definir i Como Entero"Ingrese un número: ";
Escribir Sin Saltar ;
Leer num= 1;
i
"Los números pares entre 0 y ", num, " son:";
Escribir < num Hacer
Mientras i 2 = 0 Entonces
Si i mod ;
Escribir i
FinSi= i + 1;
i
FinMientras FinProceso