Algoritmo Desarrollado en Clases
//campo magnetico SubProceso campo() Escribir "calculo del campo magnetico"; Escribir "ingrese la corriente"; Leer i; Escribir "ingrese la permeabilida magnetica"; Leer u; Escribir "ingrese longitud"; Leer l; inicial2=10; final2=100; Si l<>0 Entonces Para n<-inicial2 Hasta final2 Con Paso 15 Hacer b=u*i*n/l; Escribir "el campo magnetico es",b, "cuando el numero es n ", n; Fin Para Sino Escribir "no se puede determinar" Fin Si Fin SubProceso
//tension SubProceso tension() Escribir "calculo del procedimiento de la caida de la tension"; Escribir "ingrese la corriente"; Leer i; Escribir "ingrese la seccion"; Leer s; ang=0.88; dro=0.0175; inicial1=2.5; final1=10; Si s<>0 Entonces Para p<-inicial1 Hasta final1 Con Paso 0.5 Hacer t=(dro*rc(3)*i*p*cos(ang))/s; Escribir "la caida de la tension es", t, "cuando la potencia es p", p; Fin Para Sino Escribir "no se puede determinar" Fin Si Fin SubProceso
//corriente SubProceso corriente() Escribir "calculo del procedimiento de la corriente"; Escribir "ingresa la resistencia"; Leer r; Escribir "ingrese la impedancia inductiva"; Leer xl; Escribir "ingrese la impedancia capacitica"; Leer xc; inicial=110; final=220; Si xl<>xc Entonces Para v<-inicial Hasta final Con Paso 10 Hacer i<-v/(rc(r^2+(xl-xc)^2)); Escribir "la corriente es", i, "cuandoel voltaje v", v; Fin Para Sino Escribir "xl es diferente que xc" Fin Si FinSubProceso
Proceso parametro1
Definir i,v,r,xl,xc Como Real; definir t,dro,p,s,ang como real; definir b,u,n,l como real; definir inicial2,final2 como real; definir inicial1,final1 como real; definir inicial,final,opcion Como Entero; escribir " menu"; escribir " 1-calculo de la corriente"; escribir " 2-caida de tension"; escribir " 3-campo magnetico"; escribir " elija una opcion"; leer opcion; Segun opcion Hacer 1: corriente() 2: tension() 3: campo() De Otro Modo: escribir "no valido"; Fin Segun
FinProceso
Comments