Отсутствие заданной разницы между элементами массива

@yevrowl · Регистрация: 27.04.2022

Студворк — интернет-сервис помощи студентам

Всех приветствую!
Итак, имеется массив 8 × 8 (см. вложенное изображение), в котом каждый последующий элемент больше на единицу предыдущего:

QBasic/QuickBASIC
1
2
3
4
5
6
DIM SHARED chebo(8, 8) AS INTEGER
index = 100
FOR row = 1 TO 8: FOR col = 1 TO 8
    chebo(row, col) = index + 1
    index = index + 1
NEXT col: NEXT row

Задача состоит в размещении 5 псевдослучайных элементов таким образом, чтобы разница между двумя любыми из таковых не составляла ни одно из следующих 5² (25) значений: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 16, 17, 18, 24, 27, 32, 36, 40, 45, 48, 54, 56, 63.

В том виде, в котором это попытался организовать изначально, могу показать, но лучше не видеть. =)
К примеру, для последнего элемента, где только 0:

QBasic/QuickBASIC
1
2
3
4
5
DO
dc5x = INT(RND * 8 + 1)
dc5y = INT(RND * 8 + 1)
f5 = chebo(dc4x, dc4y)
LOOP UNTIL f5 <> f4 AND f4 <> f3 AND f4 <> f3 AND f4 <> f2 AND f4 <> f1

Спасибо за внимание.

@yevrowl · 16.09.2022, 10:08 **[ТС]**

Ввод данных в одномерный массив:

QBasic/QuickBASIC
1
2
3
4
5
DIM dif(25)
DATA 0,1,2,3,4,5,6,7,8,9,10,15,16,17,18,24,27,32,36,40,45,48,54,56,63
FOR index = 1 TO 25
READ dif(index)
NEXT index

@yevrowl · 16.09.2022, 23:37 **[ТС]**

