Матрица обладает диагональным преобладанием, если каждый элемент ее главной диагонали не меньше остальных элементов соответствующей строки. Выяснить обладает ли данная целочисленная матрица размером 5х5 диагональным преобладанием- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
n=5:m=5
DIM a(n,m)
RANDOMIZE TIMER
FOR i=1 TO n
 FOR j=1 TO m
  a(i,j)=INT(RND*101)-50
 NEXT j
NEXT i
PRINT "Matrica"
FOR i=1 TO n
 FOR j=1 TO m
  PRINT a(i,j);
 NEXT j
 PRINT
NEXT i
FOR i=1 TO n
 FOR j=1 TO m
  IF a(i,i)<a(i,j) THEN PRINT "Matrica ne obladaet diagonalnim preobladaniem":END
 NEXT j
NEXT i
PRINT "Matrica obladaet diagonalnim preobladaniem"

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment