/*Programa: SimplificarFracción2

      Autores: Lidia y Pablo

      Descripción: Este Programa reduce a fracción simple

      cualquier fracción introducida por el usuario*/

 

Program SimplificarFraccion2

 

      Var n As Integer

      Var d As Integer

     

      Method ReducirFraccion()

            //simplificamos la fracción n/d

            Var divisor As Integer

            divisor=2

            While (divisor<=Abs(n)) And (divisor<=Abs(d))

                  While (n Mod divisor=0) And (d Mod divisor=0)

                        n=n/divisor

                        d=d/divisor

                  End While

                  divisor=divisor+1

            End While

            If n<0 And d<0 Then

                  n=Abs(n)

                  d=Abs(d)

            End If

            If n>0 And d<0 Then

                  n=-n

                  d=-d

            End If

      End Method

     

      Method Main()

 

            n=ConsoleReadInt("Introduzca numerador: ",True)

            d=ConsoleReadInt("Introduzca denominador: ",True)

            //ojo con el denominador igual a cero

            While d=0

                  d=ConsoleReadInt("Por favor, el denominador no puede ser cero; introduzca denominador: ",True)

            End While

            ConsoleWriteLine("Mi fracción es "+n+"/"+d)

            ReducirFraccion()

            //si la división es exacta podemos decir que el

            //resultado es un entero

            If d<>1 Then

                  ConsoleWriteLine("Simplificando mi fracción obtenemos "+n+"/"+d)

            Else

                  ConsoleWriteLine("Simplificando mi fracción obtenemos un entero "+n)

            End If

 

      End Method

 

End Program