Даны матрицы K и H 4ого порядка. 3 и 4 элементы 3ей строки матрицы К поменять местами, все элементы 2ого столбца матрицы H сделать равными 17- 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
DIM k(4, 4), h(4, 4)
RANDOMIZE TIMER
FOR i = 1 TO 4
    FOR j = 1 TO 4
        k(i, j) = INT(RND * 20)
        h(i, j) = INT(RND * 20)
    NEXT
NEXT
PRINT "matrica k"
FOR i = 1 TO 4
    FOR j = 1 TO 4
        PRINT k(i, j); " ";
    NEXT
    PRINT
NEXT
PRINT "matrica h"
FOR i = 1 TO 4
    FOR j = 1 TO 4
        PRINT h(i, j); " ";
    NEXT
    PRINT
NEXT
SWAP k(3, 3), k(3, 4)
FOR i = 1 TO 4
    h(i, 4) = 17
NEXT
PRINT "novaya matrica k"
FOR i = 1 TO 4
    FOR j = 1 TO 4
        PRINT k(i, j); " ";
    NEXT
    PRINT
NEXT
PRINT "novaya matrica h"
FOR i = 1 TO 4
    FOR j = 1 TO 4
        PRINT h(i, j); " ";
    NEXT
    PRINT
NEXT

Результат работы программы

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

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

Leave a Comment