Ejercicios

Ejercicio 01

Ingresar por teclado NUMERO cantidad de números, sumarlos y mostrar el resultado por pantalla.

ej01_while.psc

Proceso Ejercicio01_while
    Definir num Como Entero;
    Definir sum Como Entero;
    Definir i Como Entero;
    sum = 0;
    i = 1;

    Escribir Sin Saltar "Ingresar la cantidad de números: ";
    Leer num;
    Mientras i <= num Hacer
        sum = sum + i;
        i = i + 1;
    FinMientras
    Escribir "La suma de 1 a ", num, " es: ", sum;
FinProceso

ej01_for.psc

Proceso Ejercicio01_for
    Definir num Como Entero;
    Definir sum Como Entero;
    Definir i Como Entero;
    sum = 0;

    Escribir Sin Saltar "Ingresar la cantidad de números: ";
    Leer num;
    Para i = 1 Hasta num Con Paso 1 Hacer
        sum = sum + i;
    FinPara
    Escribir "La suma de 1 a ", num, " es: ", sum;
FinProceso

Ejercicio 02

Mostrar en pantalla los números desde 0 hasta NUMERO.

ej02_while.psc

Proceso Ejercicio02_while
    Definir num Como Entero;
    Definir i Como Entero;
    i = 0;
    
    Escribir Sin Saltar "Ingresar el número a iterar: ";
    Leer num;
    Mientras i <= num Hacer
        Escribir i;
        i = i + 1;
    FinMientras
FinProceso

ej02_for.psc

Proceso Ejercicio02_for
    Definir num Como Entero;
    Definir i Como Entero;
    
    Escribir Sin Saltar "Ingresar el número a iterar: ";
    Leer num;
    Para i = 0 Hasta num Con paso 1 Hacer
        Escribir i;
    FinPara
FinProceso

Ejercicio 03

Mostrar la tabla de multiplicar de NUMERO hasta el 10.

ej03_while.psc

Proceso Ejercicio03_while
    Definir num Como Entero;
    Definir i Como Entero;
    Definir tabla Como Entero;
    Escribir Sin Saltar "Ingrese el valor de la tabla: ";
    Leer num;
    i = 1;  
    
    Mientras i <= 10 Hacer
        tabla = i * num;
        Escribir i, " * " , num, " = ", tabla;
        i = i + 1;
    FinMientras
FinProceso

ej03_for.psc

Proceso Ejercicio03_for
    Definir num Como Entero;
    Definir i Como Entero;
    Definir tabla Como Entero;
    Escribir Sin Saltar "Ingrese el valor de la tabla: ";
    Leer num;
    
    Para i = 1 Hasta 10 Con Paso 1 Hacer 
        tabla = i * num;
        Escribir i, " * " , num, " = ", tabla;
    FinPara
FinProceso

Ejercicio 04

Mostrar el factorial de NUMERO.

ej04_while.psc

Proceso Ejercicio04_while
    Definir num Como Entero;
    Definir i Como Entero;
    Definir factorial Como Entero;
    Escribir Sin Saltar "Ingrese el valor del número: ";
    Leer num;
    i = 1;
    factorial = 1;

    Mientras i <= num Hacer
        factorial = factorial * i;
        i = i + 1;
    FinMientras
    Escribir "El factorial de ", num, " es: ", factorial;
FinProceso

ej04_for.psc

Proceso Ejercicio04_for
    Definir num Como Entero;
    Definir i Como Entero;
    Definir factorial Como Entero;
    Escribir Sin Saltar "Ingrese el valor del número: ";
    Leer num;
    factorial = 1;
    
    Para i = 1 Hasta num Con Paso 1 Hacer
        factorial = factorial * i;
    FinPara
    Escribir "El factorial de ", num, " es: ", factorial;
FinProceso

Ejercicio 05

Mostrar los números pares que hay entre 0 y NUMERO.

ej05_while.psc

Proceso Ejercicio05_while
    Definir num Como Entero;
    Definir i Como Entero;
    Escribir Sin Saltar "Ingrese un número: ";
    Leer num;
    i = 1;
    
    Escribir "Los números pares entre 0 y ", num, " son:";
    Mientras i < num Hacer
        Si i mod 2 = 0 Entonces
            Escribir i;
        FinSi
        i = i + 1;
    FinMientras
FinProceso

ej05_for.psc

Proceso Ejercicio05_for
    Definir num Como Entero;
    Definir i Como Entero;
    Escribir Sin Saltar "Ingrese un número: ";
    Leer num;
    
    Escribir "Los números pares entre 0 y ", num, " son:";
    Para i = 1 Hasta num - 1 Con Paso 1 Hacer
        Si i mod 2 = 0 Entonces
            Escribir i;
        FinSi
    FinPara
FinProceso

Ejercicios con Bucles

Material Clase