EVALUACIÓN 10

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>5Entonces

             Escribir "Campo Electrico"

             Leer E

             Inicial = 60

             Final = 120

                  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 cambiala gil :v"

  Fin Segun

FinProceso

​