top of page

PSEUDOCODIGO "FORMULAS CON COMANDO MIENTRAS"

    Escribir "***********MENU***********"
    Escribir "1)FORMULA DE LA FUERZA"
    Escribir "2)FORMULA DE VELOCIDAD EN CAIDA LIBRE"
    Escribir "3)FORMULA DE LA POTENCIA"
    Escribir "4)FORMULA DE LA GANANCIA"
    Escribir "SELECCIONE UNA FORMULA:"
    Leer PROGRAMA
    Segun PROGRAMA Hacer
        1:
            Definir Fuerza, Presion, Area como Real;
            Inicial=10;
            Final=100;
            Escribir "INGRESE EL AREA:"
            Leer Area;
            Presion=Inicial;
            Mientras (Presion<=Final) Hacer
                Fuerza<-Presion/Area;
                Presion=Presion+5;
                Escribir "La Fuerza es:", Fuerza;
            Fin Mientras
        2:
            Definir Velocidad, Gravedad, Masa, Altura como Real
            Inicial=5;
            Final=10;
            Escribir "Ingrese la Masa:"
            Leer Masa;
            Altura=Inicial;
            Mientras (Altura<=Final) Hacer
                Gravedad<-9.8
                Velocidad<-Gravedad*Masa*Altura;
                Altura=Altura+0.5;
                Escribir "La Velocidad es:", Velocidad;
            Fin Mientras
        3:
            Definir Potencia, Voltaje, Corriente como Real
            Inicial=110;
            Final=220;
            Escribir "Ingrese la Intensidad de Corriente:"
            Leer Corriente;
            Voltaje=Inicial;
            Mientras (Voltaje<=Final) Hacer
                    Potencia<-Voltaje*Corriente;
                Voltaje=Voltaje+10;
                Escribir "La Potencia es:", Potencia;
            Fin Mientras
        4:
            Definir Ganancia, Corriente_Base, Corriente_Colector como Real
            Inicial=1;
            Final=5;
            Escribir "Ingrese la Corriente de Base:"
            Leer Corriente_Base;
            Corriente_Colector=Inicial;
            Gravedad<-9.8
            Mientras (Corriente_Colector<=Final) Hacer
                Ganancia<-Corriente_Colector/Corriente_Base;
                Corriente_Colector=Corriente_Colector+0.2;
                Escribir "La Ganancia es:", Ganancia;
            Fin Mientras
        De Otro Modo:
            Escribir "NO HA SELECCIONADO UNA FORMULA"
        Fin Segun
FinProceso

PSEUDOCODIGO "FORMULAS CON COMANDO MIENTRAS"

Proceso FORMULAS_BUCLE
    //INICIO
    //DECLARACION
    Definir Inicial, Final, PROGRAMA como Enteros
    //ELEGIR OPCION FORMULA
    Escribir "***********MENU***********"
    Escribir "1)FORMULA DE INTENSIDAD MAXIMA"
    Escribir "2)FORMULA DE EFICIENCIA VOLUMETRICA"
    Escribir "3)FORMULA DE VOLUMEN DE DESPLAZAMIENTO"
    Escribir "SELECCIONE UNA FORMULA:"
    Leer PROGRAMA
    Segun PROGRAMA Hacer
        1:
            //INICIO
            //DECLARACION
            Definir Intensidad_Max, Voltaje, Resistencia, React_Induct, React_Cap como Real;
            //ASIGNACION
            Escribir "INGRESE LA RESISTENCIA:"
            Leer Resistencia;
            Escribir "INGRESE LA REACTANCIA INDUCTIVA:"
            Leer React_Induct;
            Escribir "INGRESE LA REACTANCIA CAPACITIVA:"
            Leer React_Cap;
            Inicial=110
            Final=220;
            Voltaje=Inicial;
            //PROCESO
            Repetir
                Intensidad_Max<-Voltaje/Rc((Resistencia)^2+(React_Induct-React_Cap)^2);
                Voltaje=Voltaje+7.5
                //RESULTADO
                Escribir "LA INTESIDAD MAXIMA ES:", Intensidad_Max;
            Hasta Que (Voltaje=Final)
            //FIN
        2:
            //INICIO
            //DECLARACION
            Definir Efic_Vol, Vol_2, Vol_1, Vol_Desplaz como Real
            //ASIGNACION
            Escribir "INGRESAR EL VOLUMEN 1:"
            Leer Vol_1;
            Escribir "INGRESAR EL VOLUMEN DE DESPLAZAMIENTO:"
            Leer Vol_Desplaz;
            Inicial=0;
            Final=10;
            Vol_2=Inicial;
            //PROCESO
            Repetir
                Efic_Vol<-(Vol_2-Vol_1)/Vol_Desplaz;
                Vol_2=Vol_2+0.05;
                //RESULTADO
                Escribir "LA EFICIENCIA VOLUMETRICA ES:", Efic_Vol;
            Hasta Que (Vol_2=Final)
            //FIN
        3:
            //INICIO
            //DECLARACION
            Definir Volumen_Desplaz, Diametro como Real
            Inicial=2;
            Final=10;
            Diametro=Inicial;
            //PROCESO
            Repetir
                Volumen_Desplaz<-1/4*(PI*(Diametro)^2);
                Diametro=Diametro+0.5;
                //RESULTADO
                Escribir "EL VOLUMEN DE DESPLAZAMIENTO ES:", Volumen_Desplaz;
            Hasta Que (Diametro=Final)
            //FIN
        De Otro Modo:
            Escribir "NO HA SELECCIONADO UNA FORMULA"
        Fin Segun
FinProceso
//FIN 

bottom of page