Semplificare una frazione

2013-11: Maths

Write a program to rationalize any fraction, for example 49/70 is 7/10.

Scrivi un programma per semplificare (?) una frazione qualsiasi.
Per esempio: 49/70 = 7/10

Soluzione

Calcolo del M.C.D. tramite l’algoritmo di Euclide.
Per ipotesi il numeratore e il denominatore non sono negativi.

TextWindow.Write("Numeratore = ")
num=TextWindow.ReadNumber()
TextWindow.Write("Denominatore = ")
den=TextWindow.ReadNumber()
TextWindow.WriteLine("")

a=num
b=den
While (b <> 0)
   r=Math.Remainder(a,b)
   TextWindow.WriteLine(" ... " + a + " - " + b + " - " + r)
   a=b
   b=r
EndWhile
MCD=a

TextWindow.WriteLine("")
TextWindow.WriteLine(" ... MCD(" + num + "," + den + ")=" + MCD)
TextWindow.WriteLine("")
TextWindow.WriteLine(num + "/" + den + " = " + num/MCD + "/" + den/MCD)
TextWindow.WriteLine("")