Решил таким образом:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
DIM dif(25)
    DATA 0,1,2,3,4,5,6,7,8,9,10,15,16,17,18,24,27,32,36,40,45,48,54,56,63
    FOR index = 1 TO 25
        READ dif(index)
    NEXT index
 
    DO
        count = count + 1
        dc2x = INT(RND * 8 + 1)
        dc2y = INT(RND * 8 + 1)
        f2 = chebo(dc2x, dc2y)
        IF count > 8000 THEN EXIT DO
    LOOP UNTIL ABS(f2 - f1) <> dif(1) AND ABS(f2 - f1) <> dif(2) AND ABS(f2 - f1) <> dif(3) AND ABS(f2 - f1) <> dif(4) AND ABS(f2 - f1) <> dif(5) AND ABS(f2 - f1) <> dif(6) AND ABS(f2 - f1) <> dif(7) AND ABS(f2 - f1) <> dif(8) AND ABS(f2 - f1) <> dif(9) AND ABS(f2 - f1) <> dif(10) AND ABS(f2 - f1) <> dif(11) AND ABS(f2 - f1) <> dif(12) AND ABS(f2 - f1) <> dif(13) AND ABS(f2 - f1) <> dif(14) AND ABS(f2 - f1) <> dif(15) AND ABS(f2 - f1) <> dif(16) AND ABS(f2 - f1) <> dif(17) AND ABS(f2 - f1) <> dif(18) AND ABS(f2 - f1) <> dif(19) AND ABS(f2 - f1) <> dif(20) AND ABS(f2 - f1) <> dif(21) AND ABS(f2 - f1) <> dif(22) AND ABS(f2 - f1) <> dif(23) AND ABS(f2 - f1) <> dif(24) AND ABS(f2 - f1) <> dif(25)
 
    DO
        count = count + 1
        dc3x = INT(RND * 8 + 1)
        dc3y = INT(RND * 8 + 1)
        f3 = chebo(dc3x, dc3y)
        IF count > 8000 THEN EXIT DO
    LOOP UNTIL ABS(f3 - f2) <> dif(1) AND ABS(f3 - f2) <> dif(2) AND ABS(f3 - f2) <> dif(3) AND ABS(f3 - f2) <> dif(4) AND ABS(f3 - f2) <> dif(5) AND ABS(f3 - f2) <> dif(6) AND ABS(f3 - f2) <> dif(7) AND ABS(f3 - f2) <> dif(8) AND ABS(f3 - f2) <> dif(9) AND ABS(f3 - f2) <> dif(10) AND ABS(f3 - f2) <> dif(11) AND ABS(f3 - f2) <> dif(12) AND ABS(f3 - f2) <> dif(13) AND ABS(f3 - f2) <> dif(14) AND ABS(f3 - f2) <> dif(15) AND ABS(f3 - f2) <> dif(16) AND ABS(f3 - f2) <> dif(17) AND ABS(f3 - f2) <> dif(18) AND ABS(f3 - f2) <> dif(19) AND ABS(f3 - f2) <> dif(20) AND ABS(f3 - f2) <> dif(21) AND ABS(f3 - f2) <> dif(22) AND ABS(f3 - f2) <> dif(23) AND ABS(f3 - f2) <> dif(24) AND ABS(f3 - f2) <> dif(25) AND ABS(f3 - f1) <> dif(1) AND ABS(f3 - f1) <> dif(2) AND ABS(f3 - f1) <> dif(3) AND ABS(f3 - f1) <> dif(4) AND ABS(f3 - f1) <> dif(5) AND ABS(f3 - f1) <> dif(6) AND ABS(f3 - f1) <> dif(7) AND ABS(f3 - f1) <> dif(8) AND ABS(f3 - f1) <> dif(9) AND ABS(f3 - f1) <> dif(10) AND ABS(f3 - f1) <> dif(11) AND ABS(f3 - f1) <> dif(12) AND ABS(f3 - f1) <> dif(13) AND ABS(f3 - f1) <> dif(14) AND ABS(f3 - f1) <> dif(15) AND ABS(f3 - f1) <> dif(16) AND ABS(f3 - f1) <> dif(17) AND ABS(f3 - f1) <> dif(18) AND ABS(f3 - f1) <> dif(19) AND ABS(f3 - f1) <> dif(20) AND ABS(f3 - f1) <> dif(21) AND ABS(f3 - f1) <> dif(22) AND ABS(f3 - f1) <> dif(23) AND ABS(f3 - f1) <> dif(24) AND ABS(f3 - f1) <> dif(25)
 
    DO
        count = count + 1
        dc4x = INT(RND * 8 + 1)
        dc4y = INT(RND * 8 + 1)
        f4 = chebo(dc4x, dc4y)
        IF count > 8000 THEN EXIT DO
    LOOP UNTIL ABS(f4 - f3) <> dif(1) AND ABS(f4 - f3) <> dif(2) AND ABS(f4 - f3) <> dif(3) AND ABS(f4 - f3) <> dif(4) AND ABS(f4 - f3) <> dif(5) AND ABS(f4 - f3) <> dif(6) AND ABS(f4 - f3) <> dif(7) AND ABS(f4 - f3) <> dif(8) AND ABS(f4 - f3) <> dif(9) AND ABS(f4 - f3) <> dif(10) AND ABS(f4 - f3) <> dif(11) AND ABS(f4 - f3) <> dif(12) AND ABS(f4 - f3) <> dif(13) AND ABS(f4 - f3) <> dif(14) AND ABS(f4 - f3) <> dif(15) AND ABS(f4 - f3) <> dif(16) AND ABS(f4 - f3) <> dif(17) AND ABS(f4 - f3) <> dif(18) AND ABS(f4 - f3) <> dif(19) AND ABS(f4 - f3) <> dif(20) AND ABS(f4 - f3) <> dif(21) AND ABS(f4 - f3) <> dif(22) AND ABS(f4 - f3) <> dif(23) AND ABS(f4 - f3) <> dif(24) AND ABS(f4 - f3) <> dif(25) AND ABS(f4 - f2) <> dif(1) AND ABS(f4 - f2) <> dif(2) AND ABS(f4 - f2) <> dif(3) AND ABS(f4 - f2) <> dif(4) AND ABS(f4 - f2) <> dif(5) AND ABS(f4 - f2) <> dif(6) AND ABS(f4 - f2) <> dif(7) AND ABS(f4 - f2) <> dif(8) AND ABS(f4 - f2) <> dif(9) AND ABS(f4 - f2) <> dif(10) AND ABS(f4 - f2) <> dif(11) AND ABS(f4 - f2) <> dif(12) AND ABS(f4 - f2) <> dif(13) AND ABS(f4 - f2) <> dif(14) AND ABS(f4 - f2) <> dif(15) AND ABS(f4 - f2) <> dif(16) AND ABS(f4 - f2) <> dif(17) AND ABS(f4 - f2) <> dif(18) AND ABS(f4 - f2) <> dif(19) AND ABS(f4 - f2) <> dif(20) AND ABS(f4 - f2) <> dif(21) AND ABS(f4 - f2) <> dif(22) AND ABS(f4 - f2) <> dif(23) AND ABS(f4 - f2) <> dif(24) AND ABS(f4 - f2) <> dif(25) AND ABS(f4 - f1) <> dif(1) AND ABS(f4 - f1) <> dif(2) AND ABS(f4 - f1) <> dif(3) AND ABS(f4 - f1) <> dif(4) AND ABS(f4 - f1) <> dif(5) AND ABS(f4 - f1) <> dif(6) AND ABS(f4 - f1) <> dif(7) AND ABS(f4 - f1) <> dif(8) AND ABS(f4 - f1) <> dif(9) AND ABS(f4 - f1) <> dif(10) AND ABS(f4 - f1) <> dif(11) AND ABS(f4 - f1) <> dif(12) AND ABS(f4 - f1) <> dif(13) AND ABS(f4 - f1) <> dif(14) AND ABS(f4 - f1) <> dif(15) AND ABS(f4 - f1) <> dif(16) AND ABS(f4 - f1) <> dif(17) AND ABS(f4 - f1) <> dif(18) AND ABS(f4 - f1) <> dif(19) AND ABS(f4 - f1) <> dif(20) AND ABS(f4 - f1) <> dif(21) AND ABS(f4 - f1) <> dif(22) AND ABS(f4 - f1) <> dif(23) AND ABS(f4 - f1) <> dif(24) AND ABS(f4 - f1) <> dif(25)
 
    DO
        count = count + 1
        dc5x = INT(RND * 8 + 1)
        dc5y = INT(RND * 8 + 1)
        f5 = chebo(dc5x, dc5y)
        IF count > 8000 THEN EXIT DO
    LOOP UNTIL ABS(f5 - f4) <> dif(1) AND ABS(f5 - f4) <> dif(2) AND ABS(f5 - f4) <> dif(3) AND ABS(f5 - f4) <> dif(4) AND ABS(f5 - f4) <> dif(5) AND ABS(f5 - f4) <> dif(6) AND ABS(f5 - f4) <> dif(7) AND ABS(f5 - f4) <> dif(8) AND ABS(f5 - f4) <> dif(9) AND ABS(f5 - f4) <> dif(10) AND ABS(f5 - f4) <> dif(11) AND ABS(f5 - f4) <> dif(12) AND ABS(f5 - f4) <> dif(13) AND ABS(f5 - f4) <> dif(14) AND ABS(f5 - f4) <> dif(15) AND ABS(f5 - f4) <> dif(16) AND ABS(f5 - f4) <> dif(17) AND ABS(f5 - f4) <> dif(18) AND ABS(f5 - f4) <> dif(19) AND ABS(f5 - f4) <> dif(20) AND ABS(f5 - f4) <> dif(21) AND ABS(f5 - f4) <> dif(22) AND ABS(f5 - f4) <> dif(23) AND ABS(f5 - f4) <> dif(24) AND ABS(f5 - f4) <> dif(25) AND ABS(f5 - f3) <> dif(1) AND ABS(f5 - f3) <> dif(2) AND ABS(f5 - f3) <> dif(3) AND ABS(f5 - f3) <> dif(4) AND ABS(f5 - f3) <> dif(5) AND ABS(f5 - f3) <> dif(6) AND ABS(f5 - f3) <> dif(7) AND ABS(f5 - f3) <> dif(8) AND ABS(f5 - f3) <> dif(9) AND ABS(f5 - f3) <> dif(10) AND ABS(f5 - f3) <> dif(11) AND ABS(f5 - f3) <> dif(12) AND ABS(f5 - f3) <> dif(13) AND ABS(f5 - f3) <> dif(14) AND ABS(f5 - f3) <> dif(15) AND ABS(f5 - f3) <> dif(16) AND ABS(f5 - f3) <> dif(17) AND ABS(f5 - f3) <> dif(18) AND ABS(f5 - f3) <> dif(19) AND ABS(f5 - f3) <> dif(20) AND ABS(f5 - f3) <> dif(21) AND ABS(f5 - f3) <> dif(22) AND ABS(f5 - f3) <> dif(23) AND ABS(f5 - f3) <> dif(24) AND ABS(f5 - f3) <> dif(25) AND ABS(f5 - f2) <> dif(1) AND ABS(f5 - f2) <> dif(2) AND ABS(f5 - f2) <> dif(3) AND ABS(f5 - f2) <> dif(4) AND ABS(f5 - f2) <> dif(5) AND ABS(f5 - f2) <> dif(6) AND ABS(f5 - f2) <> dif(7) AND ABS(f5 - f2) <> dif(8) AND ABS(f5 - f2) <> dif(9) AND ABS(f5 - f2) <> dif(10) AND ABS(f5 - f2) <> dif(11) AND ABS(f5 - f2) <> dif(12) AND ABS(f5 - f2) <> dif(13) AND ABS(f5 - f2) <> dif(14) AND ABS(f5 - f2) <> dif(15) AND ABS(f5 - f2) <> dif(16) AND ABS(f5 - f2) <> dif(17) AND ABS(f5 - f2) <> dif(18) AND ABS(f5 - f2) <> dif(19) AND ABS(f5 - f2) <> dif(20) AND ABS(f5 - f2) <> dif(21) AND ABS(f5 - f2) <> dif(22) AND ABS(f5 - f2) <> dif(23) AND ABS(f5 - f2) <> dif(24) AND ABS(f5 - f2) <> dif(25) AND ABS(f5 - f1) <> dif(1) AND ABS(f5 - f1) <> dif(2) AND ABS(f5 - f1) <> dif(3) AND ABS(f5 - f1) <> dif(4) AND ABS(f5 - f1) <> dif(5) AND ABS(f5 - f1) <> dif(6) AND ABS(f5 - f1) <> dif(7) AND ABS(f5 - f1) <> dif(8) AND ABS(f5 - f1) <> dif(9) AND ABS(f5 - f1) <> dif(10) AND ABS(f5 - f1) <> dif(11) AND ABS(f5 - f1) <> dif(12) AND ABS(f5 - f1) <> dif(13) AND ABS(f5 - f1) <> dif(14) AND ABS(f5 - f1) <> dif(15) AND ABS(f5 - f1) <> dif(16) AND ABS(f5 - f1) <> dif(17) AND ABS(f5 - f1) <> dif(18) AND ABS(f5 - f1) <> dif(19) AND ABS(f5 - f1) <> dif(20) AND ABS(f5 - f1) <> dif(21) AND ABS(f5 - f1) <> dif(22) AND ABS(f5 - f1) <> dif(23) AND ABS(f5 - f1) <> dif(24) AND ABS(f5 - f1) <> dif(25)

