Даны два двумерных массива. Получить новый массив С. Элементы которого равны C(I,J)=A(I,J)*B(I,J). Подсчитать сумму элементов массива С — QBasic(Бейсик)

disel
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
36
37
38
39
40
DECLARE SUB CalcResult
DECLARE FUNCTION CalcSum
  
CONST N = 3, M = 4
DIM SHARED A(1 To N, 1 TO M), B(1 To N, 1 TO M), C(1 To N, 1 TO M)
RANDOMIZE TIMER
FOR j = 1 TO M
    FOR i = 1 TO N
        A(i, j) = FIX(RND * 10)
        B(i, j) = FIX(RND * 10)
    NEXT
NEXT
CALL CalcResult
PRINT "Result matrix is:"
FOR j = 1 TO M
    FOR i = 1 TO N
        PRINT TAB(i * 8 - 7) C(i, j);
    NEXT
    PRINT
NEXT
PRINT
PRINT "Summ of matrix is: "; CalcSum
  
SUB CalcResult
    FOR j = 1 TO M
        FOR i = 1 TO N
            C(i, j) = A(i, j) * B(i, j)
        NEXT
    NEXT
END SUB
  
FUNCTION CalcSum
    RET = 0
    FOR j = 1 TO M
        FOR i = 1 TO N
            RET = RET + C(i, j)
        NEXT
    NEXT
    CalcSum = RET
END FUNCTION

Похожие записи/страницы: