Ejemplo 1 Menú Pseint

 

Algoritmo Menú

               

                Repetir

                ESCRIBIR "MENU OPCIONES"

                ESCRIBIR "1. SERIE DE NUMEROS HASTA EL 100";

                ESCRIBIR "2. SERIE DE PARES HASTA EL 100";

                ESCRIBIR "3. Serie DE IMPARES HASTA EL 100";

                ESCRIBIR "4. DATOS PROGRAMADOR";

                ESCRIBIR "5. SALIR";

               

                Leer op

                Según op hacer

                              

                               1:

                                               Escribir "Serie de números hasta el 100"

                                               Definir x como entero

                                               x=1

                                               Mientras x < 100 hacer

                                               Escribir x

                                               x=x+1

                                               Fin Mientras

                                              

                               2:

                                               Escribir "Numero pares hasta el 100"

                                               Definir n como entero

                                               n=0

                                               Mientras n < 100 hacer

                                               Si n mod 2 ==0 entonces

                                               Escribir n

                                                               Fin Si

                                                               n= n+1

                                               Fin Mientras

                                              

                               3:

                                               Escribir "Números impares hasta el 100"

                                               Definir l,m Como Entero

                                               l=1

                                               m=0

                                               Mientras l < 100 hacer

                                             Si l mod 2 ==1 entonces

                                               Escribir l

                                               m = m+1

                                                                             

                                                               Fin Si

                                                               l = l+1

                                               Fin Mientras

                               4:

                                               Escribir "Datos del programador"

                                              

                                               Escribir "NOMBRE; DAYANA MOLINA"

                                               Escribir "15 AÑOS EDAD"

                                               escribir "DON BOSCO LA TOLA"

                                               escribir "LE GUSTA EL ENCEBOLLADO"

                               Fin según

               

Hasta que op = 5

               

               

FinAlgoritmo