Для квадратной матрицы размером 4х4 определить сумму отрицательных элементов, находящихся ниже главной диагонали, рассчитать, используя процедуру SUB. Найти среднее значение положительных элементов на главной диагонали, используя процедуру FUNCTION- 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
DECLARE SUB SYMMA ( )
DECLARE FUNKTION SREDZNA4! ( )
CLS
DIM SHARED I%, N%, J%, K%, S!, SCP!, Z!
INPUT "ENTER KOL-VO STROK STOLBCOV"; N%
DIM SHARED Z!(1 TO N%, 1 TO N%)
FOR I% = 1 TO N%: FOR J% = 1 TO N%
        PRINT "Z("; I%; ", "; J%; ")"
        INPUT " ", Z(I%, J%)
NEXT J%: NEXT I%
CALL SYMMA
SCP! = SREDZNA4!
PRINT "SYMMA OTRICATELNIH EL-OV NIGE GLAVN DIAG"; S!
PRINT "SREDNEE ZNA4ENIE POLOG EL-OV NA GLAVN DIAG"; SCP!
END
 
SUB SYMMA
S! = 0
FOR I% = 1 TO N%: FOR J% = 1 TO N%
        IF (I% > J%) AND (Z!(I%, J%) < 0) THEN
            S! = S! + Z!(I%, J%)
        END IF
NEXT J%: NEXT I%
END SUB
 
FUNCTION SREDZNA4!
K% = 0
SCP! = 0
FOR I% = 1 TO N%: FOR J% = 1 TO N%
        IF (I% = J%) AND (Z!(I%, J%) > 0) THEN
            SCP! = SCP! + Z!(I%, J%)
            K% = K% + 1
        END IF
NEXT J%, I%
SREDZNA4! = SCP! / K%
END FUNCTION

Тестирование выполнено в программе QB64 ( Скачать )

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

Leave a Comment