Ejercicios del jueves
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<-inicial Hasta final 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 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 "Si la velocidad es: ",v," -La Energia Cinetica es: ",ec
FinPara
Fin Segun
FinProceso
Ejercicios del viernes
Proceso VIERNES
// declaracion
Definir OPC Como Entero;
Escribir "***** MENU ****** ";
Escribir "1)*F*";
Escribir "2)VOLTAJE MAGNETICO";
Escribir "3)VELOCIDAD";
Escribir "4)ENERGIA POTENCIAL";
Escribir " INGRESE UNA OPCION ";
Leer OPC;
Segun OPC Hacer
1: Escribir "opcion 1"
definir f,g,m1,m2,r,ini1,ini2,fin1,fin2 Como Real
Leer r
imi1<-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 "Si m1 es: ",m1," y m2 es ",m2," F= ",f
Fin Para
Fin Para
2:
Escribir "opcion 2";
definir fem,x1,x2,t,ini1,fin1 Como Real
Escribir "ingrese flujo magnetico inicial"
leer x2
Escribir "ingrese t"
Leer t
ini1<-100
fin1<-200
Para x1<-ini1 Hasta fin1 Con Paso 5 Hacer
fem<-(x1-x2)/t
Escribir "Si x1 es: ",x1," y x2 es ",x2," Voltaje Magnetico= ",fem
Fin Para
3:
Escribir "opcion 3";
definir v,e,t,ini1,ini2,fin1,fin2 Como Real
ini1<-50
fin1<-100
ini2<-5
fin2<-15
Para e<-ini1 Hasta fin1 Con Paso 10 Hacer
Para t<-ini2 Hasta fin2 Con Paso 1 Hacer
v<-e/t
Escribir "Si e es: ",e," y t es ",t," v= ",v
Fin Para
Fin Para
4:
Escribir "opcion 4"
Definir ep,m,g,h,ini1,ini2,fin1,fin2 Como Real
g<-9.81
ini<-10
fin1<-150
ini2<-25
fin2<-125
Para m<-ini1 Hasta fin1 Con Paso 5 Hacer
Para h<-ini2 Hasta fin2 Con Paso 2.5 Hacer
ep<-m*g*h
Escribir "Si m es: ",m," y h es ",h," Energia Potencial= ",ep
Fin Para
Fin Para
Fin Segun
FinProceso