/*Programa: SimplificarFracción1

      Autores: Lidia y Pablo

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

      fracción 1024/3584*/

 

Program SimplificarFraccion1

 

      Var n As Integer

      Var d As Integer

     

      Method ReducirFraccion()

            //simplificamos la fracción n/d

            Var divisor As Integer

            divisor=2

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

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

                        n=n/divisor

                        d=d/divisor

                  End While

                  divisor=divisor+1

            End While

      End Method

     

      Method Main()

 

            n=1024

            d=3584

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

            ReducirFraccion()

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

 

      End Method

 

End Program