'casos de factorizacion'

Algoritmo sin_titulo
   
   

        Escribir 'casos de factorizacion'
       
        Escribir 'digite el numero del caso de factorizacion que desea realizar su ejercicio'
        Leer ñ
        Segun ñ Hacer
                1:
                    Escribir 'caso numero 1,factor común'
                    Escribir 'este caso se divide en 2: monomios y polinomios digite 1 para monomios y 2 para polinomios'
                    Leer p
                    Segun p Hacer
                   
                        1:
                            Escribir 'factor comun de un monomio'
                            Escribir 'digite el valor de (a) y despues el valor de b'
                        Leer a,b
                        Si a==b Entonces
                            j<-RC(a);
                            Escribir 'el factor comun es  ',j
                        Sino
                            r<-RC(a)
                            t<-RC(b);
                            s<-r+t;
                            Escribir 'el factor comun es(',r,'+',t,')'
                            Escribir 'el valor es  =',s;
                        FinSi
                        2:
                            Escribir 'factor comun de un polinomio'
                            Escribir 'digite el valor de (a) y despues el valor de (b)'
                            Leer a,b
                            Si a==b Entonces
                                j<-RC(a);
                                r<-RC(a)
                                t<-RC(b);
                                Escribir 'el factor comun es  ',j,'(',r,'+',t,')'
                            Sino
                                r<-RC(a)
                                t<-RC(b);
                                Escribir 'el factor comun es(',r,'+',t,')'
                            FinSi
                           

                        De Otro Modo:
                            Escribir     'este caso de factor comun no existe'
                    Fin Segun
               

                2:
                    Escribir 'caso numero 2, factor comun por agrupacion de terminos'
                    Escribir 'digite el valor de a,b,c'
                    Leer a,b,c
                    Si a==b O a==c  Entonces
                        j<-RC(a);
                        Escribir 'el factor comun es  ',j
                    Sino
                        r<-RC(a)
                        t<-RC(b)
                        i<-RC(c)
                        Escribir 'el factor comun es(',r,'+',t,'+',i,')'
                       
                    FinSi
                3:
                    Escribir 'caso numero 3,trinomio cuadrado perfecto'
                    Escribir 'digite el valor de x'
                    Leer x
                    f<-(x^2)
                    g<-RC(f)
                    Escribir 'digite el valor de c'
                    Leer p
                    z<-RC(p)
                    Escribir 'la factorizacion es (',g,',',z,')^2'       
                4:
                    Escribir 'caso numero 4,diferencia de cuadrados perfectos'
                    Escribir 'digite el valor de x'
                    Leer x
                    p<-RC(x)
                    Escribir 'digite el valor de c'
                    Leer i
                    f<-RC(i)
                    Escribir 'la factorizacion es (',p,'+',f,')','(',p,'-',f,')'
                5:
                   
                    Escribir 'caso numero 5,trinomio cuadrado perfecto por adcion o sutraccion'
                    Escribir 'digite el valor de a,b,c'
                    Leer k,l,n
                    g<-RC(k)
                    t<-RC(n)
                    p<-((2*g)*t)
                    u<-p-l
                    m<-RC(u)
                    Escribir 'la factorizacion es  (',g,'+',t,')-',u,'=(',g,'+',m,'+',t,')(',g,'-',m,'+',t,')'
       
                   
                6:
                    Escribir 'caso numero 6,factorizacion de un trinomio de la forma x^2+bx+c'
                    Escribir 'digite el valor de x, el valor de b, el valor de c'   
                    Leer x,a,b
                    g<-RC(x)
                    Para r<-1 Hasta b Con Paso 1 Hacer
                        t<-r/2
                        Si r MOD 2=0 Entonces
                            u<-(t+t)
                            Escribir t,u
                        Sino
                            Escribir ''
                        Fin Si
                    Fin Para
                   
                7:
                    Escribir 'la factorizacion es (',g,'+',u,')(',g,'+',f,')'
                    Escribir 'caso numero 7,factorizacion de un trinomio de la forma ax^2+bx+c'
                    Escribir 'digite el valor de x, el valor de b, el valor de c'
                    Leer x,a,b
                    f<-(x*x)
                    g<-(x*b)
                    z<-RC(f)
                    Escribir 'la factorizacion es ',f,'+',a,'(',z,')+',g,'=(',z,'+?)(',z,'+?)/',z
                    Escribir 'buscar dos numeros que multiplicados entre si den  ',a,'  y sumados den ',g
               
                8:
                    Escribir 'caso numero 8,cubo perfecto de binomios'
                    Escribir 'digite el valor de x'
                    Leer a,d,c,d
                    f<-a^1/3
                    g<-b^1/3
                    Escribir 'la factorizacion es (',f,',',g,')^3'
                9:
                    Escribir 'caso numero 9,suma o diferencia de cubos perfectos '
                    Escribir 'digite 1 si es suma o digite 2 si es resta'
                    Leer g
                    Segun g Hacer
                   
                1:
                    Escribir 'suma de cubos perfectos'
                    Escribir 'digite el valor de a(^3) y b(^3)'   
                    Leer a,b
                    r<-a*a*a
                    t<-b*b*b
                    p<-(a^2)
                    u<-(b^2)
                    h<-a*b
                    Escribir 'la factorizacion es  ',r,'+',t,'=(',a,'+',b,')(',p,'-',h,'+',u,')'
                   
                2:
                    Escribir 'diferencia de cubos perfectos'
                    Escribir 'digite el valor de a(^3) y b(^3)'   
                    Leer a,b
                    r<-a*a*a
                    t<-b*b*b
                    p<-(a^2)
                    u<-(b^2)
                    h<-a*b
                    Escribir 'la factorizacion es  ',r,'+',t,'=(',a,'+',b,')(',p,'+',h,'+',u,')'
                    finsegun
                   
                10:
                    Escribir 'caso numero 10,suma o diferencia de potencias iguales'
                    Escribir 'digite el valor de a y b'   
                    Leer a,b
                    i<-a/b
                    u<-i*b
                    Escribir 'el resultado es ',a,'=',u
                   
                   
                De Otro Modo:
                    Escribir 'ese caso no se encuentra'
                   
     Fin Segun
       
FinProceso

1 comment: