top of page

SEMANA 8 - BUCLES INFINITOS 

Proceso BUCLES
    Escribir "BUCLES por FLORES NAVARRO"
        // declaracion
        Definir OPCION1 Como Entero;
        Escribir "************* MENU *********** ";
        Escribir "1)               TRABAJO TÉRMICO ";
        Escribir "2)               TENSION SUPERFICIAL";
        Escribir "3)               ENERGIA CINETICA";
        Escribir "   INGRESE UNA OPCION "; 
        Leer OPCION1;
        
        Segun OPCION1 Hacer
            1:
                //TRABAJO TERMICO
                Definir w,p1,v1,p2,v2,n,inicial,final Como Real;
                Escribir "Ingrese P1"
                Leer p1;
                Escribir "Ingrese V1"
                Leer v1;
                Escribir "Ingrese V2"
                Leer v2;
                n<-0.87;
                inicial<-3;
                final<-10;
                Para p2<-inicial Hasta final Con Paso 0.5 Hacer;
                    w<-((p2*v2)-(p1*v1))/(1-n);
                    Escribir "Si P2 es: ",p2,"     -El trabajo Termico es: ",w;
                Fin Para;
            2:
                //TENCION SUPERFICIAL
                Definir x,x1,tf,ti,n,inicial1,inicial2,final1,final2 Como Real;
                Escribir "agregar la tension inicial";
                Leer ti;
                inicial1<-0;
                inicial2<-100;
                final1<-20;
                final2<-200;
                n<-0.87;
                Para x1<-inicial1 Hasta final1 Con Paso 1.5 Hacer;
                    Para tf<-inicial2 Hasta final2 Con Paso 25 Hacer;
                        x<-x1*((1-(tf/ti))^2);
                        Escribir "Si x1: ",x1," y la tension final es: ",tf,"   -La tension Superficial es: ",x; 
                    Fin Para;
                Fin Para;
            3:
                //ENERGIA CINETICA
                Definir EC,M,V,INICIAL,FINAL Como Real;
                Escribir "Ingrese la masa";
                Leer M;
                INICIAL<-0
                FINAL<-100
                Para V<-INICIAL Hasta FINAL Con Paso 5 Hacer
                    EC<-(0.5*M*(V^2))
                    Escribir "Si la velocidad es: ",V,"  -La Energia Cinetica es: ",EC
                FinPara
            De Otro Modo:
                Escribir "SIN contexto";
        Fin Segun
FinProceso
Proceso BUCLE INFINITO practica
    escribir "BUCLES FINITOS POR FOLRES NAVARRO JHONNY" 
    // declaracion
    Definir OPCION1 Como Entero;
    Escribir "***** MENU ****** ";
    Escribir "1) FORMULA 1 ";
    Escribir "2) FUERZA ELECTROMAGNETICO";
    Escribir "3) FORMULA 3";
    Escribir "4) FUERZA ELECTROSTATICA";
    Escribir "   INGRESE UNA OPCION "; 
    Leer OPCION1;
    
    Segun OPCION1 Hacer
        1:
            //DECLARACION
            Escribir "FORMULA 1"
            Definir F,G,M1,M2,R Como Real;
            Definir INICIO1,INICIO2,FINAL1,FINAL2 Como Real;
            //ASIGNACION
            Leer R;
            //PROCESO
            INICIO1<-0.025;
            FINAL1<-0.5;
            INICIO2<-0.02;
            FINAL2<-0.4;
            G<-0.0175;
            Para M1<-INICIO1 Hasta FINAL1 Con Paso 0.1 Hacer
                Para M2<-INICIO2 Hasta FINAL2 Con Paso 0.02 Hacer
                    F<-(G*M1*M2)/R^2;
                    Escribir "SI M1= ",M1,"Y M2= ",M2,"=",F;
                Fin Para
            Fin Para
        2:
            //DECLARACION
            Escribir "FUERZA ELECTROMAGNETICO"
            Definir FEM,OFI,OO,T Como Real;
            Definir INICIO1,FINAL1 Como Real;
            //ASIGNACION
            Escribir "INGRESE OO"
            Leer OO;
            Escribir "INGRESE T"
            Leer T;
            //PROCESO
            INICIO1<-100;
            FINAL1<-200;
            Para OFI<-INICIO1 Hasta FINAL1 Con Paso 5 Hacer
                FEM<-(OFI-OO)/T;
                Escribir "SI OF= ",OFI,"=",FEM;
            Fin Para
        3:
            //DECLARACION
            Escribir "FORMULA 3"
            Definir V,E,T Como Real;
            Definir INICIO1,INICIO2,FINAL1,FINAL2 Como Real;
            //ASIGNACION
            //PROCESO
            INICIO1<-50;
            FINAL1<-100;
            INICIO2<-5;
            FINAL2<-15;
            Para E<-INICIO1 Hasta FINAL1 Con Paso 10 Hacer
                Para T<-INICIO2 Hasta FINAL2 Con Paso 1 Hacer
                    V<-E/T;
                    Escribir "SI E= ",E,"Y T= ",T,"=",V;
                Fin Para
            Fin Para
        4:
            //DECLARACION
            Escribir "FUERZA ELECTROSTATICA"
            Definir F,K,Q1,Q2,R Como Real;
            Definir INICIO1,INICIO2,FINAL1,FINAL2 Como Real;
            //ASIGNACION
            //PROCESO
            INICIO1<-20;
            FINAL1<-200;
            INICIO2<-4;
            FINAL2<-33;
            K<-30;
            R<-20;
            Para Q1<-INICIO1 Hasta FINAL1 Con Paso 12 Hacer
                Para Q2<-INICIO2 Hasta FINAL2 Con Paso 16 Hacer
                    F<-K*(Q1*Q2)/R^2;
                    Escribir "SI Q1= ",Q1,"Y Q2= ",Q2,"=",F;
                Fin Para
            Fin Para
            
        De Otro Modo:
            Escribir "SIN contexto";
    Fin Segun
FinProceso

Contactame:

Déjame tu opinión:

bottom of page