3.3. Ejercicios : Algoritmos


3.3.  Ejercicios


Pseudocódigos:

Para ir al cine con amigos 

  Para ir a comprar hamburguesa.

Para ir a la terraza con amigos en la noche de Halloween

Algoritmo para imprimir en pantalla si un numero es par o impar.

Algoritmo para visualizar si un numero es negativo o positivo.

Algoritmo somo simulación de un proceso de inscripción universitaria de pre-grado.

Calculadora aritmética  donde imprima el resultado de la operación de dos números es cero será expresado en pantalla como indeterminado.



       En ésta sección, están unos ejercicios de algoritmos;  asignados por el profesor: el requerimiento consiste en escribir os paso del pseudocódigo en 25 pasos.


•          Pseudocódigo para ir al cine con amigos.

1. Inicio// algoritmo para ver una película.
2. Ver la cartelera de cine en la red social.
3. Mientras alistarse .
3.1. Seleccionar opción a ejecutar.
3.1.1. Consultar amigos.
3.1.2.Decir tiempo de salida.
3.1.3. Consultar a padres.
3.1.4. Seleccionar día.
3.1.5. Seleccionar carro.
4. Si op_alistarse=1 , entonces// consultar amigos.( invitar amigos:).
4.1. Buscar amigos disponibles.
4.2. Contar amigos disponibles.
4.2.1. Ingresar  primer_amigo ( amigos disponibles).
4.2.2. Ingresar segundo_amigo( amigos secundarios).
4.2.3. Para cantidad de amigos hasta amigos secundarios Hacer.
4.2.3.2.  Detener suma  en total de amigos disponibles.
4.2.3.2.1. Escribir cantidad de amigos disponibles.
4.3. Si  con_amigos es mayor que 1 ( Salir).
4.3.1. Sino , quedarse en casa // caso contrario.
4.4.Fin  si.

5. Si no
5.1. Si op_alistarse =2 , entonces;
5.1.1. Establecer  tiempo  del cine ( Hora)
5.1.2. Establecer tiempo de llegada ( min)
5.1.3. Establecer tiempo de partida (min)
5.1.4. Sumar tiempos.
5.1.5. Escribir tiempo total de salida.
5.1.6. Fin si.

6. Si op _alistarse =3 , entonces
6.1. Pedir permiso de salida // Para ello  explicar razones.
6.2. Permiso  de salida.
6.2.1. Si hijo se porta bien, entonces
6.2.2. Escribir “permiso concedido”, “ acceder permiso”.
6.2.3. En caso contrario, rechazar permiso // permiso denegado.
6.2.4. Fin si.

7. Si no.
7.1. Si op_alistarse =4 , entonces,
7.1.1. Seleccionar día.
7.1.2.  Leer día.
7.1.2.1. Si día  disponible entonces
 7.1.3. Según _a día Hacer;
7.1.3.1. Escribir (“LUNES”);
7.1.3.2. Escribir (“MARTES”);
7.1.3.3. Escribir (“MIERCOLES”);
7.1.3.4. Escribir (“JUEVES”);
7.1.3.5. Escribir (“VIERNES”);
7.1.3.6.Escribir(“SÁBADO”);
7.1.3.7. Escribir (“DOMINGO”);
7.4. Sino.
7.5. Escribir ( “ ERROR”, “día no disponible”)// suerte a la próxima vez.
7.6. Fin según.
7.7. Fin si .

8. Si no.
8.1 Si op_alistarse =5 entonces
8.1.1 Seleccionar carro // para el traslado.
8.1.2. Si está disponible entonces.
8.1.2.1. Obtener llaves de carro y licencia.
8.1.2.2 Partir al cine.
8.1.2.3. Si no // caso contrario  pagar un carro particular.
8.1.2.4 pagar un taxi.
8.1.2.5. Finsi

9. Sino.
9.1. Escribir (“opciones inválidas “, “ salida al cine cancelado”);
9.2. Fin mientras.
10. sino proyectan  la película entonces
10.1. Decidir otra actividad.
10.2. Bifurcar al paso 24.12 y 25.
11. sino
12. Ir al cine.
13.Si hay fila entonces
13.1. Esperar dentro.
14. Mientras  haya gente adelante Hacer
14.1.1. op=1 ( avanzar en la fila);
14.1.2. op=2 (Hablar);
14.1.3. op=3( pensar en aperitivos);
14.1.4. op= 4 ( sacar presupuesto);
14.2. Si op = 1 entonces
14.2.1. avanzar consecuentemente.
14.2.2. sino .
14.2.3. Retroceder.
14.2.4. Sino.
14.2.5. Quietos.
14.3 Fin si
 14.4.Finsi

15. si op=2 entonces
15.1. Planificar salida nueva.
15.2. sino .
15.3. Silencio.
15.4. Finsi .

16. Si op=3 entonces
16.1. Elegir pasabocas  de la franquicia
16.1.1.             Comprar cotufas+ refresco ( combo)
16.1.2. Comprar confitería.
16.2. Sino
16.3. Tomar  agua sola.
16.4. Fin si.

17. Si op=4 entonces
17.1. Completar o sacar costo de  la entrada // billetes.
17.1.1. Seleccionar forma de pago// a contado o con tarjeta.
17.2. Sino
17.3.  Regresar a casa
17.4. Fin si.

18. Fin mientras
18.1. Fi si .

19. Si hay locales  entonces
19.1. Comprar las entradas.
19.1.1. Seleccionar película.
19.1.2. Seleccionar horario de proyección.
19.1.3. Seleccionar formato de película // 3 D ; 4 D; otro formato.
19.2. Ingresar a la sala de cine.
19.3. Localizar butacas.

20.  Avanzar hasta llegar  a la primera fila de butacas.
21. Repetir.
22.  Comparar número de fila  con el número señalado en el ticket.  
22.1. Si son iguales  entonces  pasar a la siguiente fila .
22.2. Finsi.
22.3.  Hasta que  localice fila correspondiente.

23. Mientas  número de butaca sea incorrecta Hacer// en caso de que no coincida con el número impreso en billete.

24. Avanzar a través  de las filas a la próxima butaca.
24.1. Fin Mientras.
24.2. Sentarse en la butaca correcta.
24.3. Acomodarse.
24.3.1. Abrigarse.
24.4. Mientras  proyectan la película Hacer.
24.5. Ver la película.
24.6. Fin Mientras.
24.7. Abandonar Cine.
24.8. Sino.
 24.9. Refunfuñar.
24.10. Si no.
24.11. Quejarse.
24.11.1. Fin si
 24.12. Volver a casa.
24.13.  Fin.


25. Fin proceso.


•          Pseudocódigo  para ir a comprar hamburguesa.

1. Inicio/ Algoritmo para ir a comprar una hamburguesa.
2. Ver franquicias de comida rápida en el C.C. // Hamburgueserías.
3. Mientras  op_alistarse <> 4  Hacer// seleccionar  comando.
3.1.  Consultar con amigos y familia para salir.
3.2. Evaluar  salida// Día , hora , instancias… edad persona.
3.3. Modo de pago.
3.4. Modo de partida// medio de movilización “ transporte”.

4.  Si op=1  entonces
4.1. Saber cuántos  amigos están disponibles .
4.2.  Ingresar amigos
4.2.1. Si amigo > 1 entonces
4.2.2 Invitarlo a comer // en caso contrario ,  usando sino para evaluar otro caso.
4.2.2.1.  Si no ( salir sólo y acomodarse).
4.2.2.1.2.1.  Fin si.

