FORMULAS DE ELECTRÓNICA

 SubProceso INDUCTANCIA()

Escribir"CALCULO DE LA INDUCTANCIA" 

Escribir "Ingrese la I: "

Leer l

Escribir "Ingrese Fii: "

Leer Fii 

INICIAL = 10   

 FINAL = 100

 N = INICIAL

Si I <> 0 Entonces

L<-(Fii*N)/I

Sino

 Escribir ("El valor de Fii no es correcto")

 Fin Si

Escribir ("El cálculo de la inductancia es: "), L

FinSubProceso

​

​

SubProceso Resistencia_de_sonido()

Escribir "Diametro menor"

Leer d_menor

Inicial = 200

Final = 300

Si d_menor<>0 Entonces

Escribir "Diametro Mayor"

Leer d_mayor

Para NPS<-Inicial Hasta Final Con Paso 25 Hacer

R = NPS-20*ln(d_mayor/d_menor)

Escribir "Resistencia al sonido = ",R

Fin Para

SiNo

Escribir "Diametro menor diferente de 0"

Fin Si Fin SubProceso

​

​

SubProceso     GAUSS()

    Escribir "Ingresar el Campo Electrico";

    Leer Camp_Elect;

    Escribir "Ingresar el Area";

    Leer Area;

    Si Area>5 Entonces

        INICIAL=60;

        FINAL=120;

        Para Ang_E_A<-INICIAL Hasta FINAL Con Paso 10 Hacer

            Rad<-(2*PI*Ang_E_A)/360

            Flu_Elect<-Camp_Elect*Area*Cos(Rad)

            Escribir "La Flujo Electrico es:", Flu_Elect;

        FinPara

    SiNo

        Escribir "Cambiar el Area debe ser mayor a 5"

    FinSi

FinSubProceso

​

​

Proceso Tarea

Definir l,Fii,n,d_menor,d_mayor,Inicial,Final,Nps,R,A,E,beta,Flujo_e;

Como Real

Definir opcion Como Entero

Escribir "1.Energia Potencial"

Escribir "2.Resistencia de sonido"

Escribir "3. Ley_de_Gauss"

Leer opcion

Segun opcion Hacer

1: Inductancial()

2: Resistencia_De_Sonido()

3: Ley_de_Gauss()

De Otro Modo:

Escribir "La opcion no existe"

Fin Segun

FinProceso

​