FRstudy.me offre une plateforme conviviale pour trouver et partager des connaissances. Posez n'importe quelle question et recevez des réponses rapides et précises de la part de notre communauté d'experts expérimentés.
Sagot :
Programme 1: calcul de A
CONST n = 3
CONST p = 5
DIM SHARED A(n, p) AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
A(1, 1) = 0: A(1, 2) = 1: A(1, 3) = 2: A(1, 4) = 3: A(1, 5) = 4
A(2, 1) = -1
A(3, 1) = -3
FOR i = 2 TO n
FOR j = 2 TO p
PRINT A(i, j); "=>"; A(i - 1, j); "+ "; A(i, j - 1); "=";
A(i, j) = A(i - 1, j) + A(i, j - 1)
PRINT A(i, j)
NEXT j
CALL See
NEXT i
END
SUB See
SHARED A() AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO p
PRINT A(i, j); " ";
NEXT j
PRINT
NEXT i
END SUB
--------------------------------------------------------------------------------------------
Programme 2: calcul de B
CONST n = 3
CONST p = 5
DIM SHARED A(n, p) AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
A(1, 1) = 9999: A(1, 2) = 9999: A(1, 3) = 9999: A(1, 4) = 9999: A(1, 5) = 9999
A(2, 1) = 9999: A(2, 2) = 4: A(2, 3) = 7: A(2, 4) = 16: A(2, 5) = 15
A(3, 1) = 9999: A(3, 2) = 9: A(3, 3) = 16: A(3, 4) = 32: A(3, 5) = 47
CALL See
i = 1
FOR j = 3 TO p
PRINT A(i, j); "=>"; A(i + 1, j); "-"; A(i + 1, j - 1); "=";
A(i, j) = A(i + 1, j) - A(i + 1, j - 1)
PRINT A(i, j)
NEXT j
CALL See
A(3, 1) = A(3, 2) - A(2, 2)
CALL See
END
SUB See
SHARED A() AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO p
PRINT A(i, j); " ";
NEXT j
PRINT
NEXT i
END SUB
CONST n = 3
CONST p = 5
DIM SHARED A(n, p) AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
A(1, 1) = 0: A(1, 2) = 1: A(1, 3) = 2: A(1, 4) = 3: A(1, 5) = 4
A(2, 1) = -1
A(3, 1) = -3
FOR i = 2 TO n
FOR j = 2 TO p
PRINT A(i, j); "=>"; A(i - 1, j); "+ "; A(i, j - 1); "=";
A(i, j) = A(i - 1, j) + A(i, j - 1)
PRINT A(i, j)
NEXT j
CALL See
NEXT i
END
SUB See
SHARED A() AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO p
PRINT A(i, j); " ";
NEXT j
NEXT i
END SUB
--------------------------------------------------------------------------------------------
Programme 2: calcul de B
CONST n = 3
CONST p = 5
DIM SHARED A(n, p) AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
A(1, 1) = 9999: A(1, 2) = 9999: A(1, 3) = 9999: A(1, 4) = 9999: A(1, 5) = 9999
A(2, 1) = 9999: A(2, 2) = 4: A(2, 3) = 7: A(2, 4) = 16: A(2, 5) = 15
A(3, 1) = 9999: A(3, 2) = 9: A(3, 3) = 16: A(3, 4) = 32: A(3, 5) = 47
CALL See
i = 1
FOR j = 3 TO p
PRINT A(i, j); "=>"; A(i + 1, j); "-"; A(i + 1, j - 1); "=";
A(i, j) = A(i + 1, j) - A(i + 1, j - 1)
PRINT A(i, j)
NEXT j
CALL See
A(3, 1) = A(3, 2) - A(2, 2)
CALL See
END
SUB See
SHARED A() AS DOUBLE
DIM i AS INTEGER, j AS INTEGER
FOR i = 1 TO n
FOR j = 1 TO p
PRINT A(i, j); " ";
NEXT j
NEXT i
END SUB
Votre participation est très importante pour nous. Continuez à partager des informations et des solutions. Cette communauté se développe grâce aux contributions incroyables de membres comme vous. Chaque question trouve une réponse sur FRstudy.me. Merci et à très bientôt pour d'autres solutions.