5. Fin.
 5.1. Si op=2 entonces
5.2. Establecer  instancias // hora libre del trabajo o de la escuela, edad de persona, día.
5.2.1. Si edad  persona>18 entonces
5.2.1.2. Escribir (“ no tiene inconvenientes”, “eres independiente”);
5.2.1.3. Sino
5.2.1.4. Si edad persona < 18 entonces
6. Pedir permiso de salida
 6.1. Fin si
7.  Escribir (“ mañana”, “ tarde”, “ noche”)// esto es para establecer  turno disponible , cuándo.
7.1. Si hay hora libre, entonces  salir a comprar hamburguesas// proceso para cada escribir de mañana, tarde y noche( saber cuándo y tiempo .
7.1.2.  En caso contrario, seleccionar día de la semana.

8.  Leer día
8.1. Según sea día Hacer
8.1.1. Escribir (“lunes”);
8.1.2. Escribir (“martes”);
8.1.3. Escribir (“ miércoles”);
8.1.4. Escribir (“ jueves”);
8.1.5. Escribir (“viernes”);
8.1.6. Escribir (“sábado”);
8.1.7. Escribir(“ domingo”);

9. Sino.
10. Escribir (“ ERROR”, “ día de la semana no disponible”)// suerte a la próxima.
11. Fin según.
12. Fin si.
13. Si op= 3  entonces // seleccionar  forma de pago.
14. Escribir  “ con tarjeta”;
15. Escribir”  a contado”.
16. Fin si.
17. Si op= 4 entonces// modo de partida “trasporte”.
18. Buscar carro.
18.1.  Escribir  si está disponible // chequear si se puede usar para el traslado.
18.1.1. Movilizarnos.
18.1.2. Si no // caso contrario pagar un carro particular.
18.1.3. Pagar una ruta.
18.1.4. Calcular la distancia  y pago  de traslado// costo.
 Lugar en km de distancia = A
 Pago por km de distancia= B
Costo total del traslado = C
A*B= C




19. Si distancia <pago de traslado
19.1.  Escribir “ no abordaremos”
19.2. Si distancia = pago de traslado, entonces
19.3. Escribir ” abordaremos”, “ accesible”;
19.4. Fin si.
19.5. Fin si.

20. Fin mientras.
20.1. Seleccionar establecimiento  // leer cual es la Hamburguesería.
21. Si hamburguesería labora, entonces
22. Según sea  Hamburguesería Hacer
23.Escribir (“ comprar en Mcdonals”)
23.1. Escribir (“ comprar en Fridays”)
23.2 Sino.
 24. Escribir (“ comprar en otro establecimiento:”) ,” ERROR hamburguesería”.
24.1. Fin según.
24.1.2. Fin si.
24.2. Si hay fila entonces.
24.2.1. Mientras gente adelante Hacer
24.2.2. Esperar turno.
24.2.3. Sino.
24.2.4.  Avanzar consecuentemente en la fila.
24.2.5. Si no.
24.2.5.1. Retirarse a casa.
24.2.6. Fin si.
24.2.6.1. Fin mientras.
24.2.6.2. Fin si.
24.3. Si llega a turno de atención, entonces
24.3.1. Escribir” pedido “// dimensión .
24.3.2. Según sea pedido  Hacer
24.3.3. Escribir (“ pedido es pecial”);
Escribir (“ pedido sencillo”);
Escribir(“pedido familiar”);
Escribir(“ pedido junior”);
Escribir(“pedido megajumbo”);
24.3.4. Leer pedido.
Sino
Escribir(“ Error del sistema”,  “pedido no ingresado”);
Fin según
Fin si
24.4. Mientras op_pedido <> 4 Hacer
op= 1 ( combo 1: Hamburguesa de pollo)
op=2( combo 2: Hamburguesa de carne)
op=3 ( combo 3: Hamburguesa vegetariana)

24.5. Si op=1 entonces
24.5.1. Adquirir combo 1;
24.5.1.1. Sino
24.5.1.2.  Si op= 2 entonces
24.5.1.3. Adquirir combo2.
24.5.1.4. Si no.
24.5.1.5. Si op=3 entonces
24.5.1.6. Adquirir  combo 3
24.5.2. Sino.
 24.5.2.1.  Si op_pedido <> 4
24.5.2.2. Dejar pedido.
24.5.3. Fin si.
24.5.4. Fin si
24.5. 5. Fin si
24.5.6. Fin si
24.6. Si pedido >=1 entonces
24.7. Depositar monto en caja
24.7.1. Bifurcar al paso  24.2.2  // esperar turno.
24.7.2. Introducir datos del cliente // Nombre, CI, pedido , combo,
24.7.3. Bifurcar al paso 13.
24.7.4.  Generar factura.
24.7.5. Si el cliente está solvente, aceptar pedido;
24.7.6.  Caso contrario  rechazar pedido.
24.7.7. Fin si.
24.8. Repetir.
24.8.1. Chequear pedido con el ticket
24.8.2. Hasta que  coincida el pedido con el ticket
24.8.3. Fin si
24.9. Si pedido ==  Ticket entoces// si son iguales o concuerdan
24.9.1.  Despachar pedido.
24.9.2. Fin si
25. Fin proceso.


•          Pseudocódigo  para ir a la terraza con amigos en la noche de Halloween.

1. Inicio / algoritmo para ir a la terraza    con amigos en la noche de Halloween.
2. Limpiar terraza
3. Mientras  op <>5 Hacer // preparativos.
op=1 (“ Ambientar terraza con alegóricos al Halloween”);
op=2 (“ Llenar canastas de dulces “);
op= 3(“ Ver atuendos”) ;// disfraces.
op= (  “ Invitar amigos  a la terraza”);
4. Si op= 1 entonces
5. Repetir.
5.1.  Colocar cantidad de lámparas de calabaza;
5.2. Colocar tela de arañas;
5.3. Colocar  Máscaras;
5.4. Colocar Ataúdes;
5.6. Colocar mesa de compartir .
5.7. Escribir (“Bienvenido  al Halloween”)
5.8. Hasta que terraza= temática de Halloween
sino
6.  Si op=2 entonces;
7. Repetir
7.1. Seleccionar tipo de dulce en tienda
7.2. Comprar paquetes de dulce en tienda.
7.3. Sumar cotillones// contar incrementadamente.
7.4. llenar cotillones
7.4.1.Ubicar cotillones en canastas
7.5. Hasta que total dulces    >= canastas dulces.
sino
8. Si op= 3
9. Buscar disfraces  para Halloween
10. Ver closet
10.1. Si disfraz == Halloween entonces
11.Ingresar  disfraz
12. Leer disfraz
13. Según sea disfraz Hacer.
14. Escribir(“ Bruja”);
15. Escribir (“ Muerto “);
16.Escribir (“ Monstruo”);
17. Sino
18.  Escribir  (“ Error “, “ disfraz  no compatible al Halloween “);/ /Debe ser alegórico al evento.
19. Fin según.
20. Fin si.
20.1. Repetir.
21. Seleccionar disfraz
22. Escribir disfraz a usar .
23. Hasta que disfraz == Halloween// caso  como  != a desuso de disfraz .
24. Fin si.
24.1. Si op= 4 entonces// invitar amigos a la terraza.
24.1.1. Buscar amigos .
24.1.2. Repetir
24.2. Buscar dulces.
24.3. Asustar.
24.4. Hasta que ir a la terraza con amigos // equivalente a darles una bienvenida al Halloween .
24.5. Fin si
24.6. Si op= 5 entonces
24.7. Escribir “error”, “opción inválida”;
25. Fin proceso.




