В массиве A(4,4) найти сумму элементов главной диагонали- Basic(Бейсик)

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
'1] . . .  Pervaya
DIM A(4, 4), sum
RANDOMIZE TIMER: CLS
PRINT "Zadanie 1 "; STRING$(70, CHR$(196))
FOR i2 = 1 TO 4
    FOR i = 1 TO 4
        A(i2, i) = INT(RND * 10) - 5
        IF i = i2 THEN COLOR 10 ELSE COLOR 7
        PRINT A(i2, i); LEFT$(CHR$(13), ABS(i = 4));
NEXT i, i2: COLOR 7
FOR i = 1 TO 4: sum = sum + A(i, i): NEXT
PRINT "Summa elem-ov diagonali:"; sum
'2] . . .  Vtoraya
PRINT "Zadanie 2 "; STRING$(70, CHR$(196))
DIM A2(10)
PRINT "Dano    : ";
FOR i = 1 TO 10
    A2(i) = INT(RND * 10) - 5: PRINT A2(i);
NEXT
FOR i = 1 TO 10
    A2(i) = A2(i) * ((A2(i) < 0) + 1)
NEXT: PRINT
PRINT "Result  : ";
FOR i = 1 TO 10
    PRINT A2(i);
NEXT

Следующий пример

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
CLS 'ochistka ekrana
n = 4
DIM a(n, n) 'obyavlenie massiva
RANDOMIZE TIMER 'Zapusk generatora sluchainikh chisel
' Zapolnenie massiva sluchainimi tselimi chislami ot -50 do 50
FOR i = 1 TO n
    FOR j = 1 TO n
        a(i, j) = INT(RND * 101) - 50
    NEXT j
NEXT i
'Vivod massiva na ekran
FOR i = 1 TO n
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT j
    PRINT
NEXT i
s = 0
'pribavlyaem k peremennoi S znachenie kazhdogo elementa glavnoi diagonali
FOR i = 1 TO n
    s = s + a(i, i)
NEXT i
PRINT "Summa elementov glavnoy diagonali="; s 'vivod znacheniya summi na ekran
END

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

Leave a Comment