"Estructura de Repetición Finita"
Semana 8
Trabajo en Pseint:
(Jueves)
Proceso JUEVES_EVP8
// Declaracion
Definir OPC Como Entero;
// Asignacion
Escribir "***** MENU ****** ";
Escribir "1)Trabajo Termico";
Escribir "2)Tension Superficial";
Escribir "3)Energia Cinetica";
Escribir "INGRESE UNA OPCION:";
Leer OPC;
//Proceso
Segun OPC Hacer
1:
//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<-inicial Hasta final Con Paso 0.5 Hacer;
w<-((p2*v2)-(p1*v1))/(1-n);
Escribir "El trabajo Termico es: ",w;
Fin Para;
2:
//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 "La Tension Superficial es: ",x;
Fin Para;
Fin Para;
3:
//Energia Cinetica
Definir ec,m,v,ini1,fin1 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 "La Energia Cinetica es: ",ec;
FinPara
Fin Segun
FinProceso
Trabajo en Pseint:
(Viernes)
Proceso Semana_Ocho_Viernes
Definir OPC Como Entero
Escribir "Ingrese una Opcion Del 1 al 4";
Leer OPC;
Segun OPC Hacer
1:
Escribir "Opcion 1"
definir f,g,m1,m2,r,ini1,ini2,fin1,fin2 Como Real
Escribir "Ingrese r";
Leer r;
ini1<-0.025
fin1<-0.5
ini2<-0.02
fin2<-0.4
g<-0.0175
Para m1<-ini1 Hasta fin1 Con Paso 0.1 Hacer
Para m2<-ini2 Hasta fin2 Con Paso 0.02 Hacer
f<-(g*m1*m2)/(r^2)
Escribir "El Resultado es",f;
Fin Para
Fin Para
2:
Escribir "Opcion 2"
Definir FMagF, FMagI, t, Fem, Inicial1, Final1 como Real
Escribir "Ingrese FMagI";
Leer FMagI;
Escribir "Ingrese t";
Leer t;
Inicial1=100
Final1=200
Para FMagF<-Inicial1 Hasta Final1 Con Paso 0.5 Hacer
Fem<-(FMagF-FMagI)/t
Escribir "El Resultado es", Fem;
Fin Para
3:
Escribir "Opcion 3"
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
4:
Escribir "Opcion 4"
Definir F, T como Real
Inicial3=5
Final3=15
Para F<-Inicial3 Hasta Final3 Con Paso 0.5 Hacer
T<-1/F
Escribir "El Resultado es", T;
FinPara
De Otro Modo:
Escribir "Fuera de Rango";
FinSegun
FinProceso