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 Ley_de_Gauss()

Escribir "Area"

Leer A Si A>5 Entonces

Escribir "Campo Electrico"

Leer E

Para beta<-incial Hasta Inicial  Con Paso 10  Hacer Flujo_E = E*A*cos(beta)

Escribir "Flujo Electrico = ",Flujo_E

Fin Para

SiNo

Escribir "Area debe ser mayor a 5"

FinSi

Fin SubProceso

SubProceso Energia_Potencial()

Escribir "Distancia entre Cargas"

Leer R

Si r<>0 Entonces

Escribir "Carga 2"

k = 1 Inicial = 20

Final = 100

Leer Q2 Para Q1<-Incial Hasta Final Con Paso 2.5 Hacer U = (K*Q1*Q2)/R

Escribir "Energia Potencial = ",U

Fin Para

SiNo

Escribir "Distancia entre cargas debe ser Diferente de 0"

Fin Si

Fin SubProceso

Proceso Tarea

Definir d_menor,d_mayor,Inicial,Final,Nps,R,A,E,beta,Flujo_E,k,Q1,Q2,U Como Real

Definir opcion Como Entero

Escribir "1.Energia Potencial"

Escribir "2.Ley de Gauss-FLujo Electrico" Escribir "3.Resistencia de sonido"

Leer opcion

Segun opcion Hacer

1: Energia_Potencial() 2: Ley_de_Gauss() 3: Resistencia_De_Sonido()

De Otro Modo:

Escribir "La opcion no existe"

Fin Segun

FinProceso