Генерация случайного числа в заданном диапазоне.

[VoidVolker]

Code: Select all

5 0 DO
   LEAVE
LOOP

[Aveiro]

Да, в обычном цикле работает. А здесь снова ошибка.

Code: Select all

1 SWAP DO
    \ какой-то код
       FILE-EXIST: "D:\SYSTEM\CONTROL\STOP.flag"                     
      IF                                                                                                                                                   
         LEAVE
     THEN
-1 +LOOP

[VoidVolker]

А потому что на стеке все еще находятся числа, а после выхода из цикла их никто не убирает.

[Aveiro]

А потому что на стеке все еще находятся числа, а после выхода из цикла их никто не убирает.

Как их убрать эти числа,как устранить ошибку ?
------
P.s Мы любители

[VoidVolker]

Не выходить из цикла.

[Aveiro]

Не выходить из цикла.

Тогда к сожалению в задачу добавилось условие,которое меняет решение...

Code: Select all

Вводятся числа, к примеру пять чисел.  1, 34, 8, 21, 43.
Далее случайным образом нужно выбрать одно. К примеру было выбрано 21.
После выбора чисел стало четыре : 1, 34, 8, 43.
Снова выбирается случайно, выбрали 1.
Теперь три числа.
------
Одно число.
Выход.

P.s Задача может прерваться при выполнении условия (например наличие файла-флага запрещающего работу)


[VoidVolker]

А что мешает прервать задачу после окончания цикла? Т.е., вот появился файл-флаг - ничего не делаем и даем циклу спокойно отработать.

[Aveiro]

Это номера страниц, что печатаются. Иногда нужно остановить печать.

[VoidVolker]

Так а чем проблема-то не печатать при каком-то условии?

Code: Select all

TRUE NOT IF
   <печатать>
THEN

[Aveiro]

Так а чем проблема-то не печатать при каком-то условии?

Code: Select all

TRUE NOT IF
   <печатать>
THEN

1000 страниц печатается. С перерывом в 1 мин. Если не сложно , можно полностью решение ?

[VoidVolker]

Code: Select all

#( Задача_010117122015
NoActive
SingleInstance
TRUE VALUE StopFlag
Action:
0
100 0 DO PAUSE: 200
    WIN-INPUT-TEXT: "TEST" "Введите число" "1" 120 0=   
    IF
        S>NUM SWAP 1+
    ELSE
        LEAVE                                                         \ выход из цикла, если число больше не вводилось
    THEN
LOOP

DUP 0= IF DROP EXIT THEN

TRUE TO StopFlag
1 SWAP DO
    I RANDOM ROLL
    StopFlag IF
        FILE-EXIST: "D:\SYSTEM\CONTROL\STOP.flag" IF
            FALSE TO StopFlag
            DROP
        ELSE
            .
            <...полезный код...>
        THEN
    ELSE
        DROP
    THEN
-1 +LOOP
)#



[Aveiro]

Большое спасибо ! Разбираюсь...

[Aveiro]

Теперь нужно "зациклить" решение с возможностью выйти в любой момент..

Задача:

Code: Select all

1. В диалоговом окне вводятся числа (произвольное количество), например 5 чисел
2. Случайным образом из этих чисел выбирается одно, и количество чисел становится на одно меньше (выбранное число больше не участвует в цикле), чисел стало 4
3. Выбирается следущее, чисел стало 3
4. Два числа
5. Одно число (последнее !)
6. Снова эти пять чисел (Но уже без ввода, они вводились в самом начале)
7. 4 числа, 3 , 2, 1,.....5,4,3,2,1....5....

Задача может прерваться в любой момент, если обнаружится файл-флаг запрета.


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

[VoidVolker]

Эмм... Код в предыдущем посте.

[Aveiro]

А как там организовать цикл ?