Получить целочисленную квадратную матрицу

@RendomID · Регистрация: 10.01.2014

Дана действительная квадратная матрица порядка . Получить целочисленную квадратную матрицу того же порядка, в которой элемент равен 1 , если соответствующий ему элемент исходной матрицы больше элемента, расположенного в его строке на главной диагонали, и равен 0 в противном случае. (Число n задаётся пользователем, матрица A генерируется случайным образом с элементами в диапазоне [-100;100] ).

echs · 20.04.2017, 20:40

QBasic/QuickBASIC

CLS
RANDOMIZE TIMER
INPUT "N = "; n
DIM A(n, n)
DIM B(n, n)
 
FOR i = 1 TO n
FOR j = 1 TO n
   A(i, j) = 200 * RND - 100
   PRINT USING " ###.##"; A(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO n
FOR j = 1 TO n
   IF A(i, j) > A(i, i) THEN
      B(i, j) = 1
   ELSE
      B(i, j) = 0
   END IF
NEXT j, i
 
FOR i = 1 TO n
FOR j = 1 TO n
   PRINT USING " ###"; B(i, j);
NEXT: PRINT
NEXT
END

@RendomID 4 / 4 / 0 Регистрация: 10.01.2014 Сообщений: 94
		1
	Получить целочисленную квадратную матрицу 20.04.2017, 14:33. Показов 1608. Ответов 1 Метки нет (Все метки) Дана действительная квадратная матрица порядка . Получить целочисленную квадратную матрицу того же порядка, в которой элемент равен 1 , если соответствующий ему элемент исходной матрицы больше элемента, расположенного в его строке на главной диагонали, и равен 0 в противном случае. (Число n задаётся пользователем, матрица A генерируется случайным образом с элементами в диапазоне [-100;100] ). 0

Опции темы

Получить целочисленную квадратную матрицу

Решение