Учеба и наука

• Всего ответов: 2


Дмитрий
36-й в Учебе и науке
5.0 1 отзыв
метод пузырька вам в помощь ;-) задача не из простых (т.е. бесплатных)
декабрь 13, 2010 г.

Антон Евгеньевич Городов
16-й в
1 отзыв
А ответов сложных и не надо:
'Упорядочить массив 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
 
декабрь 14, 2010 г.

Похожие вопросы