Определить в каждой строке матрицы минимальные и максимальные элементы, после чего поменять их местами

@sugoi · Регистрация: 28.12.2016

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

Дана матрица D (8x8), элементами которой являются целые числа. Преобразовать исходную матрицу D (8x8), определив в каждой строке max и min элементы, после чего поменять их местами.На монитор вывести исходную матрицу D (8x8) и измененную матрицу В (8x8). Помогите ибо совсем недавно начал изучать basic

echs · 29.12.2016, 10:56

примечание
если в строке матрицы окажется два и более
минимумов (максимумов), то программа выберет
первый их них

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
CONST n = 8
 
DIM D(1 TO n, 1 TO n)
DIM B(1 TO n, 1 TO n)
DIM M(1 TO n, 1 TO 2)  ' jmax, jmin
DIM MM(1 TO n, 1 TO 2) '  max, min
 
FOR i = 1 TO n
FOR j = 1 TO n
   D(i, j) = INT(40 * RND) - 20
   B(i, j) = D(i, j)
   PRINT USING "####"; D(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO n
   MM(i, 1) = D(i, 1)
   MM(i, 2) = D(i, 1)
   M(i, 1) = 1
   M(i, 2) = 1
NEXT
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF MM(i, 1) < B(i, j) THEN
      MM(i, 1) = B(i, j)
      M(i, 1) = j
   END IF
   IF MM(i, 2) > B(i, j) THEN
      MM(i, 2) = B(i, j)
      M(i, 2) = j
   END IF
NEXT j, i
 
FOR i = 1 TO n
   SWAP B(i, M(i, 1)), B(i, M(i, 2))
NEXT i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING "####"; B(i, j);
NEXT: PRINT
NEXT
END

@sugoi 0 / 0 / 0 Регистрация: 28.12.2016 Сообщений: 4
		1
	Определить в каждой строке матрицы минимальные и максимальные элементы, после чего поменять их местами 28.12.2016, 18:44. Показов 961. Ответов 1 Метки нет (Все метки) Дана матрица D (8x8), элементами которой являются целые числа. Преобразовать исходную матрицу D (8x8), определив в каждой строке max и min элементы, после чего поменять их местами.На монитор вывести исходную матрицу D (8x8) и измененную матрицу В (8x8). Помогите ибо совсем недавно начал изучать basic 0

Опции темы

Определить в каждой строке матрицы минимальные и максимальные элементы, после чего поменять их местами

Решение