​

SubProceso tension_superficial()
    dimension tension(3000)
    
    Escribir "ingrese la temperatura critica";
    leer tc;
    Escribir "ingrese la temperatura de ambiente";
    leer t;
    inicial=100
    final=200
    i=10
    n=0.80
    a=inicial
    Para a<-inicial Hasta final Con Paso 5 Hacer
        tension(i)=a*((1-(t/tc))^n)
        i=i+100
        ultimo=i
    Fin Para
    
    //imprimir el vector
    Para i<-1 Hasta ultimo Con Paso 1 Hacer
        escribir "la tensión superficial ( ", i ,") = ", tension(i);
        i=i+1
    Fin Para
    
    //suma
    suma=0
    Para i<-inicial Hasta final Con Paso 1 Hacer
        suma=suma+tension(i)
    Fin Para
    escribir "suma= ",suma
    
    //promedio
    prom=suma/final
    escribir "promedio= ",prom;
    
FinSubProceso

 

 

 

Subproceso campo_magnetico()
    dimension campo(500)
    escribir "ingrese el número de espiras";
    leer n;
    u=0.0125;
    inicial=0.25;
    final=8;
    l=inicial;
    inicial1=10;
    final1=20;
    i1=inicial1;
    i=1
    Para l<-inicial Hasta final Con Paso 0.5 Hacer
        Para i1<-incial1 Hasta final1 Con Paso 1 Hacer
            campo(i)=(u*i1*n)/l
            i=i+1
            ultimo=i
        Fin Para
    Fin Para
    
    //imprimir el vector 
    Para i<-1 Hasta ultimo Con Paso 1 Hacer
        escribir "el campo [",i,"] =",campo(i);
        i=i+1
    Fin Para
    
    
FinSubProceso

 

 

SubProceso ecuacion_de_young()
    dimension ecuacion(400)
    escribir "presion";
    leer p;
    escribir "radio";
    leer r;
    escribir "tensión superficial";
    leer tesu;
    pex=inicial;
    inicial=0.25;
    final=9;
    i=1
    Para pex<-incial Hasta final Con Paso 0.25 Hacer
        ecuacion(i)=pex+((2*tesu)/r);
        i=i+1;
        ultimo=i;
        
    Fin Para
    
    //imprimir el vector
    Para i<-1 Hasta ultimo Con Paso 1 Hacer
        escribir "la ecucacion [", i ,"] =",ecuacion(i);
        i=i+1
    Fin Para
    
    
FinSubProceso

 

Proceso VECTORES
    Definir ultimo,n,tc,t,a,i, inicial, final como real;
    definir inicial1,final1,u,i1 Como real;
    definir pex, tesu, r como real;
    definir suma,prom como real;
    Definir OPC Como Entero
    escribir "MENÚ";
    Escribir "1-TENSIÓN SUPERFICIAL";
    Escribir "2-campo magnético";
    Escribir "3-ecuación de young";
    Escribir "Ingrese una Opcion";
    Leer OPC;
    Segun OPC Hacer
        1:
            tension_superficial()
        2:
            campo_magnetico()
        3:
            ecuacion_de_young();
        De Otro Modo:
            Escribir "Fuera de Rango";
        Fin Segun
        
    FinProceso