Aquí está el pseudocódigo para pseint












 Proceso iralaterrazaconlosamigosenHalloween
      Definir t,op, cont como real;
      Definir i, num, c,con  Como Entero;
      Escribir  "necesito invitar a unos amigos para ir a la terrasa en Halloween";
      Escribir  " Estan invitados", "por favor introduzca cuantos amigos desea invitar ?";
      leer num;
      Escribir   " tengo invitado a:" ,"=" num , "amigos para ir a la terraza";
     
Escribir  " dulce o truco?";
Escribir  " estas preparado para ir a la terraza con amigos en la noche del Halloween? ";
repetir
     
      Escribir " para ello tenemos los siguientes preparativos:";
      Escribir " 1:";
      escribir  "Ambientar terraza con  alegoricos al Halloween!";
      Escribir  " Vamos a ver si son galliletas jejejeje", " monstruosidades en toda la terrasa ";
     
 Repetir
 escribir  " ¿Cuantas calabazas desea ubicar en la terraza?";
 leer num;
 Escribir "colocar lamparas de calabaza";
eScribir " se han colocado",":", num, " lampara  calabaza para alumbrar fachada";
Escribir " colocar tela de arañas ";
Escribir " se han colocado"," tela de araña en puertas, ventanas, paredes y techo ";
Escribir " ya listo ";
                 
    para i<-1 hasta 9 hacer
    Escribir "", i ;
    fin para   
 Escribir  " colocaremos  mascaras espelusnantes de todo tipo  :)", "mmmm como:";
 Escribir  " =", i;                            
 Escribir " colocar ataúdes con  calaveras pintadas para cada invitado:" ;
  Escribir " es necesario que especifiques  su cantidad por favor ";
 Leer num;
 Escribir " el susto es seguro ( juajuajuajua:)";
 Escribir  " no hemos acabado aún, faltan más detalles:";
  Escribir  " vamos a organizar la logística del Halloween";
  Escribir "ubicaremos  las mesas para compartir y contar historias de terror";
  Escribir " hemos  ubicado aprox", ":", i, " mesas y sillas fantasmas";
Escribir  " Bienvenidos al Halloween", " si comienzas no hay retorno presiona (2) para siguiente preparativo ";
 leer t;
 Hasta que  t=2
 Escribir  " 2:";
 Escribir  "  Llenar canastas de dulces ";
 escribir  "  para cada mesa se necesita la misma cantidad de canasta de dulce:" , ":"  i;
 repetir
 Escribir " hay que comprar los dulces!";
            Escribir  "  confitería        opciones     costo ";
            Escribir  "  chocolates ........ 1..........6000";
            Escribir  "   caramelos .........2..........2000";
            Escribir   "    snacks............3..........300";
            Escribir  "    mixto..............4.........700";
            Escribir   " seleccione el tipo de confiteria que desea comprar";
 leer c;
 Escribir  " cuantas confitería se llevará  según su opción ?";
 leer con;
 segun c hacer
   1:
  Escribir " El total chocolate es :",con*6000,"bolivares ";
                   2:
                         Escribir " El total caramelos es :",con*2000," bolivares";
                   3:
                         Escribir " El total snacks es :",con*300," bolivares";
                   4:
                         Escribir " El total mixto es :", con*700 "bolívares";
           FinSegun
             Escribir " Será suficiente para llenar las canastas y compartir con los panas!";
             Escribir " vamos al otro preparativo (3)";
             leer t;
             
       hasta que t= 3
             
       Escribir  "3:";
       Escribir " Buscar disfraces para Halloween!";
       escribir " ver en el closet y elija ";
       Escribir "  1:  Bruja "    ;
       Escribir "  2:Muerto";
       Escribir " 3: Monstruo ";
       Escribir " diga cual es el disfras que se va a poner :";
       leer c;
       segun c hacer
             1:Escribir " soy una bruja ";
             2:escribir " soy un muerto";
             3:escribir " soy un monstruo";
             De Otro Modo:

 escribir " si no tienes disfras estas desinvitado, no vas a la terrasa con nosotros! ok ";
 Escribir " error ,  ir a la terrasa con los amigos fue cancelado";
       
 FinSegun
        
    Escribir   " preparativos ya estan listos; vamos a ir a la terrasa con amigos en la noche de Halloween, presione 4 ";

    leer t;
hasta que t=4
fin proceso









Pseudocódigo  para ir a la terraza con amigos en la noche de Halloween.

1. Inicio / algoritmo para ir a la terraza    con amigos en la noche de Halloween.
2. Limpiar terraza
3. Mientras  op <>5 Hacer // preparativos.
op=1 (“ Ambientar terraza con alegóricos al Halloween”);
op=2 (“ Llenar canastas de dulces “);
op= 3(“ Ver atuendos”) ;// disfraces.
op= (  “ Invitar amigos  a la terraza”);
4. Si op= 1 entonces
5. Repetir.
5.1.  Colocar cantidad de lámparas de calabaza;
5.2. Colocar tela de arañas;
5.3. Colocar  Máscaras;
5.4. Colocar Ataúdes;
5.6. Colocar mesa de compartir .
5.7. Escribir (“Bienvenido  al Halloween”)
5.8. Hasta que terraza= temática de Halloween
sino
6.  Si op=2 entonces;
7. Repetir
7.1. Seleccionar tipo de dulce en tienda
7.2. Comprar paquetes de dulce en tienda.
7.3. Sumar cotillones// contar incrementadamente.
7.4. llenar cotillones
7.4.1.Ubicar cotillones en canastas
7.5. Hasta que total dulces    >= canastas dulces.
sino
8. Si op= 3
9. Buscar disfraces  para Halloween
10. Ver closet
10.1. Si disfraz == Halloween entonces
11.Ingresar  disfraz
12. Leer disfraz
13. Según sea disfraz Hacer.
14. Escribir(“ Bruja”);
15. Escribir (“ Muerto “);
16.Escribir (“ Monstruo”);
17. Sino
18.  Escribir  (“ Error “, “ disfraz  no compatible al Halloween “);/ /Debe ser alegórico al evento.
19. Fin según.
20. Fin si.
20.1. Repetir.
21. Seleccionar disfraz
22. Escribir disfraz a usar .
23. Hasta que disfraz == Halloween// caso  como  != a desuso de disfraz .
24. Fin si.
24.1. Si op= 4 entonces// invitar amigos a la terraza.
24.1.1. Buscar amigos .
24.1.2. Repetir
24.2. Buscar dulces.
24.3. Asustar.
24.4. Hasta que ir a la terraza con amigos // equivalente a darles una bienvenida al Halloween .
24.5. Fin si
24.6. Si op= 5 entonces
24.7. Escribir “error”, “opción inválida”;
25. Fin proceso.

Algoritmo para imprimir en pantalla si un numero es par o impar.

1)  establecer un contador de números enteros.
2)  definir los números como entero.
3)  en cada conteo consecutivamente le muestre al usuario si es par o en caso contrario  impar dicho número.
4)  Cuando imprima en pantalla se muestre si es también negativo o positivo.
5)  el conteo termina hasta llegar al número diez, en este caso se colocó así , pero puede llegar hasta n veces si lo desea.




