Пожалуйста посчитайте пожалуйста! Проверить, является ли данная квадратная матрица симметричной (ОТНОСИТЕЛЬНО ГЛАВНОЙ ДИАГОНАЛИ). Заметим, что в этом случае для симметричных элементов выполняется условие: a(i, j)=a(j,i).(QBasic)
300
ОТВЕТЫ
CLS
RANDOMIZE TIMER
INPUT "n = ", n
DIM A(n, n)
PRINT "1 - BBECTI ELEMENTbI C KLABbI"
PRINT "2 - RANDOM"
INPUT BBOD
IF BBOD = 2 THEN
FOR i = 1 TO n
FOR j = 1 TO n
A(i, j) = RND * 21 - 10
NEXT j
NEXT i
ELSE
FOR i = 1 TO n
FOR j = 1 TO n
PRINT "A["; i; ","; j; "] = ";
INPUT "", A(i, j)
NEXT j
NEXT i
END IF
CLS
FOR i = 1 TO n
FOR j = 1 TO n
PRINT USING "###.##"; A(i, j);
PRINT " ";
NEXT j
PRINT
NEXT i
C = 1
FOR i = 1 TO n
FOR j = 1 TO n
IF A(i, j) <> A(j, i) THEN
C = 0
END IF
NEXT j
NEXT i
IF C = 1 THEN
PRINT "DA"
ELSE
PRINT "NET"
END IF
END
RANDOMIZE TIMER
INPUT "n = ", n
DIM A(n, n)
PRINT "1 - BBECTI ELEMENTbI C KLABbI"
PRINT "2 - RANDOM"
INPUT BBOD
IF BBOD = 2 THEN
FOR i = 1 TO n
FOR j = 1 TO n
A(i, j) = RND * 21 - 10
NEXT j
NEXT i
ELSE
FOR i = 1 TO n
FOR j = 1 TO n
PRINT "A["; i; ","; j; "] = ";
INPUT "", A(i, j)
NEXT j
NEXT i
END IF
CLS
FOR i = 1 TO n
FOR j = 1 TO n
PRINT USING "###.##"; A(i, j);
PRINT " ";
NEXT j
NEXT i
C = 1
FOR i = 1 TO n
FOR j = 1 TO n
IF A(i, j) <> A(j, i) THEN
C = 0
END IF
NEXT j
NEXT i
IF C = 1 THEN
PRINT "DA"
ELSE
PRINT "NET"
END IF
END
17
Отв. дан
Евгения
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Валентина
Пусть дан фрагмент программы: y:=0; i:=2; while i<=5 do ...
2018-09-25 00:00:00
Saizar
Чему равна сумма чисел, больших 343 -х и меньших ...
2018-09-25 00:00:00
Centriswyn
Из двух сосудов по 150 литров первым наполнили водой ...
2018-09-25 00:00:00
Кондрат
4=-x^3
-3=-x^3
Подскажите как, пожалуйста, подробно распишите. ...
2018-09-25 00:00:00