Удивительно, но кажется код работает...

@Замабувараев · 17.09.2022, 06:33

Сообщение от yevrowl

Ввод данных в одномерный массив:

На фрибесике можно проще:

PureBasic
1
Dim dif(24) As Integer = {0,1,2,3,4,5,6,7,8,9,10,15,16,17,18,24,27,32,36,40,45,48,54,56,63}

@yevrowl · 17.09.2022, 08:03 **[ТС]**

Замабувараев, а почему 24, если значений 25?

@Catstail · 17.09.2022, 09:36

yevrowl, даже беглый взгляд показывает, что код очень плохой. В смысле - безобразно длинный.

@Замабувараев · 17.09.2022, 12:47

Сообщение от yevrowl

а почему 24, если значений 25?

С 0 по 24 получается 25.
В скобках указывают не количество элементов, а нижнюю и верхнюю границу. Если нижняя не указана, значит там 0.
Массивы в бесике по умолчанию индексируются с нуля.

@yevrowl · 17.09.2022, 13:25 **[ТС]**

Catstail, в общем, код работает раз через два, в QB64, а DOS'овским QBX последнюю строку даже не компилирует, указывая на это.

Замабувараев, пытаюсь клепать универсальный код, понимаемый FreeBasic, QB64 и QuickBasic одновременно.

