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 32 33 34 35 | CLS INPUT "Razmernost matrici="; n DIM a(n, n) RANDOMIZE TIMER FOR i = 1 TO n FOR j = 1 TO n a(i, j) = INT(RND * 101 ) - 50 NEXT j NEXT i PRINT "Ishodnaya Matrica A" FOR i = 1 TO n FOR j = 1 TO n PRINT a(i, j); NEXT j PRINT NEXT i PRINT INPUT "k="; k FOR j = 1 TO n a(k, j) = a(k, j) / a(k, k) NEXT j PRINT "Matrica A posle preobrazovaniy" FOR i = 1 TO n FOR j = 1 TO n PRINT a(i, j); NEXT j PRINT NEXT i PRINT s = 0 FOR i = 1 TO n s = s + ((a(i, k)) ^ 2 ) NEXT i PRINT "Summa kvadratov k-go stolbca="; s END |
Тестирование выполнено в программе QB64 ( Скачать )