Найти наименьший общий знаменатель трех дробей - VB

Формулировка задачи:

помогите пожалуйста написать программу) очень надо) для сложения трех одинаковых дробей со знаменателем a,b,c (1<a,b,c<= 1200) Даше необходимо найти наименьший общий знаменатель, который может быть большим, но не больше 2147483647.

или хотя бы подскажите как найти нок. ну очень надо

Решение задачи: «Найти наименьший общий знаменатель трех дробей»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Sub main()
Dim m(), i As Long, Res As Long
m = Array(540, 720, 180, 1080, 2160, 90)
Res = m(0)
For i = 1 To UBound(m)
  Res = nok(Res, m(i))
Next i
End Sub
 
Function nok(ByVal a As Long, ByVal b As Long) As Long
    nok = (a * b) / nod(a, b)
End Function
 
Function nod(ByVal a As Long, ByVal b As Long) As Long
   While a > 0 And b > 0
     If a >= b Then a = a Mod b Else b = b Mod a
   Wend
   nod = a + b
End Function
                        

Оцени полезность:

9 голосов , оценка 3.778 из 5

Похожие ответы