Нахождение НОК для пар чисел - VB

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

Здравствуйте! у меня есть массив a(i) . необходимо создать процедуру нахождения наименьших общих кратных для следующих пар a(1) и a(n) ; a(2) и a(n-1) . и ещё вопрос - что делать,если чисел нечетное количество? для среднего числа нок выводить это чило?

Решение задачи: «Нахождение НОК для пар чисел»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function gcd(a As Integer, b As Integer) As Integer
   If (b > a) Then
      gcd = gcd(b, a)
   ElseIf (a Mod b) = 0 Then
      gcd = b
   Else
      gcd = gcd(a - b, b)
   End If
End Function
 
Function Lcm(a as integer, b as integer) as integer
   lcm=(a*b)\gcd(a,b)
End Function
 
Sub Task(A() as integer)
    l%=1 
    r%=Ubound(A,1)
    Do
        Debug.print "Lcm("+A(l%)+","+A(r%)+")=";Lcm(A(l%),A(r%))
        l%=l%+1
        r%=r%-1
        if (l% >= r%) then exit do
    Loop
End Sub

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

10 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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