Задана вещественная матрица A(nxn). Построить вектор L={L,L2...Ln} по правилу: если i-я строка матрицы А образует неубывающую последовательность, то Li присвоить значение 1,в противном случае Li присвоить 0.
|
Задана вещественная матрица A(nxn). Построить вектор L={L,L2...Ln} по правилу: если i-я строка матрицы А образует неубывающую последовательность, то Li присвоить значение 1,в противном случае Li присвоить 0.
На Turbo Basic 1.1:
Basic Code:
OPTION BASE 1 DEFINT A-Z SCREEN 0 CLS n = 4 ' Stolbcov m = n ' Strok RANDOMIZE TIMER DIM A#(n, m), L(m) FOR iy = 1 TO m FOR ix = 1 TO n A#(ix, iy) = RND * 10 NEXT NEXT PRINT "A() =" FOR iy = 1 TO m FOR ix = 1 TO n PRINT USING "##.##"; A#(ix, iy); NEXT: PRINT NEXT: PRINT FOR i = 1 TO m Neub = 1 FOR ix = 1 TO n - 1 IF A#(ix + 1, i) < A#(ix, i) THEN Neub = 0: EXIT FOR NEXT L(i) = Neub NEXT PRINT "L() =" FOR i = 1 TO m PRINT L(i); NEXT
Последний раз редактировалось >Quiet Snow<; 23.05.2018 в 06:34.
Free Admin (23.05.2018), Mrpashaaa (29.05.2018)
Спасибо большое за помощь)
« Предыдущая тема | Следующая тема » |
Информация о теме |
Пользователи, просматривающие эту темуЭту тему просматривают: 1 (пользователей: 0 , гостей: 1) |