метод пузырька вам в помощь ;-) задача не из простых (т.е. бесплатных)
Добрый день. Меня заинтересовал ваш ответ "метод пузырька вам в помощь ;-) задача не из простых (т.е. бесплатных)" на вопрос http://www.liveexpert.org/topic/view/47823-. Можно с вами обсудить этот ответ?
'Упорядочить массив 6 на 7 по возрастанию
N = 6
M = 7
R = 1000
DIM A(1 TO N, 1 TO M)
RANDOMIZE TIMER
CLS
PRINT "--- Исходная матрица ---"
FOR I = 1 TO N
FOR J = 1 TO M
A(I, J) = INT((R — 1) * RND) + 1
PRINT A(I, J);
NEXT
PRINT
NEXT
C = 0
FOR I = 1 TO N
FOR J = 1 TO M — 1
C = C + 1
IF A(I, J) > A(I, J + 1) THEN
T = A(I, J)
A(I, J) = A(I, J + 1)
A(I, J + 1) = T
J = 0
I = 1
END IF
IF I < N THEN
IF A(I, M) > A(I + 1, 1) THEN
T = A(I, M)
A(I, M) = A(I + 1, 1)
A(I + 1, 1) = T
J = 0
I = 1
END IF
END IF
NEXT J
NEXT I
PRINT "--- Отсортированная матрица ---"
FOR I = 1 TO N
FOR J = 1 TO M
PRINT A(I, J);
NEXT
PRINT
NEXT
PRINT "Всего шагов сортировки ", C