Algoritmos con ciclos en PsEint

1. Algoritmo calculo_aportacion_al_RAP_de_50_empleados

        definir num Como Entero

        definir sueldo como real

        num = 1

        Mientras num <= 50 Hacer

                Escribir "Ingrese el sueldo del empleado"

                leer sueldo

                RAP = sueldo * 0.015;

                Escribir "Su aporte al RAP es", RAP

                num = num + 1

        Fin Mientras

FinAlgoritmo

1. Algoritmo calculo_de_cooperativa_a_N_empleados

        Definir sueldo, cont, aport,ne como numericos

        cont=0

        escribir"ingrese el numero de empledos a los que quiere calcularle la cooperativa"

        leer ne

        Mientras cont

                cont=cont+1

                escribir"Ingrese el sueldo del empleado: ",cont

                leer sueldo

                aport = sueldo*0.04

                escribir "el aporte del empleado ",cont," es igual a: ",aport

        Fin Mientras

FinAlgoritmo

1. Algoritmo Potencia

        definir cont,acum,num,expo como numericos

        cont=0

        acum=1

        escribir"Ingrese el numero de la base"

        leer num

        Escribir "ingrese el numero del exponente"

        leer expo

        Mientras cont<  expo  Hacer

                cont=cont+1

                acum=acum*num

        Fin Mientras

        Escribir "El numero es igual a: ",acum

FinAlgoritmo

...