TRABAJO EN PSEINT DEL
JUEVES Y VIERNES
SubProceso tension_superficial()
dimension tension(300)
Escribir "ingrese la temperatura critica";
leer tc;
Escribir "ingrese la temperatura de ambiente";
leer t;
inicial=100
final=200
i=1
n=0.80
a=inicial
Para a<-inicial Hasta final Con Paso 0.5 Hacer
tension(i)=a*((1-(t/tc))^n)
i=i+1
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=1;
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
//suma
suma=0
Para i<-inicial Hasta final Con Paso 1 Hacer
suma=suma+campo(i)
Fin Para
escribir "suma= ",suma
//promedio
prom=suma/final
escribir "promedio= ",prom;
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=1;
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
//suma
suma=0
Para i<-inicial Hasta final Con Paso 1 Hacer
suma=suma+ecuacion(i)
Fin Para
escribir "suma= ",suma
//promedio
prom=suma/final
escribir "promedio= ",prom;
FinSubProceso
Proceso JUEVESYVIERNES_CDGH_IIEE_2
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