//Moreno Flores Lenny Gael
//2BMPG
//Lecion 5 EJEMP1
Proceso RepeticionesMientras
//Las estructuras de control repetitivas son aquellas que permiten que un grupo de
//instrucciones se puedan ejecutar varias veces sin necesidad de escribirlas una y
//otra vez.
//repticiones usando Mientras
//******************************************************************************
//Declarar variable contador como Entero
Definir contador Como Entero;
//Inicializar la variable contador
contador <- 1;
Mientras contador <= 6 Hacer
//Mostrar en pantalla el mensaje "Los ciclos o repeticiones
Escribir contador,"-Los ciclos o repeticiones";
//Actualizar el valor de la variable contador
contador <- contador + 1;
Fin Mientras
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act1
Proceso RepeticionesMientras1
//Pedir el nombre de una persona y mostrarlo en pantalla 20 veces.
//Declarar el nombre de la persona como Entero
Definir nombre Como Entero;
//Declarar nombre nombre2 como Caracter
Definir nombre2 Como Caracter;
Escribir "Teclee el nombre";
Leer nombre2;
Escribir "";
//Inicializar la variable nombre
nombre <- 1;
Mientras nombre < 21
//Mostrar en pantalla 20 veces el nombre de la
persona
Escribir nombre,"-Ted";
//Actualizar el valor de la variable nombre
nombre <- nombre + 1;
FinMientras
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act1 Repetir
Proceso Repetir1
//Pedir el nombre de una persona y mostrarlo en pantalla 20 veces.
//***************************************************************
//Declarar variables
//Declarar contador como Entero
Definir nombre2 Como Entero;
//Declarar nombre como Caracter
Definir nombre Como Caracter;
//Pedir el nombre
Escribir "Teclee el nombre: ";
//Guardar el nombre
Leer nombre;
//Asignar nombre2 como contador con valor de 1
nombre2 <- 1;
//Repetir los nombres hasta 20 veces
Repetir
Escribir nombre2,"-",nombre;
nombre2 <- nombre2 + 1;
Hasta Que nombre2 = 21
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act1 Para
Proceso Para1
//Pedir el nombre de una persona y mostrarlo en pantalla 20 veces.
//***************************************************************
//Declarar variables
//Declarar nombre2 como Entero
Definir nombre2 Como Entero;
//Declara nombre como Caracter
Definir nombre Como Caracter;
//Pedir el nombre
Escribir "Escribe tu nombre: ";
//Guardar dato del nombre
Leer nombre;
//Para pedir el nombre hasta 20 veces
Para nombre2 <- 1 Hasta 20
Escribir nombre2, "-", nombre;
FinPara
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act 2 Repetir
Proceso RepeticionesMientras2
//Mostrar en pantalla la suma de "x" cantidad de números pedidos a través del
//teclado. Se deberá preguntar al principio cuánto será "x".
//***************************************************************************
//declarar variable contador como Entero
Definir contador Como Entero;
//Declarar variable valor y x Como Entero
Definir x,valor Como Entero;
//Pedir un numero para x
Escribir "Escribe un numero: ";
//Guardar dato de x
Leer x;
//Igualar el valor mas la suma de 2 x
valor <-x+x;
//Comprobar la suma de x y valor
Para contador <- 1 Hasta 1 Hacer
Escribir "El resultado es: ", valor;
FinPara
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act2 Mientras
Proceso Mientras2
//Mostrar en pantalla la suma de "x" cantidad de números pedidos a través del
//teclado. Se deberá preguntar al principio cuánto será "x".
//***************************************************************************
//Declarar variables
//Declarar variable contador como Entero
Definir contador Como Entero;
//Declarar x y valor para la suma y resultado como Entero
Definir x, valor Como Entero;
//Pedir el valor para la suma
Escribir "Escribe un numero: ";
//Guardar valor para la suma
Leer x;
//Asignar la suma y proporcionar para el valor
valor <- x + x;
contador <- 1;
//Mientras que la suma procese
//Pedir el resultado del valor
Mientras contador < 2 Hacer
Escribir "El resultado es: ", valor;
contador <- contador+1;
FinMientras
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act2 Para
Proceso Para2
//Mostrar en pantalla la suma de "x" cantidad de números pedidos a través del
//teclado. Se deberá preguntar al principio cuánto será "x".
//***************************************************************************
//Declarar variables
//Declarar contador como Entero
Definir contador Como Entero;
//Declarar x y valor para la suma y resultado como Entero
Definir x, valor Como Entero;
//Pedir el numero
Escribir "Escribe un numero: ";
//Guardar dato del numero
Leer x;
//Asignar la suma para el valor
valor <- x + x;
//Para el valor escribir el resultado
Para contador <- 1 Hasta 1
Escribir "El resultado es: ", valor;
FinPara
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act3
Proceso RepetcionesMientras3
//Mostrar en pantalla la suma de los números de 1000 a 1050.
//**********************************************************
//Declarar varibale suma y suma1 para la operacion
Definir suma,suma1 Como Entero;
//Declarar resultado y resulado1 como Entero
Definir resultado, resultado1 Como Entero;
//Imprimir la suma de los numeros de 1000 a 1050
Imprimir "Muestra en pantalla la suma de los numeros de 1000 a 1050";
//Asignar los valores de suma
suma <- 1000;
suma1 <- 1001;
//Inicializar la operacion hasta llegar de 1000
a 1050
Mientras suma1 < 1050 Hacer
resultado <- suma + suma1;
Escribir suma," + ",suma1," es igual
a ",resultado;
suma1 <- suma1 + 1;
resultado1 <- suma1 + resultado;
Escribir suma1," + ",resultado," es igual a " resultado1;
suma <-
resultado1;
FinMientras
FinProceso
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act3 Para
Algoritmo Para3
//Mostrar en pantalla la suma de los números de 1000 a 1050.
//**************************************************************
//declarar variables
//declarar variables
Definir suma,suma1 Como Entero;
//Declarar resultado y resulado1 como Entero
Definir resultado, resultado1 Como Entero;
//Imprimir la suma de los numeros de 1000 a 1050
Imprimir "Muestra en pantalla la suma de los numeros de 1000 a 1050";
//Asignar los valores de suma
suma <- 1000;
suma1 <- 1001;
//Utilizar comando PARA
Para suma1 <- 1001 Hasta 1050 Con Paso 1 Hacer
resultado <- suma + suma1;
Escribir suma," + ",suma1," es igual a ",resultado;
suma1 <- suma1 + 1;
resultado1 <- suma1 + resultado;
Escribir suma1," + ",resultado," es igual a " resultado1;
suma <- resultado1;
FinPara
FinAlgoritmo
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act4
Algoritmo RepeticionesMientras4
//Pedir un número entero positivo y calcular su factorial
//*********************************************************.
//Declarar variables como reales
Definir num,factorial,x Como Real;
//Pedir un numero entero positivo
Escribir "Seleccione un numero
positivo";
//Guardar dato del numero
positivo
Leer num;
//Ahora comprobar su factorial
si num < 0 Entonces
Escribir "";
SiNo
x <- 1;
factorial <- 1;
Repetir
factorial <- factorial * x;
x <- x +1;
Hasta Que x > num
//Mostrar en pantalla el numero y su factorial
Escribir "El factorial del numero ",num," es: ",factorial;
FinSi
FinAlgoritmo
//Moreno Flores Lenny Gael
//2BMPG
//Leccion 5 Act5
Algoritmo RepeticionesMientras5
//Algoritmo que calcule y muestre en pantalla una tabla de multiplicar, pidiendo al
//principio el número de la tabla.
//********************************************************************
//Declarar variable tabla y incog como Entero
Definir tabla Como Entero;
Definir incog Como Entero;
//Pedir que ingrese un numero para multiplicar
Escribir "Ingrese la tabla: ";
//Guardar dato del numero
Leer tabla;
Para incog <- 10 Hasta 1 Hacer
//Imprimir el resultado
Escribir tabla," x ", incog, " = ", incog * tabla;
FinPara
FinAlgoritmo
