Что нового

Цикл в функции

SET777

Новичок
Сообщения
51
Репутация
3
Здравствуйте! Мне нужна функция которая от 0 до числа которое передано в функцию, в цикле выбирает четные числа и возвращает каждое из чисел. Процедура, которая проверяет исходящий параметр функции на четность и выводит каждое число сообщением.
Код:
Global $iX
$iY = 7
Func myfunc($iY)
For $iX = 0 To $iY
    If Mod ($iX,2) = 0 Then
        Return $iX
EndIf
	Next
		EndFunc

If Mod ($iX,2) = 0 Then
		MsgBox(0,"",$ix)
	EndIf
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
SET777
Можно так попробовать:
Код:
$iY = 7
MsgBox(64, 'Info', myfunc($iY))

Func myfunc($iY)
	Local $sReturn
	For $i = 0 To $iY
		If Not Mod($i, 2) Then
			$sReturn &= $i & @CRLF
		EndIf
	Next
	Return StringTrimRight($sReturn, 2)
EndFunc   ;==>myfunc
Или в массив четные значения сложить:
Код:
#include <Array.au3>

$iY = 17
$aArray = _MyFunc($iY)
_ArrayDisplay($aArray)
Func _MyFunc($i_Y)
	Local $a_Return[$i_Y], $j
	For $i = 0 To $i_Y
		If Not Mod($i, 2) Then
			$j += 1
			$a_Return[$j] = $i
		EndIf
	Next
	ReDim $a_Return[$j + 1]
	$a_Return[0] = $j
	Return $a_Return
EndFunc   ;==>_MyFunc
 
Автор
S

SET777

Новичок
Сообщения
51
Репутация
3
А как сделать так что бы функция возвращала числа по отдельности, а не одним сообщением. :scratch: т.е. мне нужен выходящий параметр функции (четные числа, каждое число отдельно) который еще раз можно будет проверить на четность и вывести сообщением каждое число.
 
Верх