Proceso Numerospares
      Definir i Como Entero;
      Escribir 'Numeros pares e impares:';
      Para i<-1 Hasta 10 Hacer
            Si i MOD 2=0 Entonces
                  Escribir 'numero par';
                  Escribir ' ',i, ";"    "",-i;
            Sino
                  Escribir 'numero impar';
                  Escribir '',i, ";"   "", -i;
            FinSi
      FinPara

FinProceso



Diagrama de flujo y el diagrama N/S similar a una tabla 






Este es el caso de que los numeros sea pares es cuando la division es exacta y en caso contrario no lo será 

Proceso Numerospares
      Definir i Como Entero;
      Escribir "Numeros pares e impares:";
      Para i<-1 hasta 10 Con Paso 1 Hacer
            si i%2=0 entonces
                  Escribir "numero par";
                  Escribir " ",i;
                 
            Sino
                  Escribir "numero impar";
                  Escribir "",i;
            FinSi
      FinPara

FinProceso



Algoritmo para visualizar si un numero es negativo o positivo.

// decir si un numero es positivo o no, es un método fácil.

Proceso numérico
      Definir num Como Entero;
      Escribir ' introdusca numero a evaluar :';
      Leer num;
      Si num<0 Entonces
            Escribir ' el numero ingresado es negativo';
            Leer num;
      Sino
            Si num>=0 Entonces
                  Escribir ' el numero ingresado es  positivo:';
                  Leer num;
            FinSi
      FinSi


FinProceso




Otro caso: 

  1. Definir los números como entero.
  2. Al ingresar el usuario un numero este al ser mayor que cero es positivo.
  3. En caso contrario será negativo.


Proceso signonumero
 DEfinir num como entero;

      Escribir "Ingresa numero";
      Leer num;
      si num > 0 entonces;
            Escribir" el  numero es positivo";
   
   sino
            Escribir  "El numero es negativo";
      finsi
           
Finproceso


Otro caso:

// Algoritmo  para leer un numero que indique  si es positivo  o negativo.
// para ello  en las ecuaciones de mate I se buscan las raíces de un polinimo de grado 2.
// en el caso donde se aplica la discriminante solo existen numeros enteros .


Proceso numero
      Definir b,n,discri Como Real;
      Escribir ' ingrese  números:';
      Leer n;
      Escribir ' el numero es positivo';
      Escribir ' el numero es negativo';
      Si n>0 Entonces
            Escribir ' recorrido mas infinito';
      Sino
            Si n<0 Entonces
                  Escribir ' recorrido negativ infinito';
            FinSi
      FinSi
      Segun discri  Hacer
            1:
                  Escribir ' hallar la discriminante, cargar datos:';
                  Escribir ' ingrese el segundo grado:';
                  Leer a;
                  Escribir ' ingrese el primer grado:';
                  Leer b;
                  Escribir ' ingrese el término independiente, coeficientes por favor';
                  Leer c;
                  Escribir 'ingrese valor de la desigualdad:';
                  Leer desig;
                  discri <- (b^2-4*a*c);
                  num <- discri;
                  Escribir ' ingrese el total del discriminante, resultados por favor:',discri;
            2:
                  Escribir ' evaluar signos:';
                  Definir num,discri,resuldirc Como Logico;
                  Si resuldirc!=negativo Entonces
                        Escribir ' el resultado es positivo: ',discri;
                        // Cuando nos da positivo la discriminante, buscamos la pendiente x las raices x1 y x2
                        // para las pendientes se calcula la formula para calcular las raices.
                        Escribir ' ingrese de nuevo el valor del primer grado:';
                        Leer b;
                        Escribir ' ingrese el valor del termino independiente, coeficientes por favor:';
                        Leer a;
                        x1 <- b-rc(num)/2*a;
                        x2 <- b+rc(num)/2*a;
                        Escribir ' el resultado de la pendiente es:',x1,x2;
                  Sino
                        Si resuldirc!=positivo Entonces
                             Escribir ' el resultado es negativo:',discri;
                             // cuando el resultado de la discriminante nos da negativo,
                             // se dice que  no tiene raices reales.
                             // por lo tanto no se descompone en factores lineales.
                             Mientras resuldiscri!=positivo Hacer
                                   Escribir ' Introdusca los coeficientes y terminos independiente por favor:';
                                   Leer a;
                                   Leer b;
                                   Leer c;
                                   a <- x^2;
                                   b <- nx;
                                   c <- n;
                                   Para x<-i Hasta desig Hacer
                                         Escribir ' introdusca bases polinómicas ';
                                         Leer x;
                                         x <- 0;
                                         Escribir ' introdusca  el primer y segundo grado de los polinomios:';
                                         Leer a;
                                         Leer b;
                                         // para ello se sustituyen las bases polinómicas a cero y se procede.
                                         Escribir ' introdusca el coeficiente del primer lado del polnomio:';
                                         Leer b;
                                         Escribir ' introdusca el termino independiente:';
                                         Leer nx;
                                         Leer n;
                                         desig <- (a+b+c);
                                         // 0^2+ n*0+ n
                                   FinPara
                             FinMientras
                        FinSi
                  FinSi
      FinSegun
FinProceso


 En formato de diseño web 



Proceso numero
      Definir b,n,discri Como Real;
      Escribir ' ingrese  números:';
      Leer n;
      Escribir ' el numero es positivo';
      Escribir ' el numero es negativo';
      Si n>0 Entonces
            Escribir ' recorrido mas infinito';
      Sino
            Si n<0 Entonces
                  Escribir ' recorrido negativ infinito';
            FinSi
      FinSi
      Segun discri  Hacer
            1:
                  Escribir ' hallar la discriminante, cargar datos:';
                  Escribir ' ingrese el segundo grado:';
                  Leer a;
                  Escribir ' ingrese el primer grado:';
                  Leer b;
                  Escribir ' ingrese el término independiente, coeficientes por favor';
                  Leer c;
                  Escribir 'ingrese valor de la desigualdad:';
                  Leer desig;
                  discri <- (b^2-4*a*c);
                  num <- discri;
                  Escribir ' ingrese el total del discriminante, resultados por favor:',discri;
            2:
                  Escribir ' evaluar signos:';
                  Definir num,discri,resuldirc Como Logico;
                  Si resuldirc!=negativo Entonces
                        Escribir ' el resultado es positivo: ',discri;
                        // Cuando nos da positivo la discriminante, buscamos la pendiente x las raices x1 y x2
                        // para las pendientes se calcula la formula para calcular las raices.
                        Escribir ' ingrese de nuevo el valor del primer grado:';
                        Leer b;
                        Escribir ' ingrese el valor del termino independiente, coeficientes por favor:';
                        Leer a;
                        x1 <- b-rc(num)/2*a;
                        x2 <- b+rc(num)/2*a;
                        Escribir ' el resultado de la pendiente es:',x1,x2;
                  Sino
                        Si resuldirc!=positivo Entonces
                             Escribir ' el resultado es negativo:',discri;
                             // cuando el resultado de la discriminante nos da negativo,
                             // se dice que  no tiene raices reales.
                             // por lo tanto no se descompone en factores lineales.
                             Mientras resuldiscri!=positivo Hacer
                                   Escribir ' Introdusca los coeficientes y terminos independiente por favor:';
                                   Leer a;
                                   Leer b;
                                   Leer c;
                                   a <- x^2;
                                   b <- nx;
                                   c <- n;
                                   Para x<-i Hasta desig Hacer
                                         Escribir ' introdusca bases polinómicas ';
                                         Leer x;
                                         x <- 0;
                                         Escribir ' introdusca  el primer y segundo grado de los polinomios:';
                                         Leer a;
                                         Leer b;
                                         // para ello se sustituyen las bases polinómicas a cero y se procede.
                                         Escribir ' introdusca el coeficiente del primer lado del polnomio:';
                                         Leer b;
                                         Escribir ' introdusca el termino independiente:';
                                         Leer nx;
                                         Leer n;
                                         desig <- (a+b+c);
                                         // 0^2+ n*0+ n
                                   FinPara
                             FinMientras
                        FinSi
                   FinSi
      FinSegun