@Catstail · 17.09.2022, 17:15

yevrowl, чуть позже я тоже внесу свои 5 коп

Добавлено через 3 часа 47 минут
yevrowl, перечитал и не понял постановку... Есть последовательность {n,n+1,...,n+k}. То, что она организована в виде двумерного массива, не играет особой роли. Дальше нужно "Задача состоит в размещении 5 псевдослучайных элементов". Вопрос - где разместить?

@yevrowl · 17.09.2022, 19:20 **[ТС]**

Catstail, на двумерном массиве, представленном в виде шахматного поля 8 на 8.

@Catstail · 17.09.2022, 19:34

yevrowl, не понял. Там же все места заняты...

@yevrowl · 18.09.2022, 01:29 **[ТС]**

Catstail, это просто №, с которого считается разница.

Для примера:
- для первого элемента выпадает 5 (координата x) и 3 (координата y), в результате получаем номер 121.
- для второго о элемента выпадает 2 (координата x) и 6 (координата y), в результате получаем номер 142.
Абсолютная разница между номерами первого и второго элементов составляет 21, что допустимо.
- для третьего о элемента выпадает 7 (координата x) и 4 (координата y), в результате получаем номер 131.
Абсолютная разница между номерами третьего и второго элементов составляет 11, что допустимо.
Абсолютная разница между номерами третьего и первого элементов составляет 10, что недопустимо, и поэтому снова включается генератор псевдослучайных чисел.
И так для всех пяти элементов.

