Segundo Algoritmo Desarrollado en Clases

// voltaje

SubProceso voltaje()

    escribir " ingrese valor para vo";

    leer vo;

    escribir " ingrese valor para angulo";

    leer w;

    inicio3=2;

    final3=15;

    Si vo>4 Entonces

        Para t<-inicio3 Hasta final3 Con Paso 2 Hacer

            vol=vo*t*sen(w);

            escribir "el voltaje es ",vol;

        Fin Para

    Sino

        escribir " es indeterminado";

 Fin Si Fin SubProceso

​

​

//energia cinetica

SubProceso energiacinetica()

    escribir " ingrese valor para u";

    leer u;

    inicio2=10;

    final2=20;

    Si u<>0 Entonces

        Para m<-inicio2 Hasta final2 Con Paso 2 Hacer

            ec=(m*u^2)/2

            escribir "la energia cinetica es ",ec;

        Fin Para

    Sino

        escribir " es indeterminado";

 Fin Si Fin SubProceso

​

​

// inductancia

SubProceso inductancia()

    escribir " ingrese valor para fm";

    leer fm;

    escribir " ingrese valor para i";

    leer i;

    inicio=100;

    final=200;

    Si i>2 Y i<10 Entonces

        Para n<-inicio Hasta final Con Paso 1.5 Hacer

            l=fm*n/i

            escribir "la inductancia es ",l;

        Fin Para

    Sino

        escribir " es indeterminado";

 Fin Si Fin SubProceso

​

​

Proceso formulas

    definir l,fm,i,n,ec,u,v,m,vo,vol,w,t,menu Como Real;

    definir inicio,final,opcion,inicio2,final2,inicio3,final3 Como Entero;

    Escribir  "menu";

    Escribir  "1-inductancia";

    Escribir  "2-energia cinetica";

    Escribir  "3-voltaje";

    escribir " ingrese opcion";

    leer opcion;

    Segun opcion Hacer

        1:

            inductancia()

        2:

            energiacinetica()

        3:

            voltaje()

        De Otro Modo:

            escribir "fuera de rango"

        Fin Segun

FinProceso