Поменять местами первую и последнюю строки матрицы при условии, что они не содержат максимального элемента — Basic(Бейсик)

disel
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
'   Размерность
CONST x = 5, y = 5
'   Матрица
DIM M(x, y), MaxEl, MaxY
CLS
     ' Заполним матрицу
   RANDOMIZE TIMER ' Заполняем случ. числами
   M(1, 1) = 1
  FOR iy = 1 TO y: FOR ix = 1 TO x
    M(ix, iy) = INT(RND * 51) - 25
  NEXT: NEXT
     ' Выведем её на экран
  PRINT "____Ishodnaya matrica______________________"
  FOR iy = 1 TO y: FOR ix = 1 TO x
    PRINT M(ix, iy);
  NEXT: PRINT : NEXT: PRINT
     ' Найдём максимальный элемент всей матрицы
  FOR iy = 1 TO y: FOR ix = 1 TO x
    IF M(ix, iy) > MaxEl THEN MaxEl = M(ix, iy): MaxY = iy
  NEXT: NEXT
     ' Если в 1 и посл. строке нет макс. эл, то меняем
   IF MaxY <> 1 AND MaxY <> y THEN
     FOR i = 1 TO x
       SWAP M(i, 1), M(i, y)
     NEXT
   END IF
     ' Выведем готовую матрицу на экран
  PRINT "____Novaya matrica_________________________"
  FOR iy = 1 TO y: FOR ix = 1 TO x
    PRINT M(ix, iy);
  NEXT: PRINT : NEXT

Похожие записи/страницы:

Leave a Comment