Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


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)
Этот вариант, если у шага или у делителя много знаков после запятой, выдает ошибочный результат.

Последний раз редактировалось madmasles, 29-11-2010 в 02:31.


Отправлено: 01:40, 29-11-2010 | #2