fin proceso







Algoritmo somo simulación de un proceso de inscripción universitaria de pre-grado.







  1. Se debe presentar una serie de opciones para que el estudiante(usuario)  indique su caso para proceder en el sistema.
  2.  los comando que se despliegan le pide al usuario que introduzca su proyecto de carrera.
  3. en pantalla se visualizará el deposito inicial en caso de ser  nuevo ingreso.
  4. En otro caso, la tarifa del deposito en estudiantes regular por cada materia inscrita. 
  5. al introducir su caso, se despliegan una serie de comando.
  6.  en caso de ser nuevo ingreso se le exigirá al estudiante seleccionado registrar su deposito bancario en el lapso establecido.
  7. se le pide al usuario que ingrese los datos al sistema: tipo de cuenta, tipo de banco, que ingrese el numero de cuenta, y el monto a depositar.
  8. Si el deposito es mayor o igual al precio establecido del cupo, se imprime que el arancel fue generado exitosamente.
  9. La cantidad requerida de la inscripción que el alumno deposito, permita generar la constancia de inscripción. 
  10. el depósito estará como activo y se verá en pantalla todos los datos ingresados en el sistema.
  11. en caso contrario de que no se efectúe el depósito bancario, se le exigirá al alumno el deposito o perderá el cupo.
  12. En la otra opción desplegada en pantalla está el proceso de inscripción del estudiante regular.
  13. deberá ingresar en línea al sistema de inscripción pre grado donde se le pide ingresar sus datos.
  14. introduzca datos de estudiante como su nombre de usuario ( solo letras ) y la máquina lo recibirá con un cordial saludo.
  15. se le pedirá al estudiante ingresar su clave.
  16. deberá ingresar la forma de pago ( efectivo o tarjeta).
  17.  rectificar los datos y esperar a que la Coordinación  de informática y de estadísticapara validación de los depósitos bancarios.
  18. Si el depósito es mayor que 2 se confirmara que el deposito e imprimirá el mismo.
  19. En caso contrario , será como saldo insuficiente.
  20. se despliegan opciones cuando hay disponibilidad de cupos: (cupo y cancelación de la asignatura) y ( disponibles como otra opción).
  21. Según el caso, se evaluará si la asignatura priva en caso de reprobarla  el siguiente estudio.
  22.  las cantidad de asignaturas que se desea ver, el costo total de cada una de ellas, la cantidad de secciones disponibles en donde hay cupo.
  23. Imprimirá   la sección con la materia inscrita, sino el usuario tendra que retirar , cambiar o adicionar asignaturas.
  24. Imprimir en pantalla los cambios y acciones realizadas en el sistema.
  25. Ingrese el comando para   guardar cambios y salir.


 Diagrama de flujo del proceso de preinscripciones de la UNEG en diagrama de flujo 









 Definir c,ncu, lap, clav, cup,mat,not,r, op Como Entero;
definir car, banc,cuent, usu,pag, asig como caracter;
Definir dep Como Real;
Escribir " estas opciones es para los estudiantes de Pregrado";
Escribir " intrdusca su proyecto de carrera:";
leer car;
Escribir "   comando .................caso...... evento...";
Escribir "  nuevo ingreso..............1.......precio 4ooo de deposito inicial ";
Escribir " estudiante regular .........2........precio 0,5 c/u materias inscritas ";
Escribir " introdusca una opción ( caso) por favor , ya sea 1; 2 :";
Escribir " introdusca su caso  :";
leer c;
segun c hacer 
1:
Escribir" nuevo ingreso!";
Escribir " Los estudiantes QUE NO TENGAN SALDO A SU FAVOR EN EL SISTEMA DE INSCRIPCIÓN,";
Escribir" deberán registrar su depósito bancario en el lapso establecido"; 
Escribir" indique el lapso academico de su selección:";
leer lap;
Escribir "  suba datos al sistema:";
Escribir " introdusca tipo de banco:";
Leer banc;
Escribir " introdusca tipo de cuenta:";
leer cuent;
Escribir " ingrese numero de cuenta:";
leer ncu;
Escribir " ingrese monto a depositar:";
leer dep; 
si dep>= 4000 entonces 
escribir " el alumno deposito la cantidad requerida de su inscripción";
Escribir " aquí está su constancia de inscripción", " ha cumplido de manera exitosa su arancel";
Escribir "  su depósito fue de:" , dep, "activo";
Escribir" dato:" banc, cuent,ncu,lap;
Sino
Escribir " deposite o perderá cupo";
FinSi
2:
Escribir"¡ Proceso de inscripción del estudiante regular !";
Escribir" ingrese en línea al sistema de inscripción pregrado";
Escribir" Introducir su  Usuario por favor(letras) :";
leer usu;
Escribir " Hola ", usu, "introdusca Clave por favor (numeros):";
leer clav;
Escribir " ingrese forma de pago( efectivo o con tarjeta)";
leer pag;
Escribir" rectifique por favor los datos ingresados",":", usu,"/" clav,"/" pag;
Escribir" Espere que la Coordinación de Informática y de Estadística valide su depósito"; 
Escribir " ingrese saldo abonó? ( su deposito al sistema por favor):";
leer dep;
si dep>=2 entonces 
Escribir" su depósito ha sido confirmado exitosamente!", dep," bolívares";
Sino
Escribir " No válido, ingrese de nuevo el depósito"," su saldo es insuficiente" ;
FinSi
Escribir" disponibilidad de cupos:"; 
Escribir " opción 1:  cupo  y cancelar asignatura";
Escribir " opcion 2: disponibles ";
leer c;
Repetir
Segun c hacer 
1:
escribir  " inscribir asignaturas", "tiene cupo disponible ";
EScribir " ¿ cuántas materias desea inscribir ?(ingrese numero por favor) ";
leer mat;
Escribir "ingrese asignatura que priva el siguiente semestre";
leer asig;
Escribir " inscripción de asignaturas:", asig  ";",  " caso de que prele";
EScribir " cual fue su calificación de" ":" asig;
leer not;
si not>= 6 entonces 
Escribir " ha aprobado asignatura, felicidades , no hay inconveniente";
Escribir " puede formular su inscrición de la siguiente  asignatura:";
leer asig;
sino 
Escribir " ha reprobado asignatura" , asig ," deberá pasarla para continuar a la siguiente asignatura";
FinSi
si cup <> 7 entonces 
Escribir "  usted no tiene cupo disponible en ninguna sección", " espere la semana tres";
escribir " para inscribirse en las disponibles";
FinSi
Para cup<-1 hasta 7 hacer 
Escribir " hay cupos disponibles  en el aula :", cup;
FinPara
escribir " ingrese el aula donde inscribira asignatura";
leer cup;
Escribir " cancelará por cada materia adicionada a su plan:", 0,5*mat, " bolívares";
Escribir " su inscripción fue realisada, aqui tiene su constancia de inscrpcion de materias:";
Escribir "" , asig, " será dada en el aula:",cup; 
2:
Escribir" disponibles!";
Escribir " si y solo si a partir de la semana tres se consolida cambios y retiros de asignaturas";
EScribir" verifique cantidad de materias aprobadas o intente mas tarde";
Escribir " Modificar asignatura";
escribir" 1:  ingrese la asignatura que desea retirar:";
Escribir " 2:  ingrese la asignatura a adicionar:";
Escribir " 3:Régimen  ( suspension temporal)";
escribir " ingrese el caso para modificar asignatura:";
leer c;
segun c hacer 
1:
Imprimir " retirar asignatura";
Escribir " retiro de asignatura :";
leer asig;
Escribir " ingrese (1) si la va a retirar, ¿ estás seguro?";
leer mat;
si mat= 1 entonces 
Escribir " una ves retirada esta materia no volverá a ingresarse";
sino 
Escribir " Si no ha efectuado retiro el sistema le permitirá adicionar materia";
escribir " no ha adicionado la asignatura por que no efectuo  retiro ";
Escribir " cancelara por cada materia adicionada a su plan:", 0,5*mat, " bolívares";
FinSi
escribir" si quiere adicionar presione (2) para la otra opción";
leer c;
2:
imprimir " adicion de asignaturas";
Escribir "la segunda opción es:";
Escribir " Modificar ";
escribir " adición de asignaturas: ingrese por favor la asignatura que desea ver en el lapso:";
leer asig;
si cup=1 entonces 
Escribir " inscrito en la sección :", cup;
Sino
escribir " lo siento cupo no disponible en esta seccion:", cup, ;
FinSi
Escribir "  si ha culminado,  guarde  su modificación en sistema presionando (1)";
leer r;
escribir" si quiere  ver si esta en regimen  presione (3) para la otra opción";
leer c;
3:
Escribir " Régimen";
Escribir   " caso de que el estudiante esté en regimen:";
escribir " caso de que la materia este reprobada 3 veces quedara sancionado hasta abrobar el siguiente semestre";
para mat <-1 hasta 3 hacer 
Escribir" la materia se reprobó :" mat, " ( veces)";
FinPara 
si mat >=3 entonces 
Escribir " esta en regimen ";
Escribir " usted se inscribira " , " en el siguiente lapso:", ;
sino 
escribir " tiene chance de pasar, esfuércece";
FinSi
FinSegun
De Otro Modo:
Escribir " salir y volver mas tarde sin estres , no hay mas aula disponible, espere ";
FinSegun
Escribir " escribir ingrese (2)   para guardar cambios y salir ";
leer r;
Hasta Que r= 2
FinSegun
FinProceso


 Con visualización de diseño web 


