top of page
Proceso JUEVES
// declaracion
Definir OPC Como Entero;
Escribir "***** MENU ****** ";
Escribir "1)TRABAJO TERMICO";
Escribir "2)TENSION SUPERFICIAL";
Escribir "3)ENERGIA CINETICA";
Escribir " INGRESE UNA OPCION ";
Leer OPC;
Segun OPC Hacer
1:
//Algoritmo Trabajo_Termico
Definir w,p1,v1,p2,v2,n,inicial,final Como Real;
Escribir "Ingrese P1"
Leer p1;
Escribir "Ingrese V1"
Leer v1;
Escribir "Ingrese V2"
Leer v2;
n<-0.87;
inicial<-3;
final<-10;
Para p2<-3 Hasta 10 Con Paso 0.5 Hacer
w<-((p2*v2)-(p1*v1))/(1-n);
Escribir "Si P2 es: ",p2," -El trabajo Termico es: ",w;
Fin Para;
2:
//Algoritmo Tension_Superficial
Definir x,x1,tf,ti,n,ini1,ini2,fin1,fin2 Como Real;
Escribir "Ingrese la tension inicial";
Leer ti;
ini1<-0;
ini2<-100;
fin1<-20;
fin2<-200;
n<-0.87;
Para x1<-ini1 Hasta fin1 Con Paso 1.5 Hacer;
Para tf<-ini2 Hasta fin2 Con Paso 25 Hacer;
x<-x1*((1-(tf/ti))^2);
Escribir "Si x1: ",x1," y la tension final es: ",tf," -La tension Superficial es: ",x;
Fin Para;
fin para
3:
//Algoritmo Energia_Cinetica
Definir Como Real;
Escribir "Ingrese la masa";
Leer m;
ini1<-0
fin1<-100
Para v<-ini1 Hasta fin1 Con Paso 5 Hacer
ec<-(0.5*m*(v^2))
Escribir "Si la velocidad es: ",v," -La Energia Cinetica es: ",ec
FinPara
finSegun
FinProceso
Proceso VIERNES
Definir Opciones Como Entero ;
Escribir "********MENU************" ;
Escribir "1)Trabajo Termico" ;
Escribir "2)Suma Algebraica" ;
Escribir "3)Velocidad Final" ;
Escribir "4)Energia Potencial" ;
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 t, v, e1, Inicial2,Ini2, Final2, Fin2 como Real
Inicial2=50
Final2=100
Ini2=5
Fin2=15
Para e<-Inicial2 Hasta Final2 Con Paso 10 Hacer
Para t<-Ini2 Hasta Fin2 Con Paso 1 Hacer
v<-e/t
Escribir "El Resultado es", v;
FinPara
FinPara
FinSegun
FinProceso
bottom of page