Нахождение НОК для пар чисел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д