Segundo Algoritmo Desarrollado en Clases
// voltaje SubProceso voltaje() escribir " ingrese valor para vo"; leer vo; escribir " ingrese valor para angulo"; leer w; inicio3=2; final3=15; Si vo>4 Entonces Para t<-inicio3 Hasta final3 Con Paso 2 Hacer vol=vo*t*sen(w); escribir "el voltaje es ",vol; Fin Para Sino escribir " es indeterminado"; Fin Si Fin SubProceso
//energia cinetica SubProceso energiacinetica() escribir " ingrese valor para u"; leer u; inicio2=10; final2=20; Si u<>0 Entonces Para m<-inicio2 Hasta final2 Con Paso 2 Hacer ec=(m*u^2)/2 escribir "la energia cinetica es ",ec; Fin Para Sino escribir " es indeterminado"; Fin Si Fin SubProceso
// inductancia SubProceso inductancia() escribir " ingrese valor para fm"; leer fm; escribir " ingrese valor para i"; leer i; inicio=100; final=200; Si i>2 Y i<10 Entonces Para n<-inicio Hasta final Con Paso 1.5 Hacer l=fm*n/i escribir "la inductancia es ",l; Fin Para Sino escribir " es indeterminado"; Fin Si Fin SubProceso
Proceso formulas definir l,fm,i,n,ec,u,v,m,vo,vol,w,t,menu Como Real; definir inicio,final,opcion,inicio2,final2,inicio3,final3 Como Entero; Escribir "menu"; Escribir "1-inductancia"; Escribir "2-energia cinetica"; Escribir "3-voltaje"; escribir " ingrese opcion"; leer opcion; Segun opcion Hacer 1: inductancia() 2: energiacinetica() 3: voltaje() De Otro Modo: escribir "fuera de rango" Fin Segun
FinProceso
Comentarios