Definir c,ncu, lap, clav, cup,mat,not,r, op Como Entero;
 definir car, banc,cuent, usu,pag, asig como caracter;
 Definir dep Como Real;
 Escribir " estas opciones es para los estudiantes de Pregrado";
 Escribir " intrdusca su proyecto de carrera:";
 leer car;
 Escribir "   comando .................caso...... evento...";
 Escribir "  nuevo ingreso..............1.......precio 4ooo de deposito inicial ";
 Escribir " estudiante regular .........2........precio 0,5 c/u materias inscritas ";

 Escribir " introdusca una opción ( caso) por favor , ya sea 1; 2 :";
 Escribir " introdusca su caso  :";
 leer c;
 segun c hacer 
  1:
   Escribir" nuevo ingreso!";
   Escribir " Los estudiantes QUE NO TENGAN SALDO A SU FAVOR EN EL SISTEMA DE INSCRIPCIÓN,";
   Escribir" deberán registrar su depósito bancario en el lapso establecido"; 
   Escribir" indique el lapso academico de su selección:";
   leer lap;
   Escribir "  suba datos al sistema:";
   Escribir " introdusca tipo de banco:";
   Leer banc;
   Escribir " introdusca tipo de cuenta:";
   leer cuent;
   Escribir " ingrese numero de cuenta:";
   leer ncu;
   Escribir " ingrese monto a depositar:";
   leer dep; 
   si dep>= 4000 entonces 
    escribir " el alumno deposito la cantidad requerida de su inscripción";
    Escribir " aquí está su constancia de inscripción", " ha cumplido de manera exitosa su arancel";
    Escribir "  su depósito fue de:" , dep, "activo";
    Escribir" dato:" banc, cuent,ncu,lap;
   Sino
    Escribir " deposite o perderá cupo";
   FinSi
  
  2:
   Escribir"¡ Proceso de inscripción del estudiante regular !";
   Escribir" ingrese en línea al sistema de inscripción pregrado";
   Escribir" Introducir su  Usuario por favor(letras) :";
   leer usu;
   Escribir " Hola ", usu, "introdusca Clave por favor (numeros):";
   leer clav;
   Escribir " ingrese forma de pago( efectivo o con tarjeta)";
   leer pag;
   Escribir" rectifique por favor los datos ingresados",":", usu,"/" clav,"/" pag;
   Escribir" Espere que la Coordinación de Informática y de Estadística valide su depósito"; 
   Escribir " ingrese saldo abonó? ( su deposito al sistema por favor):";
   leer dep;
   si dep>=2 entonces 
    Escribir" su depósito ha sido confirmado exitosamente!", dep," bolívares";
   Sino
    Escribir " No válido, ingrese de nuevo el depósito"," su saldo es insuficiente" ;
   FinSi
   Escribir" disponibilidad de cupos:"; 
   Escribir " opción 1:  cupo  y cancelar asignatura";
   Escribir " opcion 2: disponibles ";
   leer c;
   Repetir
    Segun c hacer 
     1:
      escribir  " inscribir asignaturas", "tiene cupo disponible ";
      EScribir " ¿ cuántas materias desea inscribir ?(ingrese numero por favor) ";
      leer mat;
      Escribir "ingrese asignatura que priva el siguiente semestre";
      leer asig;
      Escribir " inscripción de asignaturas:", asig  ";",  " caso de que prele";
      EScribir " cual fue su calificación de" ":" asig;
      leer not;
      si not>= 6 entonces 
       Escribir " ha aprobado asignatura, felicidades , no hay inconveniente";
       Escribir " puede formular su inscrición de la siguiente  asignatura:";
       leer asig;
      sino 
       Escribir " ha reprobado asignatura" , asig ," deberá pasarla para continuar a la siguiente asignatura";
      
      FinSi
      si cup <> 7 entonces 
       Escribir "  usted no tiene cupo disponible en ninguna sección", " espere la semana tres";
       escribir " para inscribirse en las disponibles";
      FinSi
     
     
      Para cup<-1 hasta 7 hacer 
       Escribir " hay cupos disponibles  en el aula :", cup;
      FinPara
      escribir " ingrese el aula donde inscribira asignatura";
      leer cup;
      Escribir " cancelará por cada materia adicionada a su plan:", 0,5*mat, " bolívares";
      Escribir " su inscripción fue realisada, aqui tiene su constancia de inscrpcion de materias:";
      Escribir "" , asig, " será dada en el aula:",cup; 
     
     
     2:
      Escribir" disponibles!";
      Escribir " si y solo si a partir de la semana tres se consolida cambios y retiros de asignaturas";
      EScribir" verifique cantidad de materias aprobadas o intente mas tarde";
      Escribir " Modificar asignatura";
      escribir" 1:  ingrese la asignatura que desea retirar:";
      Escribir " 2:  ingrese la asignatura a adicionar:";
      Escribir " 3:Régimen  ( suspension temporal)";
      escribir " ingrese el caso para modificar asignatura:";
      leer c;
      segun c hacer 
       1:
        Imprimir " retirar asignatura";
        Escribir " retiro de asignatura :";
        leer asig;
        Escribir " ingrese (1) si la va a retirar, ¿ estás seguro?";
        leer mat;
        si mat= 1 entonces 
         Escribir " una ves retirada esta materia no volverá a ingresarse";
        sino 
         Escribir " Si no ha efectuado retiro el sistema le permitirá adicionar materia";
         escribir " no ha adicionado la asignatura por que no efectuo  retiro ";
         Escribir " cancelara por cada materia adicionada a su plan:", 0,5*mat, " bolívares";
        FinSi
        escribir" si quiere adicionar presione (2) para la otra opción";
        leer c;
       2:
        imprimir " adicion de asignaturas";
        Escribir "la segunda opción es:";
        Escribir " Modificar ";
        escribir " adición de asignaturas: ingrese por favor la asignatura que desea ver en el lapso:";
        leer asig;
        si cup=1 entonces 
         Escribir " inscrito en la sección :", cup;
        Sino
         escribir " lo siento cupo no disponible en esta seccion:", cup, ;
        FinSi
        Escribir "  si ha culminado,  guarde  su modificación en sistema presionando (1)";
        leer r;
        escribir  " si quiere  ver si esta en regimen  presione (3) para la otra opción";
        leer c;
       3:
        Escribir " Régimen";
        Escribir   " caso de que el estudiante esté en regimen:";
        escribir " caso de que la materia este reprobada 3 veces quedara sancionado hasta abrobar el siguiente semestre";
        para mat <-1 hasta 3 hacer 
         Escribir" la materia se reprobó :" mat, " ( veces)";
        FinPara 
        si mat >=3 entonces 
         Escribir " esta en regimen ";
         Escribir " usted se inscribira " , " en el siguiente lapso:", ;
        sino 
         escribir " tiene chance de pasar, esfuércece";
        FinSi
       
       
      FinSegun
     De Otro Modo:
      Escribir " salir y volver mas tarde sin estres , no hay mas aula disponible, espere ";
    FinSegun
    Escribir " escribir ingrese (2)   para guardar cambios y salir ";
    leer r;
   Hasta Que r= 2
  
 FinSegun
