Выполнить обработку элементарной прямоугольно матрицы A, имеющей N строк и М столбцов. Добавить к матрице строку и вставить её под номером L
Категория: Basic
2011-11-16 16:42:12
code: #basic
INPUT "vvedite kol-vo strok ", n INPUT "vvedite kol-vo stolbcov ", m DIM a(n + 1, m) RANDOMIZE TIMER FOR i = 1 TO n FOR j = 1 TO m a(i, j) = INT(RND * 20) NEXT NEXT PRINT " matrica" FOR i = 1 TO n FOR j = 1 TO m PRINT a(i, j); " "; NEXT PRINT NEXT DO INPUT "vvedite nomer stroki ", l LOOP UNTIL l <= n FOR i = n + 1 TO l + 1 STEP -1 FOR j = 1 TO m a(i, j) = a(i - 1, j) NEXT NEXT FOR i = 1 TO m a(l, i) = INT(RND * 20) NEXT PRINT "novaya matrica" FOR i = 1 TO n + 1 FOR j = 1 TO m PRINT a(i, j); " "; NEXT PRINT NEXT
автор: кот Бегемот
Поделиться: