BUCLE FINITO

Proceso bucle_finito
    Definir Opciones Como Entero ;
    Escribir "********MENU************" ;
    Escribir "1)Trabajo Termico" ;
    Escribir "2)Suma Algebraica" ;
    Escribir "3)Velocidad Final" ;
    Escribir "4)Energia Potencial" ;
    Escribir "5)Elija Una Opcion" ;
    Leer Opciones ;
    Segun Opciones Hacer 
        1:
            Escribir "opcion 1" ;
            Definir W,P2,V2,P1,V1,n,Inicial1,Inicial2,Final1,Final2 como real ;
            Escribir "Ingrese Presion 2"
            Leer P2 ;
            Escribir "Ingrese Volumen 2"
            Leer V2 ;
            Escribir "Ingrese Volumen 1"
            Leer V1 ;
            Inicial1<-0 ;
            Final<-0.9 ;
            Inicial2<-10 ;
            Final2<-15 ;
                Para n<-0 Hasta 0.9 Con Paso 0.1 Hacer 
                    Para P1<-10 Hasta 15 Con Paso 0.2 Hacer
                   W<-(P2*V2-P1*V1)/(1-n)
                        Escribir "Para P2=",P2,"y V2=",V2,"P1=",P1,"Y V1=",V1,"Y la eficiencia n=2",n,"Es",w; 
                    Fin Para
                Fin Para
        2:
                Escribir "opcion " ;
                Definir a,b,c,Inicial1,Inicial2,Final1,Final2 como real ;
                Inicial1<-10 ;
                Final<-15 ;
                Inicial2<-1 ;
                Final2<-10 ;
                Para a<-10 Hasta 15 Con Paso 0.025 Hacer 
                    Para P1<-1 Hasta 10 Con Paso 0.1 Hacer
                        c<-a+b
                        Escribir "Para a=",a,"y b=",b,"c=",c,"Es",c;
                    Fin Para
                    
                Fin Para
        3:
                Escribir "opcion 3" ;
                Definir Vf,Vi,a,e,Inicial1,Inicial2,Final1,Final2 como real ;
                Escribir "Ingrese Velocidad Final"
                Leer Vf ;
                Escribir "Ingrese Velociadad Inicial"
                Leer Vi ;
                Escribir "Ingrese Aceleracion"
                Leer a ;
                Inicial1<-10 ;
                Final<-30 ;
                Para e<-10 Hasta 30 Con Paso 1.5 Hacer 
                    
                    Vi<-rc(Vi^2)+(2*a*e)
                    Escribir "Para Vf=",Vf,"y Vi=",Vi,"a=",a,"Y e=",e,"Es",Vf; 
                    
                Fin Para
                
        4:
                
                Escribir "opcion 4" ;
                Definir Ep,m,g,h,Inicial1,Inicial2,Final1,Final2 como real ;
                Escribir "Ingrese masa"
                Leer m ;
                Escribir "Ingrese haltura"
                Leer h ;
                Inicial1<-4 ;
                Final<-16 ;
                Para n<-4 Hasta 16 Con Paso 2.5 Hacer 
                    
                    Ep<-m*g*h
                    Escribir "Para Ep=",Ep,"y m=",m,"g=",g,"Y h=",h,"Es",Ep; 
                    
             Fin para    
      FinSegun
    
FinProceso

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

​