Aprende C con ParaNoix - Ejercicios en PSEUDO-CODIGO 2

11.- Crear un programa que sume un número que introduzcamos por teclado a si mismo tantas veces como se lo indiquemos:

 

PROGRAMA SUMAS SUCESIVAS

 

ENTORNO

 

ENTERO: N, S, I, RESUL;                       /* N à numero   S à Numero de veces que sumamos */

 

ALGORITMO

 

LEER (“Introduzca Numero para sumar: “, N);

LEER (“Introduzca Veces que sumaremos: “, S);

 

RESUL=0;                                 /* Para que no intervenga 1ª vez en la suma  */

 

PARA (I=S) HASTA (I=1) HACER            /* El numero de veces que deseamos que se sume */

            RESUL=RESUL+N;

FIN_PARA

 

ESCRIBIR (“El resultado de la suma es: “, RESUL);

 

FIN ALGORITMO

 

 

 

12.- Sacar por pantalla la tabla de multiplicar de los 5 primeros números:

 

PROGRAMA TABLA5NUM

 

ENTORNO

 

ENTERO: N, M;                          /* Los utilizamos de índices y como números de tablas  */

 

ALGORITMO

 

PARA (N=1) HASTA (N=5) HACER

           

            PARA (M=1) HASTA (M=10) HACER

                        ESCRIBIR (N,” x “, M,” = “, N*M);

            FIN_PARA

 

FIN_PARA

 

FIN ALGORITMO

 

 

 

13.- Calcula el doble de un número introducido por teclado mientras el número no sea cero:

 

PROGRAMA DOBLENUM

 

ENTORNO

 

ENTERO: N, DOBLE;

 

ALGORITMO

 

LEER (“Introduce un numero para calcular doble: “, N);

 

MIENTRAS (N <> O) HACER

            ESCRIBIR (“El doble de “, N, “ es: “, N*N);

            LEER (“Introduzca otro numero para calcular o pulse cero para salir”, N);

FIN_MIENTRAS

 

FIN ALGORITMO

 

 

 

14.- Calcula la suma de los cuadrados de los números pares comprendidos entre 1 y 100:

 

PROGRAMA CALCUADRAD

 

ENTORNO

 

ENTERO: S, I, N;                                   /* S= suma, N= números, I= índice */

 

ALGORITMO

 

ESCRIBIR (“Se procede a la suma de los cuadrados de los números pares entre 1-100”);

 

S=0;

I=2;

 

MIENTRAS I<=100 HACER

S= S+(I*I);

            I= I+2;

FIN_MIENTRAS

 

ESCRIBIR (“La suma de los cuadrados de los números pares entre 1-100 es: “, S);

 

FIN ALGORITMO

 

 

 

15.- Introduce un número menor de 500, pasarlo a números Romanos y repetir la operación cuantas veces se quiera.

 

PROGRAMA ROMANIZATOR

 

ENTORNO

 

ENTERO: R, I, N;

 

ALGORITMO

 

LEER (“Introduce un numero menor de 5000 para pasar a romano: “, N);

 

MIENTRAS (N >= 5000) HACER

            LEER (“Error -  Introduzca un numero menor de 5000: “, N);

FIN_MIENTRAS

 

SI (N>= 1000) ENTONCES

            R= N MOD 1000;                       /* MOD = Resto de la división */

            N= N DIV 1000;            /* DIV = Cociente de la división */

           

PARA I=0 HASTA I=N HACER

                        ESCRIBIR (“M”);

            FIN_PARA

FIN_SI

 

N = R;                                      /* Seguimos trabajando con el resto */

 

SI (N>=500) ENTONCES

            R = N MOD 500;

            N = N DIV 500;

            PARA I=0 HASTA I=N HACER

                        ESCRIBIR (“D”);

            FIN_PARA

FIN_SI

 

N = R;

…                                             /* Repetimos este proceso */

 

FIN ALGORITMO

 

 

 

16.- Algoritmo que obliga a un operador a introducir un número par entre 3 y 500:

 

PROGRAMA OBLIGAPAR

 

ENTORNO

 

ENTERO: N;

 

ALGORITMO

 

REPETIR

            LEER (“Introduce un numero par entre 3 y 500: “, N);

HASTA (N>3) Y (N<=500) Y (N MOD 2==0);

ESCRIBIR (“Bien Hecho operador”);

 

FIN ALGORITMO

 

 

 

17.- Programa que calcula el factorial de un número y repite el proceso hasta que se lo indique el usuario:

 

PROGRAMA FACTREPLAY

 

ENTORNO

 

ENTERO: FAC, F, N;

 

ALGORITMO

 

REPETIR

            LEER (“Introduce numero para factorial o cero para salir: “, F);

            FAC=1;

            PARA (N=F) HASTA (N=2) HACER

                        FAC=FAC*N;

            FIN_PARA

            ESCRIBIR (“El factorial de “, F,” es: “, FAC);

HASTA (F==0);

 

FIN ALGORITMO

 

 

 

18.- Contar y sumar los múltiplos de 10 hasta un cierto número que introduzcamos por teclado y mostrarlo por pantalla:

 

PROGRAMA MULTI10

 

ENTORNO

 

ENTERO: N, M;

 

ALGORITMO

 

LEER (“Introduce el numero de veces que quieres que se realice el múltiplo de 10: ”, N);

M=10;

 

PARA N HASTA 1 HACER

            M=10+M;

FIN_PARA

 

ESCRIBIR (“El múltiplo de 10 pedido es: “, M);

 

FIN ALGORITMO

  FIN ALGORITMO