Упорядочить строки по возрастанию элементов главной диагонал

@Petro29 · Регистрация: 30.04.2016

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

В массивe R(5, 5) упорядочить строки по возрастанию элементов главной диагонали.

QBasic/QuickBASIC

CLS
DIM X(5, 5)
FOR i = 1 TO 5
FOR j = 1 TO 5
  IF i = j  THEN
X(i, j) = INT(20 * RND(i))
   END IF
   LOCATE i * 2, j * 4 – 3
   PRINT X(i, j);
NEXT j, i

На выходе имеем: Должно быть так или не так?:

QBasic/QuickBASIC

14   0    0   0   0               5     0     0    0    0
0    10   0   0   0                0    6     0    0    0
0     0   11  0   0                0     0   10   0     0
0     0    0   5   0                0     0     0   11   0
0     0    0   0   6                0     0     0   0    14

Эта задача 281 Интернетовская. Раз она задана,
значит должна иметь решение. А какое – вопрос.
Пишу не 101 раз, а 3-й или 4-й ра, т. е.пластинка
старая, с 2017 года.
Вот ещё одна попытка.
Ответов было множество: и от НТЧ (17.06.19)
и реплика кота Бегемота (18.06.19) на ответ НТЧ, реплика
QuietSnow, и реплика markiza-inc.Короче – учёная дискуссия.
Вот и такую программу дали – то ли от markiza-inc, то ли
от кота Бегемота:
Программа на 50 строк. А на выходе получили два
столбика из 18 строк, причём второй столбик состоит
из одних нулей. Что за программа такая и что за результат?
Так имеет эта задача решение и какой вариант
решения этой задачи:
1. Первый вариант: обнулить все элементы кроме элементов
главной диагонали. И расставить эти элементы по
возрастанию (как указано выше).
2. Второй вариант: расставить строки так, чтобы элементы
главной диагонали расположились по возрастанию.
Можно решить хотя бы один из вариантов.
А лучше оба варианта.
Вот конкретный ответ от кота Бегемота от 18.16.19:
Задача 281. В массивe R(5, 5) упорядочить строки по
убыванию элементов главной диагонали.
Не надо никакого линейного массива. Вот примерно так:

QBasic/QuickBASIC

1. FOR I = 1 TO 5
2. FOR j = 2 TO 5
3. IF X(j, j) > X(j – 1, j – 1) THEN  SWAP X(j, j), X(j – 1, j – 1)
4. NEXT
5. NEXT

Вот использовал Ваш фрагмент:

QBasic/QuickBASIC

CLS
DIM X(5, 5)
   FORi = 1 TO 5
    FOR j = 1 TO 5
       IF i = j THEN
  X(i, j) = INT(20 * RND(i))
     END IF
  LOCATE i * 2, j * 4 – 3
     PRINT X(i, j);
   NEXT j, i
   FOR i = 1 TO 5
     FOR j = 2 TO 5
   IF X(j, j) > X(j-1, j-1) THEN SWAP X(j, j), X(j – 1, j – 1)
  LOCATE I * 2, 18 + j * 4
      PRINT X(I, j);
   NEXT: NEXT

На выходе имеем:

QBasic/QuickBASIC

14   0   0   0   0      0    0   0   0  
   0 10  0   0   0      11  0   0   0  
   0   0  11  0  0      0   10   0   0   
   0   0   0   5   0      0    0   6   0  
   0   0   0   0   6      0   0    0   5

Всё бы хорошо. Была бы идеальная программа. Такая
короткая. Только первого столбца не хватает.?
Куда же он делся?

	22.10.2019, 09:07