Ejercicios estructuras Cicilicas en PSEINT

Ejercicios con estructuras cíclicas:

1. Escribir un programa que calcule la suma de los cuadrados de los 100 primeros números enteros

Algoritmo Suma_Enteros

        Definir i,j,a,b,c como entero;

        Escribir "Dame la cantidad de N a calcular";

        leer b;

        a=0;

        j=1;

        Para i=1 Hasta b Con Paso 1 Hacer

                Escribir "Dame ",j, " Numero entero";

                leer c;

                a=a+(c^2);

                j=j+1;

        Fin Para

        Escribir "El total de la suma de cuadrados de dichos numeros es: ", a;

FinAlgoritmo

[pic 1]

1. Pedir una contraseña (3 intentos máximo) usando REPETIR hasta que la clave sea 352, 259 ó 569

Algoritmo Contraseña

        Definir Pass,Nom como caracter;

        Definir a,b como entero;

        a=0;

        b=1;

        Escribir "Escribe Tu Nombre";

        Leer Nom;

        Escribir "Por favor ",Nom," ingrese su <> ";

        Repetir

                Leer Pass;

                Si Pass= "352" o Pass= "259" o Pass="569" Entonces

                        Escribir "Que tal ",Nom," Bienvenido de nuevo";

                        Escribir "___________________________________";

                SiNo

                        Escribir "Checa tu Password ",b," intento incorrecto";

                        a=a+1;

                        b=b+1;

                Fin Si

        Hasta Que a=3;

FinAlgoritmo

[pic 2]

1. Usando la sentencia MIENTRAS contar los números positivos que el usuario introduzca por teclado. El bucle se continuará ejecutando mientras no se introduzca cero o un número negativo.

Algoritmo Pos_Neg

        Definir a,num como entero;

        a=0;

        Escribir "Que tal vamos a calcular la cantidad de números positivos que ingreses";

        Escribir "Escribe un Número";

        Leer num;

        Mientras num>=1 Hacer

                Escribir "Dame otro Número";

                Leer num;

                a=a+1;

        Fin Mientras

        Escribir "La cantidad de numeros positivos que ingreso son: ",a;         

FinAlgoritmo

[pic 3]

1. Usando MIENTRAS, escribe un algoritmo que adivine un número del  1-10  generado  por el ordenador, solo tiene 5 intentos.

Algoritmo Adivina_Adivinador

        Definir a,b,num Como Entero;

        a=1;

        num=Aleatorio(1,10);

        Mientras a<=5 Hacer

                Escribir "Adivine el numero entre 1 y 10";

                Leer b;

                Si b=num Entonces

                        Escribir "Acaso eres <>";

                        a=5;

                SiNo

                        Escribir "Intenta otra vez";

                        a=a+1;

                Fin Si

        Fin Mientras

        Escribir "La cantidad de intentos <> perdiste";

...