Tarea Evap 7

Proceso BUCLES
    Definir opcion Como Entero;
    escribir "****************";
    escribir " M E N U ";
    Escribir "****************";
    Escribir " 1; resistencia ";
    escribir " 2: proyeccion del vector s sobre el vector b ";
    escribir " 3; ecuacion de la recta ";
    escribir "ingrese una opcion";
    leer opcion;
    segun opcion hacer 
        opcion 1:
            //declaracion
            Definir R, V, I Como Real
            //asignar
            escribir " 1; resistencia ";
            Leer I;
            //proceso
            inicial = 100;
            final = 220;
            V = inicial;
            Mientras (V <= final) HACER 
                R<- V/I
                V <- V + 10
                escribir " la resistencia es: ", R;
                ESCRIBIR " el voltaje es:", V;
                Escribir " LA intensidad de coriente es:", I;
            FinMientras
            //RESULTADO
        
    opcion 2:
        //declaracion
        Definir p,a,b,c Como Real
        //asignar
        escribir " 2: proyeccion del vector s sobre el vector b  ";
        Leer c;
        leer b;
        //proceso
        inicial = 1;
        final = 2;
        a = inicial;
        Mientras (a <= final) HACER 
            p<- (a*b/abs(b))*c
            a<- a + 0.1
            escribir " vector a es: ", a;
            ESCRIBIR " vector b es:", b;
            Escribir " LA proyeccion es:", p;
        FinMientras
        //RESULTADO
    opcion 3:
        //declaracion
        Definir   y1, x  Como Real
        //asignar
        escribir " 3; ecuacion de la recta  ";
    
        //proceso
        inicial = 0;
        final = 10;
        x = inicial;
        Mientras (a <= final) HACER 
            y1<- 4+3*x            
            x<- x + 0.3
            escribir " ecuacion de la recta: ", y1;
            ESCRIBIR " x:", x;
            
        FinMientras
        
    FinSegun

    
FinProceso