Создать последовательность чисел с определенным шагом

[Baumen]

Всем привет
Подскажите пожалуйста - как перебрать все комбинации размеров типа AxB с шагом в 50 и записать результат построчно в блокнот.

Есть стартовый размер 100x100
Требуемый шаг - 50
Нужно получить все варианты и записать в блокнот построчно.
Пример результата:
100x100
150x100
150x150
...
350x750
...
650x900
итд...

Ограничение - 1000 ( до 1000)
В ручную это перебрать очень долго, сами понимаете...

 

[Andrey_A]

#include <Array.au3>
$sLIne=_Enchanting_Numbers(100,950,50,'x')
$aRes=StringSplit($sLIne,@CRLF,1)
_ArrayDisplay($aRes)

Run('notepad.exe')
$h=WinWait('[CLASS:Notepad]')
WinActivate($h)
ControlSetText($h,'','[CLASS:Edit;INSTANCE:1]',$sLIne)

; перебор номеров
Func _Enchanting_Numbers($iBegin,$iEnd,$iStep,$sDelim='',$sLIne='')
  For $i=$iBegin To $iEnd Step $iStep
    For $j=$iBegin To $iEnd Step $iStep
      $sLIne&=$i&$sDelim&$j&@CRLF
    Next
  Next
  Return StringTrimRight($sLIne,2)
EndFunc

 

[Baumen]

#include <Array.au3>
$sLIne=_Enchanting_Numbers(100,950,50,'x')
$aRes=StringSplit($sLIne,@CRLF,1)
_ArrayDisplay($aRes)

Run('notepad.exe')
$h=WinWait('[CLASS:Notepad]')
WinActivate($h)
ControlSetText($h,'','[CLASS:Edit;INSTANCE:1]',$sLIne)

; перебор номеров
Func _Enchanting_Numbers($iBegin,$iEnd,$iStep,$sDelim='',$sLIne='')
  For $i=$iBegin To $iEnd Step $iStep
    For $j=$iBegin To $iEnd Step $iStep
      $sLIne&=$i&$sDelim&$j&@CRLF
    Next
  Next
  Return StringTrimRight($sLIne,2)
EndFunc

Спасибо! Все как надо!