1-CLASE DEL DÍA JUEVES:
Proceso CLASE_DEL_DÍA_JUEVES
Definir opc Como Entero
Escribir "********menú*******"
Escribir "1)CAUDAL"
Escribir "2)FRECUENCIA"
Escribir "3)TRABAJO_CALORIFICA"
Escribir "ingrese opcion"
leer opc
segun opc hacer
1:
Definir p1,p2,r,visc,l,caudal,inicial,final Como Real;
//ASIGNACIÓN
Escribir "presion incial";
Leer p1;
Escribir "presión final";
Leer p2;
Escribir "longitud";
Leer l;
Escribir "viscosidad";
Leer visc
inicial=10
final=15
r<-inicial;
Mientras r<=final Hacer
caudal<-((p2-p1)*(r^4))/((8/pi)*(visc*L))
Escribir "Caudal:",caudal
R<-R+0.5
FinMientras
2:
Definir F,K,M,inicial,final Como Real;
//ASIGNACIÓN
Escribir "constante";
Leer K;
inicial=10
final=20
M<-inicial;
Mientras M<=final Hacer
F=(1/2*PI)*RC(K/M)
Escribir "FRECUENCIA:",F;
M<-M+1.5
FinMientras
3:
Definir W,PO,V1,V2,M,inicial,final Como Real;
//ASIGNACIÓN
Escribir "MASA";
Leer M;
Escribir "VOLUMÉN INICIAL";
Leer V1;
Escribir "VOLUMÉN FINAL";
Leer V2;
inicial=100
final=200
PO<-inicial;
Mientras PO<=final Hacer
W=M*PO*(V2-V1)
Escribir "TRABAJO CALORIFICO ES:",W;
PO<-PO+10
FinMientras
FinSegun
FinProceso
2-CLASE DEL DÍA VIERNES :
Proceso CLASE_DEL_DÍA_VIERNES
Definir opc Como Entero
Escribir "********menú*******"
Escribir "1)vector"
Escribir "2)ecuacion de young"
Escribir "3)densidad"
Escribir "ingrese opcion"
leer opc
segun opc hacer
1:
//declaración
definir a,b,c Como Entero;
definir alpha,x1,x2,x3, inicial,final,rad Como Real;
//asignación
Escribir "a";
Leer a;
Escribir "b";
Leer b;
Escribir "c";
Leer c;
//inicialización
inicial=10;
final=180;
alpha<-inicial;
//proceso
Repetir
rad<-(2*pi*alpha)/360;
x1<-a*(cos(rad));
x2<-b*(sen(2*rad));
x3<-c*3*(cos(rad));
Escribir "A=(",x1,",",x2,",",x3,")",;
alpha<-alpha+30;
Hasta Que alpha>=final
2:
Definir pint,ptex,d,radio,inicial,final como real;
//asignación
Escribir "presion externa";
Leer ptex;
Escribir "densidad";
leer d;
//inicialización
inicial=0.5;
final= 4;
radio=inicial;
//proceso
Repetir
pint=ptex+(2*(d/radio));
Escribir "la presión interna es:",pint;
radio=radio+0.2;
Hasta Que radio>=final;
3:
//declaracion
Definir df,di,t,tc,n,inicial,final como real;
//asignación
Escribir "densidad inicial";
leer di;
Escribir "temperatura critica";
Leer tc;
//inicialización
inicial=8;
final=28;
n=0.8;
t=inicial
//proceso
Repetir
df=di*((1-(t/tc))^2);
Escribir "densidad final es:",df;
t=t+2.5;
Hasta Que t>=final
FinSegun
FinProceso
