Práctica 11

Funcion TESLA()
    DEFINIR i,INICIO,FINAL COMO ENTERO
    DIMENSION BETA(100)
    DEFINIR V,B COMO REAL
    INICIO=1
    FINAL=100
    INICIO1=2.5
    FINAL1=8
    INICIO2=10
    FINAL2=20
    
    Escribir "INGRESE ESPIRAS"
    Leer N
    Escribir "INGRESE PERMEABILIDAD"
    Leer U
    
    
    Para L<-INICIO1 Hasta FINAL1 Con Paso 0.25 Hacer
        Para I<-INICIO2 Hasta FINAL2 Con Paso 0.5 Hacer
            BETA(i)<-(U*I*N)/L
        Fin Para
    Fin Para
    
    Para i <-INICIO Hasta FINAL Con Paso 1 Hacer
        Escribir "LA POTENCIA [",i,"]= ",BETA(i)
    Fin Para
    
    i=1
    SUMA1=0
    
    Mientras i<=FINAL Hacer
        SUMA1<-SUMA1+BETA(i)
        i<-i+1
    Fin Mientras
    
    Escribir "La suma es: ",SUMA1
Fin Funcion

Funcion POTENCIA()
    DEFINIR i,INICIO,FINAL COMO ENTERO
    DIMENSION POTENCIA1(100)
    DEFINIR V,B COMO REAL
    INICIO=1
    FINAL=100
    INICIO1=10
    FINAL1=50
    
    Escribir "INGRESE EL VOLTAJE"
    Leer V
    Escribir "INGRESE EL ANGULO DE FASE"
    Leer B
    Escribir "DEFINA LOS WATTS"
    Leer W
    
    Para I <-INICIO1 Hasta FINAL1 Con Paso 0.4 Hacer
        POTENCIA1(i)<-V*I*cos(B)*W
    Fin Para
    
    Para i <-INICIO Hasta FINAL Con Paso 1 Hacer
        Escribir "LA POTENCIA [",i,"]= ",POTENCIA1(i)
    Fin Para
    
    i=1
    SUMA1=0
    
    Mientras i<=FINAL Hacer
        SUMA1<-SUMA1+POTENCIA1(i)
        i<-i+1
    Fin Mientras
    
    Escribir "La suma es: ",SUMA1
Fin Funcion

Funcion SUMA()
    Definir INICIO,FINAL Como Real
    Dimension VECTOR(10)
    INICIO=1
    FINAL=10
    Para i<-INICIO Hasta FINAL Con Paso 1 Hacer
        Escribir "INGRESE V[",i,"]= "
        LEER VECTOR(i)
    Fin Para
    Para i<-INICIO Hasta FINAL Con Paso 1 Hacer
        Escribir "EL VECTOR[",i,"]= ",VECTOR(i)
    Fin Para
    i=1
    SUMA1=0
    Mientras i<=FINAL Hacer
        SUMA1<-SUMA1+VECTOR(i)
        i<-i+1
    Fin Mientras
    Escribir "La suma es: ",SUMA1    
Fin Funcion

Algoritmo PRACTICA11
    Escribir "******************"
    Escribir "       MENU       "
    Escribir "******************"
    Escribir "1)SUMA"
    Escribir "2)SUMA POTENCIA"
    Escribir "3)SUMA TESLA"
    Escribir " "
    Escribir "ESCRIBA OPCIÓN"
    Escribir " "
    Leer OPCION
    Segun OPCION Hacer
        1:
            SUMA()
        2:
            POTENCIA()
        3:
            TESLA()
        De Otro Modo:
            Escribir "OPCIÓN NO EXISTENTE"
    Fin Segun
FinAlgoritmo