Что нового

Задать последовательность чисел

Пост номер 2 был отмечен как лучший ответ.

trent100

Новичок
Сообщения
2
Репутация
0
У меня есть числовой ряд : 0123456789

мне нужно сформировать из них 10значное число по алгоритму-
первое число n=0 следующее число по счету 3ее , тоесть n=2 (далее идем по кругу умножая шаг на 3 )
следующее число 9ое, тоесть n=8
следюющее число 27ое, тоесть n=6
следюющее число 81ое, тоесть n=0
и так далее
n=02860......

Получаем в переменную $number 10значное число..которое вручную очень муторно считать.

Подскажите плз
 
Последнее редактирование:

ra4o

AutoIT Гуру
Сообщения
1 160
Репутация
242
Можно так:
Код:
Local $Array[10] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]

Local $Factor = 3
Local $number

For $i = 0 To 9
    $n = Mod($Factor ^ $i, 10) - 1
    If $n >= 0 Then
        $number &= $Array[$n]
    Else
        $number &= $Array[9]
    EndIf
Next

MsgBox(0, '', $number)

Так числа всё время будут повторяться 028602860286.....
Для данных начальных данных IF не обязательно , но на всякий случай пусть будет, если что то изменится в условии)))
 
Последнее редактирование:
  • Like
Реакции: Norm
Автор
T

trent100

Новичок
Сообщения
2
Репутация
0
Можно так:
Код:
Local $Array[10] = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]

Local $Factor = 3
Local $number

For $i = 0 To 9
    $n = Mod($Factor ^ $i, 10) - 1
    If $n >= 0 Then
        $number &= $Array[$n]
    Else
        $number &= $Array[9]
    EndIf
Next

MsgBox(0, '', $number)

Так числа всё время будут повторяться 028602860286.....
Для данных начальных данных IF не обязательно , но на всякий случай пусть будет, если что то изменится в условии)))
То что нужно! Спасибо
а Local $Factor = 3 я могу изменить так как мне нужно) и если что- его можно в цикл for засунуть, что бы делать разные интерации.
 
Верх