Добавлено через 19 минут
Задача решена! Всем спасибо за участие!

@yevrowl · 18.09.2022, 09:18 **[ТС]**

Вот код:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
generate:
dc2x = INT(RND * 8 + 1)
dc2y = INT(RND * 8 + 1)
f2 = chebo(dc2x, dc2y)
FOR index = 1 TO 25
IF ABS(f1 - f2) = dif(index) THEN GOTO generate
NEXT index
dc3x = INT(RND * 8 + 1)
dc3y = INT(RND * 8 + 1)
f3 = chebo(dc3x, dc3y)
FOR index = 1 TO 25
IF ABS(f1 - f3) = dif(index) THEN GOTO generate
IF ABS(f2 - f3) = dif(index) THEN GOTO generate
NEXT index
dc4x = INT(RND * 8 + 1)
dc4y = INT(RND * 8 + 1)
f4 = chebo(dc4x, dc4y)
FOR index = 1 TO 25
IF ABS(f1 - f4) = dif(index) THEN GOTO generate
IF ABS(f2 - f4) = dif(index) THEN GOTO generate
IF ABS(f3 - f4) = dif(index) THEN GOTO generate
NEXT index
dc5x = INT(RND * 8 + 1)
dc5y = INT(RND * 8 + 1)
f5 = chebo(dc5x, dc5y)
FOR index = 1 TO 25
IF ABS(f1 - f5) = dif(index) THEN GOTO generate
IF ABS(f2 - f5) = dif(index) THEN GOTO generate
IF ABS(f3 - f5) = dif(index) THEN GOTO generate
IF ABS(f4 - f5) = dif(index) THEN GOTO generate
NEXT index
FOR index = 1 TO 25
IF ABS(f1 - f2) = dif(index) THEN GOTO generate
IF ABS(f1 - f3) = dif(index) THEN GOTO generate
IF ABS(f1 - f4) = dif(index) THEN GOTO generate
IF ABS(f1 - f5) = dif(index) THEN GOTO generate
IF ABS(f2 - f3) = dif(index) THEN GOTO generate
IF ABS(f2 - f4) = dif(index) THEN GOTO generate
IF ABS(f2 - f5) = dif(index) THEN GOTO generate
IF ABS(f3 - f4) = dif(index) THEN GOTO generate
IF ABS(f3 - f5) = dif(index) THEN GOTO generate
IF ABS(f4 - f5) = dif(index) THEN GOTO generate
NEXT index

В конце реализована проверка результата.

@Quiet Snow · 18.09.2022, 22:50

Думаю вопрос ожидался: в чём практический смысл этой задачи?

Ну и вы уверены что правильно сформулировали задачу?

Задача состоит в размещении 5 псевдослучайных элементов таким образом, чтобы разница между двумя любыми из таковых не составляла ни одно из следующих 52 (25) значений.

Двумя любыми из каковых? Если из размещаемых, то зачем тут фигурирует матрица с конкретными значениями?
Если имелось в виду разница между любыми двумя в матрице, то неизбежен двойной цикл для проверки,
т.к. вставляемое значение аффектит предполагаемый результат по всей матрице (если любые два).

