zvaruchserhi » 26 июн 2013, 22:40
спасибо что мне НИКТО не помог, я сам ее доделал
DECLARE SUB p (a())
DECLARE SUB o (a())
OPTION BASE 1
CLS
DIM a(6, 6)
a(1, 1) = 2
a(1, 2) = 5
a(1, 3) = 5
a(1, 4) = 6
a(1, 5) = 6
a(1, 6) = -4
a(2, 1) = 1
a(2, 2) = 6
a(2, 3) = 2
a(2, 4) = 3
a(2, 5) = 5
a(2, 6) = -5
a(3, 1) = 1
a(3, 2) = 4
a(3, 3) = 3
a(3, 4) = 7
a(3, 5) = 2
a(3, 6) = -3
a(4, 1) = 2
a(4, 2) = 5
a(4, 3) = 5
a(4, 4) = 6
a(4, 5) = 7
a(4, 6) = 3
a(5, 1) = 6
a(5, 2) = 0
a(5, 3) = 3
a(5, 4) = 1
a(5, 5) = 4
a(5, 6) = 0
a(6, 1) = 5
a(6, 2) = 7
a(6, 3) = -2
a(6, 4) = 4
a(6, 5) = -3
a(6, 6) = 5
FOR i = 1 TO 6
FOR j = 1 TO 6
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
PRINT
PRINT
CALL p(a())
CALL o(a())
SUB o (a())
r = 2
k = 4
s = 9
PRINT
PRINT
FOR i = 2 TO 2
FOR j = 1 TO 6
w = a(r, j)
e = a(k, j)
a(r, j) = (w + e) * s
NEXT j
PRINT
NEXT i
FOR i = 1 TO 6
FOR j = 1 TO 6
PRINT USING "####"; a(i, j);
NEXT j
PRINT
NEXT i
END SUB
SUB p (a())
FOR i = 1 TO 6
FOR j = 1 TO 6
q = a(i, 1)
a(i, 1) = a(i, 3)
a(i, 3) = q
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
END SUB
спасибо что мне НИКТО не помог, я сам ее доделал
DECLARE SUB p (a())
DECLARE SUB o (a())
OPTION BASE 1
CLS
DIM a(6, 6)
a(1, 1) = 2
a(1, 2) = 5
a(1, 3) = 5
a(1, 4) = 6
a(1, 5) = 6
a(1, 6) = -4
a(2, 1) = 1
a(2, 2) = 6
a(2, 3) = 2
a(2, 4) = 3
a(2, 5) = 5
a(2, 6) = -5
a(3, 1) = 1
a(3, 2) = 4
a(3, 3) = 3
a(3, 4) = 7
a(3, 5) = 2
a(3, 6) = -3
a(4, 1) = 2
a(4, 2) = 5
a(4, 3) = 5
a(4, 4) = 6
a(4, 5) = 7
a(4, 6) = 3
a(5, 1) = 6
a(5, 2) = 0
a(5, 3) = 3
a(5, 4) = 1
a(5, 5) = 4
a(5, 6) = 0
a(6, 1) = 5
a(6, 2) = 7
a(6, 3) = -2
a(6, 4) = 4
a(6, 5) = -3
a(6, 6) = 5
FOR i = 1 TO 6
FOR j = 1 TO 6
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
PRINT
PRINT
CALL p(a())
CALL o(a())
SUB o (a())
r = 2
k = 4
s = 9
PRINT
PRINT
FOR i = 2 TO 2
FOR j = 1 TO 6
w = a(r, j)
e = a(k, j)
a(r, j) = (w + e) * s
NEXT j
PRINT
NEXT i
FOR i = 1 TO 6
FOR j = 1 TO 6
PRINT USING "####"; a(i, j);
NEXT j
PRINT
NEXT i
END SUB
SUB p (a())
FOR i = 1 TO 6
FOR j = 1 TO 6
q = a(i, 1)
a(i, 1) = a(i, 3)
a(i, 3) = q
PRINT USING "###"; a(i, j);
NEXT j
PRINT
NEXT i
END SUB