[madmasles]

sashadeg,
Попробуйте так, у меня работает:

Код:

#include <Array.au3>

$iStart = 7.92
$iEnd = 28.69
$iStep = 0.01
$iDivisor = 0.5
$j = 0

Dim $aResult[$j + 1]
$iUBound = Ceiling(($iEnd - $iStart) / $iStep)
For $i = 0 To $iUBound
    $iTemp = $iStart + $i * $iStep
    If Not Mod($iTemp, $iDivisor) Then
        $j += 1
        ReDim $aResult[$j + 1]
        $aResult[$j] = StringFormat('%.2f', $iTemp)
    EndIf
Next
$aResult[0] = $j ;кол-во искомых чисел
_ArrayDisplay($aResult)

Этот вариант, если у шага или у делителя много знаков после запятой, выдает ошибочный результат.

[Yashied]

С одной стороны, задачка конечно простая, но работать с вещественными числами нужно очень аккуратно. По возможности нужно избегать операций сравнения, и уж тем более не использовать такие выражения, как $X0 = $X0 + $DX, дабы не накапливать ошибку...

Код:

$Xmin = 7.9
$Xmax = 8.66
$DX = 0.5

; Первое минимальное число, которое делится на DX
$X0 = (Floor(($Xmin + $DX) / $DX) - Not($Xmin - (Floor(($Xmin + $DX) / $DX) - 1) * $DX)) * $DX

; Количество искомых чисел в из промежутка от X0 до Xmax включительно
$NX = 1 + Floor(($Xmax - $X0) / $DX)

; X0, X0+DX, X0+2*DX, ... , X0+(NX-1)*DX
For $i = 1 To $NX
    ConsoleWrite($X0 + ($i - 1) * $DX & @CR)
Next

madmasles

Долго, потому что Sleep()... Он в основном нужен только для GUI, где необходимо обрабатывать события от пользователя. Использование в расчетах Sleep() - это просто преступление.

[madmasles]

Yashied,
Я второй свой вариант удалил, так как он еще первое и последнее значения выдавал не правильные. А Sleep(1) у меня был вставлен для разгрузки процессора, а то он у меня без паузы на 100% грузился, а с ней - около 10%. Ваш вариант отрабатывает практически мгновенно и без ошибок.

[sashadeg]

Спасибо за ответы!
madmasles, Ваш вариант выдает не 2 числа, а целую кучу 0_О

Yashied, Ваш вариант работает, но почему то кроме "8" и "8,5" выдает ещё и "7,5"... Странно...
Решил проблему просто заменив в единицу на двойку в конце кода

Код:

For $i = 2 To $NX
    ConsoleWrite($X0 + ($i - 1) * $DX & @CR)
Next

[gregaz]

Вот еще похожий вариант с кодом попроще :

Код:

$Xmin = 7.9
$Xmax = 8.66
$DX = 0.5

$D0=0.1
$Xmin-=0.1
Do 
  $Xmin+=$D0
Until StringIsInt ($Xmin/ $DX)

For $i=$Xmin To $Xmax Step $DX
	ConsoleWrite(Round($i,1) & @LF)
Next

[SyDr]

Код:

$Xmin = 7.9
$Xmax = 8.66

For $i = Round($Xmin*2) To Round($Xmax*2)
    ConsoleWrite($i/2 & @CR)
Next

[gregaz]

SyDr, Красиво ,но не совсем корректно.
Скажем для :

Код:

$Xmin = 7.5
$Xmax = 8.4

???

[sashadeg]

В результате я использовал код Yashied. Всем спасибо! Решено.

[SyDr]

gregaz, скорее совсем не корректно
Правильно так:

Код:

$Xmin = 7.1
$Xmax = 8.4

For $i = Ceiling($Xmin*2) To Floor($Xmax*2)
    ConsoleWrite($i/2 & @CR)
Next