FinProceso









Otro simulador del proceso anterior 
      
Proceso inscripciones
Definir c,ncu, lap, clav, cup,mat,not,r, op, n , ano Como Entero;
definir car, banc,cuent, usu,pag, asig como caracter;
Definir dep Como Real;
repetir
Escribir " estas opciones es para los estudiantes de Pregrado";
Escribir " introduzca su proyecto de carrera:";
leer car;
Escribir "   comando .................caso...... evento...";
Escribir "  nuevo ingreso..............1.......precio 4ooo de deposito inicial ";
Escribir " estudiante regular .........2........precio 0,5 c/u materias inscritas ";
Escribir " introduzca una opcion ( caso) por favor , ya sea 1; 2 :";
Escribir " introduzca su caso  :";
leer c;
segun c hacer
// El primer caso se requiere imprimir en pantalla los datos
// del estudiante nuevo ingreso por simulación de voucher que se guarda en el sistema.
1:
Escribir " nuevo ingreso!";
Escribir " Los estudiantes QUE NO TENGAN SALDO A SU FAVOR EN EL SISTEMA DE INSCRIPCIÓN,";
Escribir " deberan registrar su deposito bancario en el lapso establecido";
Imprimir " introduzca año de inscripcion:";
leer ano;
// en el lapso académico por ejemplo 2017-(2) donde es 20172.
Escribir " indique el lapso academico de su seleccion:";
leer lap;
// en esta parte se le pide al usuario que introduzca sus datos
//que seran impresos en pantalla como un comprobante del arancel en dato.
Escribir "  suba datos al sistema:";
Escribir " introduzca tipo de banco:";
Leer banc;
Escribir " introduzca tipo de cuenta:( ahorro o corriente)";
leer cuent;
Escribir " ingrese numero de cuenta:";
leer ncu;
Escribir " ingrese monto a depositar:";
leer dep;
si dep>= 4000 entonces
escribir " el alumno deposito la cantidad requerida de su inscripcion";
Escribir " aqui está su constancia de inscripcion", " ha cumplido de manera exitosa su arancel";
Escribir "  su deposito fue de:" , dep, "activo";
Escribir  "dato:"  banc, "/" cuent,"/" ncu,"/" ano,"/" lap;
Sino
Escribir " deposite o perdera cupo";
n <-3;
// Para la variable n (3)es el numero de dias disponible para que el estudiante deposite
// en caso del dia 3 que debe validarse sera admitido.
// en caso contrario no será admitido y perdera su oportunidad de estudio.
// se guarda el dia tres en la variable entera n.
// es un conteo de los dias disponibles donde le avisa al usuario el cause.
Escribir "perdera su oportunidad al cabo de: " n ,"dias", "la pagina cerrara";
Escribir "Le quedan ",n," dias disponibles";
Escribir " la pagina solo podra asistirlo una ves al dia";
FinSi
// Para la segunda opcion, el estudiante regular ingresa similar como en el sistema sase UNEG
// se rectificara los datos en el sistemas mostrando su clave de usuario que ha ingresado
// en pantalla se mostrara el deposito del alumno como si esperare el mismo que sea validado.
//se ha colocado que el saldo inicial sea mayor a (2) por que cada asignatura tiene un costo de 0'5 bolívares.
//en caso contrario no será aceptado por el sistema y sera puesto como saldo insuficiente
2:
Escribir "¡ Proceso de inscripcion del estudiante regular !";
Escribir " ingrese en linea al sistema de inscripcion pregrado";
Escribir " Introducir su  Usuario por favor(letras) :";
leer usu;
Escribir " Hola ", usu,"    ", "introdusca Clave por favor (numeros):";
leer clav;
// se evalua el caso de que haya cancelado con punto en Edificio General o que ha depositado en el Banco a contado.
Escribir " ingrese forma de pago( efectivo o con tarjeta)";
leer pag;
Escribir " rectifique por favor los datos ingresados",":", usu,"/" clav,"/" pag;
// se muestra en pantalla los datos ingresados por parte del estudiantado.
// De esta forma el sistema cargue datos a solicitud.
// esta fase es exclusiva del pago inicial que corresponde al proceso de inscripción.
// El usuario debera realizar nuevamente un deposito de su saldo prima para la inscripcion de materias posteriormente.
Escribir " Espere que la Coordinacion de Informatica y de Estadistica valide su deposito";
Imprimir "*********************inicializando, comprobando datos.....*********************";
Escribir " ingrese el saldo : ( su deposito al sistema por favor):";
leer dep;
// caso de que sea mayor que (2) por que debe que quedar saldo despues de cancelar por asignatura el coste de 0,5 bolívares.
// Sino, por lo contrario se le pide al usuario que deposite de nuevo ( ingrese/abone saldo).
si dep>=2 entonces
Escribir " su deposito ha sido confirmado exitosamente!", dep," bolivares";
Sino
Escribir " No valido, ingrese de nuevo el deposito"," su saldo es insuficiente" ;
FinSi
// EL PROCESO CONTINUA SI Y SOLO SI HAY SALDO PARA QUE PUEDA CANCELAR DICHAS ASIGNATURAS.
// al finiquitar , se le presenta al usuario las opciones a elegir de acuerdo a su caso, para formalizar inscripciones.
Escribir " disponibilidad de cupos:";
Escribir " opcion 1:  cupo  y cancelar asignatura";
Escribir " opcion 2: disponibles ";
leer c;
Repetir
Segun c hacer
//en esta fase se evalúa si el estudiante puede o no cursar la asignatura del siguiente semestre
// exclusivo, en asignaturas que priven , debido a que la carga y unidades de creditos se evalua
//si aprueba o no dicha asignatura.
1:
escribir  " inscribir asignaturas", "tiene cupo disponible ";
EScribir " ¿ cuantas materias desea inscribir ?(ingrese numero por favor) ";
leer mat;
Escribir "ingrese asignatura que priva el siguiente semestre";
leer asig;
Escribir " inscripcion de asignaturas:", asig  ";",  " caso de que prele";
EScribir " cual fue su calificacion de" ":" asig;
leer not;
si not>= 6 entonces
Escribir " ha aprobado asignatura, felicidades , no hay inconveniente";
Escribir " puede formular su inscripcion de la siguiente  asignatura:";
leer asig;
sino
Escribir " ha reprobado asignatura" , asig ," debera pasarla para continuar a la siguiente asignatura";
FinSi
cup<-1;
n<-3;
si cup <> 7 entonces
Escribir "  usted no tiene cupo disponible en ninguna seccion", " espere la semana tres";
imprimir" debera pasar asignatura para seguir y aumentar su promedio";
escribir " Pero,para inscribirse en las disponibles", "  " , " esta las siguientes secciones:";
FinSi
escribir " estas secciones estan disponibles en sistema:";
Para cup<-1 hasta 9 hacer
Escribir " hay cupos disponibles  en la seccion  :", cup;
FinPara
escribir " ingrese el aula donde inscribira asignatura";
leer cup;
Escribir " cancelará por cada materia adicionada a su plan:", 0.5*mat, " bolívares";
Escribir " su inscripción fue realisada, aqui tiene su constancia de inscrpcion de materia:";
Escribir "" , asig, " será dada en el aula:",cup;
2:
Escribir" disponibles!";
Escribir " si y solo si a partir de la semana tres se consolida cambios y retiros de asignaturas";
EScribir" verifique cantidad de materias aprobadas o intente mas tarde";
Escribir "**************************************************************************************";
Escribir " Modificar asignatura";
escribir " 1:    ingrese la asignatura que desea retirar:";
Escribir " 2:   ingrese la asignatura a adicionar:";
Escribir " 3:   Régimen  ( suspension temporal)";
escribir " ingrese el caso para modificar asignatura:";
leer c;
segun c hacer
1:
Imprimir " retirar asignatura";
Escribir " retiro de asignatura :";
leer asig;
Escribir " ingrese (1) si la va a retirar, ¿ estas seguro?";
leer mat;
si mat= 1 entonces
Escribir " una ves retirada esta materia no volvera a ingresarse";
sino
Escribir " Si no ha efectuado retiro el sistema le permitira adicionar materia";
escribir " no ha adicionado la asignatura por que no efectuo  retiro ";
Escribir " cancelara por cada materia adicionada a su plan:", 0.5*mat, " bolivares";
FinSi
escribir " si quiere adicionar presione (2) para la otra opcian";
leer c;
2:
imprimir " adicion de asignaturas";
Escribir "la segunda opcion es:";
Escribir " Modificar ";
escribir " adicion de asignaturas: ingrese por favor la asignatura que desea ver en el lapso:";
leer asig;
si cup=9 entonces
Escribir " inscrito en la seccion :", cup;
Sino
escribir " lo siento cupo no disponible en esta seccion:", cup, ;
FinSi
Escribir "  si ha culminado,  guarde  su modificacion en sistema presionando (1)";
leer r;
escribir " si quiere  ver si esta en regimen  presione (3) para la otra opcion";
leer c;
3:
Escribir " Regimen";
Escribir " caso de que el estudiante esté en regimen:";
escribir " caso de que la materia este reprobada 3 veces quedara sancionado hasta aprobar el siguiente semestre";
Imprimir " introdusca la materia que se encuentra en regimen:";
leer asig;
para mat <-1 hasta 3 hacer
Escribir" la materia se reprobo :" asig,"  " , mat, " ( veces)";
FinPara
Escribir " introdusca el numero de veces en el que se ha reprobado la materia";
leer mat;
si mat =3 entonces
Escribir " esta en regimen ";
ano<-2017;
lap<-lap+1;
Escribir " usted se inscribira " , " en el siguiente lapso:",ano,"- " lap;
sino
escribir " tiene chance de pasar, esfuercece";
FinSi
FinSegun
De Otro Modo:
Escribir " salir y volver mas tarde sin estres , no hay mas aula disponible, espere ";
FinSegun
Escribir " escribir ingrese (2)   para guardar cambios de este proceso ";
leer r;
Hasta Que r= 2
De Otro Modo:
escribir " intente de nuevo";
FinSegun
escribir "  si desea volver al menu presione un numero cualquiera , pero ";
Escribir " si desea salir presione (4)";
leer r;
Hasta Que r=4
Escribir " los procesos y cambios se han guardado satisfactoriamente, gracias por ingresar" ;


