FlatX007
23-11-2009, 00:29
Помогите починить ... в консоль должна выводится сумма или разность чисел, а выводится (20+15) к примеру.
Спасибо.
Dim $Param[2]
$Param[0] = "+-+-++--+++---+-+-++-+-++---+-+-+-++++-+++----+-+-+-+++-+-+"
$Param[1] = "-+-+--++---+-+-+++-+--+-++++---+---+-+-+-+-+--+-+-+-+-+-+-"
While 1
Sleep(1000)
$iRandomNumber1 = Round(Random(1, 100))
$iRandomNumber2 = Round(Random(1, 50))
For $i = 0 To UBound($Param) - 1
$iRandomSimbol = StringMid($Param[$i], Round (Random(1, StringLen($Param[$i]))), 1)
$iConsole = Execute("$iRandomNumber1 & $iRandomSimbol & $iRandomNumber2")
ConsoleWrite($iConsole & @CRLF)
Next
WEnd
Спасибо.
Dim $Param[2]
$Param[0] = "+-+-++--+++---+-+-++-+-++---+-+-+-++++-+++----+-+-+-+++-+-+"
$Param[1] = "-+-+--++---+-+-+++-+--+-++++---+---+-+-+-+-+--+-+-+-+-+-+-"
While 1
Sleep(1000)
$iRandomNumber1 = Round(Random(1, 100))
$iRandomNumber2 = Round(Random(1, 50))
For $i = 0 To UBound($Param) - 1
$iRandomSimbol = StringMid($Param[$i], Round (Random(1, StringLen($Param[$i]))), 1)
$iConsole = Execute("$iRandomNumber1 & $iRandomSimbol & $iRandomNumber2")
ConsoleWrite($iConsole & @CRLF)
Next
WEnd