top of page

Algoritmo Algoritmo_tarea
    Escribir '**********MENÚ*******'
    Escribir '1: POTENCIA:'
    Escribir '2: CAPACITANCIA:'
    Escribir '3: EJERCICIO3:'
    
    Escribir 'INGRESE LA OPCION:'
    Leer PROCESO1234
    Segun PROCESO1234 Hacer
        1:
            Definir INICIO,FINAL,V Como Entero
            Definir P,I,Coseno como REAL
            
            INICIO=110
            FINAL=220
            Coseno=0.85;
            Escribir 'INGRESE EL VALOR DE LA INTENSIDAD DE CRRIENTE: '
            Leer I
            PARA V<-INICIO HASTA FINAL CON PASO 10 HACER
                P<-V*I*Coseno
                Escribir C,'*',I,'*',Coseno,'=',P;
                Escribir 'La potencia es: ',P;
            FinPara
        2:
            Definir INICIO1,FINAL1,INICIO2,FINAL2,CP1 Como Entero
            Definir CP_RES,CP2,CP3 como REAL
            
            INICIO=100;
            FINAL=200;
            
            Escribir 'INGRESE EL VALOR DE LA CAPACITANCIA2: '
            Leer CP2
            Escribir 'INGRESE EL VALOR DE LA CAPACITANCIA3: '
            Leer CP3
            PARA CP1<-INICIO HASTA FINAL CON PASO 15 HACER
                CP_RES<-1/((1/CP1)+(1/CP2)+(1/CP3))
                ESCRIBIR 1,'/','(',1,'/',CP1,')','+','(',1,'/',CP2,')','+','(',1,'/',CP3,')','=',CP_RES;
                Escribir 'LA CAPACITANCIA RESULTANTE ES : ',CP_RES;
            FinPara
        3:    
            Definir INICIO,FINAL,A Como Entero
            Definir VF,VI,T como REAL
            
            INICIO1=0;
            FINAL1=100;
            INICIO2=50;
            FINAL2=80;
            
            Escribir 'INGRESE EL VALOR DE TIEMPO : '
            Leer T            
            PARA VF<-INICIO1 HASTA FINAL1 CON PASO 5 HACER
                PARA VI<-INICIO2 HASTA FINAL2 CON PASO 10 HACER
                
                    A<-(VF-VI)/T
                    Escribir '(',VF,'-',VI,')','/',T,'=',A;
                Escribir 'LA ACELERCION ES : ',A;
            FinPara
            
            FinPara
            
    FinSegun
    
FinAlgoritmo

bottom of page