BUCLES FINITOS :

Proceso semana
   
    definir opcion1 Como Entero ;
    escribir " ingrese una opcion ";
    escribir "********menu********" ;
    escribir "1. TRABAJO TERMICO "
    escribir "2.SUMA"
    escribir "3. MRUV "
    escribir "4. ENERGIA POTENCIAL. "
    leer opcion1;
    Segun opcion1 Hacer
        1:
            //declaracion
            definir w,p2,p1,v1,v2,n,inicial1,fianal1,inicial2,final2 como real;
            //asignacion
            escribir "p2"
            leer p2
            escribir "v2"
            leer v2
            escribir "v1"
            leer v1
            //proceso
            inicial1= 0
            final1= 0.9
            inicial2 = 10
            final2 = 15
            Para n<-inicial1 Hasta final1 Con Paso 0.1 Hacer
                Para p1<-inicial2 Hasta final2 Con Paso 0.2 Hacer
                  

 

                                    w= (p2*v2-p1*v1)/(1-n)
                    escribir "para p2 =",p2,"y v2=",v2, "y p1=",p1,"y v1=",v1, "y la eficiencia n=",n,"es: ", w;
                Fin Para
            Fin Para
            
            
        
        2: 
            //declaracion
            definir a,b,c,inicial1,final1,inicial2,final2 Como Real
            //proceso
            inicial1= 10
            fianl1=15
            inicial2=1
            final2=10
            Para a<-final1 Hasta final1 Con Paso 0.025 Hacer
                Para b<-inicial2 Hasta final2 Con Paso 0.1 Hacer
                  

 

                     c=a+b
                    escribir "para a=",a, "y b=",b, es c
                Fin Para
            Fin Para
            
        3:
            //declaracion
            definir vf,vi,a,e,inicial,final como real
            //asignacion
            escribir "v1"
            leer v1
            escribir "a"
            leer a
            //proceso
            inicial=10
            final=30
            
            Para e<-inicial Hasta final Con Paso 1.5 Hacer
                

 

               vf=rc(v1^2+(2*a*e))
                escribir "para v1 =",v1, "y a=",a,"y e=",e,es vf
            Fin Para
            
        4:
            //declracion
            definir ep,m,g,h,inicio1,final1,inicio2,final2 como real
            //asignacion 
            g=9.81
            inicio1=10

           final1=150

           inicio2=25

           final=125
            Para m<-inicio1 Hasta final1 Con Paso 5 Hacer
                     Para m<-inicio12 Hasta final2 Con Paso 2.5 Hacer 

​

                  ep<-m*g*h  

                     escribir "si m es " ,m, "y h es " ,h, " la energia potencial es " ,ep
          

                       Fin Para
          

       Fin Segun
    
    
FinProceso