FinProceso









Algoritmo: diseñe una calculadora aritmética  donde imprima el resultado de la operación de dos números es cero será expresado en pantalla como indeterminado.


Proceso calculadora
      Definir c,r , num1, num2,result como Real;
     
      Repetir
            Escribir "**************Calculadora**********************";
            Escribir "      operación            opción     ";
            Escribir "         suma ............. 1         ";
            Escribir "         resta.......... .. 2         ";
            Escribir "     multiplicación ........3         ";
            Escribir "     división ..............4         ";
            Escribir "";
            Escribir "Ingresa una opción  :";
            Leer c;
           
            Segun c Hacer
                  1:
                        Escribir " has seleccionado suma";
                        Escribir " introdusca un  para sumarlo:";
                        leer num1;
                        Escribir " introdusca otro numero:","por favor para sumarlo con el primer numero :";
                        leer num2;
                        result<-num1+num2;
                        Escribir " El resultado   es: ", result ;
                  2:
                        Escribir " has seleccionado resta";
                        Escribir " introdusca un numero para restarlo:";
                        leer num1;
                        Escribir " introdusca  otro numero a evaluar:", " por favor para restarlo con primer numero:";
                        leer num2;
                        result<-num1-num2;
                        Escribir " El resultado es:", result;
                  3:
                        Escribir "   has seleccionado multiplicación";
                        Escribir " introdusca un numero para multiplicar:";
                        leer num1;
                        Escribir " introdusca otro numero a evaluar:", " por favor  para multiplicarlo con el primer numero:";
                        leer num2;
                        result<-num1*num2;
                        Escribir " El resultado es:", result;
                  4:
                        Escribir  " has seleccionado división:";
                        Escribir " introdusca un numero para dividir:";
                        leer num1;
                        Escribir " introdusca otro num:"," por favor  para dividirlo con el numero ingresado:";
                        leer num2;
                        result<-num1/num2;
                        Escribir " El resultado es:", result;
                        si result=0 entonces
                             escribir " indeterminado";
                        Sino
                             si result<>0 entonces
                                   Escribir "admitible  resultado para comprobar", " dirijase a op 4 multiplique result y divisor";
                                  
                                  
                                  
                             FinSi
                        FinSi
                 
                  de Otro Modo:
                        Escribir "Error del sistema ";
            FinSegun
            Escribir "Desea volver al menu? (1)si (2)no";
            Leer r;
      Hasta Que r=2
     
FinProceso