Proceso BUCLE_INFINIO
Definir opcion como Entero;
Escribir " ";
Escribir "           MENU INICIO         ";
Escribir " ";
Escribir "1) Calcular la Resistencia";
Escribir "2) Calcular la Proyección de A sobre B con un variable C";
Escribir "3) Calcular la Función";
Escribir "Elegir una opcion";
Leer opcion;

Segun opcion Hacer
    1:
        Definir R, V, I Como Real;
        Escribir "Ingresar el valor de la Corriente: ";
        Leer I;
        V <-100; //Definir mi punto de partida
        FINAL<-220;
        Mientras (V<=FINAL) Hacer
            R<-V/I;
            V<-V+10;
            Escribir "El Valor del VOLTAJE es: ", V;
            Escribir "El Valor de la RESISTENCIA es: ", R;
        Fin Mientras
    2:
        Definir Proy ,A, B, C, X Como Real;
        Escribir "Ingrese el valor de B: ";
        Leer B;
        Escribir "Ingrese el valor de C: ";
        Leer C;
        A<-1.1; //Definir mi punto de partida
        FINAL<-1.9;
        Mientras (A<=FINAL) Hacer
            X<-abs(B)^2
            Proy<-((A*B)/X)*C;
            A<-A+0.3;
            Escribir "El Valor de A es: ", A;
            Escribir "El Valor de la PROYECCÍON es: ", Proy;
        Fin Mientras
        
    3:  Definir F Como Real;
        X<-0.1; //Definir mi punto de partida
        FINAL<-10;
        Mientras (X<=FINAL) Hacer
            F<-4+(3*X)
            X<-X+0.3
            Escribir "El Valor de X es: ", X;
            Escribir "El Valor de la Función es: ", F;
        Fin Mientras
        
    De Otro Modo: Escribir "Ingresar una opción correcta";
        
    Fin Segun
FinProceso