forum.boolean.name - Помощь.

forum.boolean.name (http://forum.boolean.name/index.php)

- Болтовня (http://forum.boolean.name/forumdisplay.php?f=25)

- - Помощь. (http://forum.boolean.name/showthread.php?t=9166)

Народ, никто не может помочь? Нужно помочь одному хорошему человеку кодом, или хотяб алгоритмом.

22:16 - Андрей Геннадич: В массиве целых чисел найти пару соседных чисел с наибольшим НОД

Я если честно не очень понял что это значит (ну тупой я немног :4to: ), а времени сейчас разбираться нет. вообщем кому не сложно :rolleyes:

Ответ: Помощь.

На каком языке?

Ответ: Помощь.

Код:

Dim numbers(100)

For i=0 To 100

        numbers(i)=Rand(0,100)

Next







f%=WriteFile("Result.txt")



Local old_nod=0

Local old_v1,old_v2



For i=0 To 99

        Local v1=numbers(i)

        Local v2=numbers(i+1)        



        Local tnod%=NOD(v1,v2)



        If tnod>old_nod Then

                old_nod=tnod

                old_v1=v1

                old_v2=v2

        EndIf



        WriteLine(f,"Nod("+v1+","+v2+")="+tnod)



Next

WriteLine(f,"Bigest nod("+old_v1+" , "+old_v2+") "+old_nod)

CloseFile(f)



; ищет нод

Function NOD%(x%,y%)

        If x<>0 Then Return NOD(y Mod x,x) Else Return y

End Function



;ищет нок

Function NOK%(x%,y%)

        Return Int(x / NOD (x,y))*y

End Function

АССА!?