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.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
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("") |