Господа, разбирайтесь с формулировками своих задач.

@yevrowl · 19.09.2022, 00:25 **[ТС]**

Quiet Snow, да, вы правы, надо было написать между всеми элементами.

P. S. Закладываемый смысл в видоизменённой реализации алгоритма Guess Chess, которую обнаружил на малоизвестном сборнике «eGames for Windows» (для Windows 3x/9x).

@yevrowl · 19.09.2022, 02:11 **[ТС]**

Длинные строки не компилируются QBX. Просто информация для сведения.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@yevrowl 304 / 75 / 6 Регистрация: 27.04.2022 Сообщений: 238
	17.09.2022, 08:03 [ТС]
	Замабувараев, а почему 24, если значений 25? 0

@Catstail Супер-модератор 38176 / 21111 / 4307 Регистрация: 12.02.2012 Сообщений: 34,713 Записей в блоге: 14
	17.09.2022, 09:36
	Сообщение было отмечено yevrowl как решение Решение yevrowl, даже беглый взгляд показывает, что код очень плохой. В смысле - безобразно длинный. 1

@yevrowl 304 / 75 / 6 Регистрация: 27.04.2022 Сообщений: 238
	17.09.2022, 13:25 [ТС]
	Catstail, в общем, код работает раз через два, в QB64, а DOS'овским QBX последнюю строку даже не компилирует, указывая на это. Замабувараев, пытаюсь клепать универсальный код, понимаемый FreeBasic, QB64 и QuickBasic одновременно. 0

@Catstail Супер-модератор 38176 / 21111 / 4307 Регистрация: 12.02.2012 Сообщений: 34,713 Записей в блоге: 14
	17.09.2022, 17:15
	yevrowl, чуть позже я тоже внесу свои 5 коп Добавлено через 3 часа 47 минут yevrowl, перечитал и не понял постановку... Есть последовательность {n,n+1,...,n+k}. То, что она организована в виде двумерного массива, не играет особой роли. Дальше нужно "Задача состоит в размещении 5 псевдослучайных элементов". Вопрос - где разместить? 1

@yevrowl 304 / 75 / 6 Регистрация: 27.04.2022 Сообщений: 238
	17.09.2022, 19:20 [ТС]
	Catstail, на двумерном массиве, представленном в виде шахматного поля 8 на 8. 0

@Catstail Супер-модератор 38176 / 21111 / 4307 Регистрация: 12.02.2012 Сообщений: 34,713 Записей в блоге: 14
	17.09.2022, 19:34
	yevrowl, не понял. Там же все места заняты... 1

@yevrowl 304 / 75 / 6 Регистрация: 27.04.2022 Сообщений: 238
	18.09.2022, 01:29 [ТС]
	Catstail, это просто №, с которого считается разница. Для примера: - для первого элемента выпадает 5 (координата x) и 3 (координата y), в результате получаем номер 121. - для второго о элемента выпадает 2 (координата x) и 6 (координата y), в результате получаем номер 142. Абсолютная разница между номерами первого и второго элементов составляет 21, что допустимо. - для третьего о элемента выпадает 7 (координата x) и 4 (координата y), в результате получаем номер 131. Абсолютная разница между номерами третьего и второго элементов составляет 11, что допустимо. Абсолютная разница между номерами третьего и первого элементов составляет 10, что недопустимо, и поэтому снова включается генератор псевдослучайных чисел. И так для всех пяти элементов. Добавлено через 19 минут Задача решена! Всем спасибо за участие! 0

@yevrowl 304 / 75 / 6 Регистрация: 27.04.2022 Сообщений: 238
	19.09.2022, 00:25 [ТС]
	Quiet Snow, да, вы правы, надо было написать между всеми элементами. P. S. Закладываемый смысл в видоизменённой реализации алгоритма Guess Chess, которую обнаружил на малоизвестном сборнике «eGames for Windows» (для Windows 3x/9x). 0

@yevrowl 304 / 75 / 6 Регистрация: 27.04.2022 Сообщений: 238
	19.09.2022, 02:11 [ТС]
	Длинные строки не компилируются QBX. Просто информация для сведения. Миниатюры 0

Отсутствие заданной разницы между элементами массива

Решение