СКАЧАТЬ: kontrolnaya-rabota.zip [112,39 Kb] (cкачиваний: 19)

Задание 5. Программирование матричных операций

1. Рассчитать элементы квадратной матрицы ;
2. Из матрицы А по заданному правилу получить элементы вектора Х:

;

1. Провести упорядочение элементов побочной диагонали по возрастанию;
2. Вычислить значение:

Код программы

1 :

CLS

COLOR 10: INPUT "Введите размер матрицы от 2 до 6 N="; N

IF N < 2 OR N > 6 THEN GOTO 1:

CLS

COLOR 2: PRINT "Матрица  A("; N; ","; N; "):"

COLOR 11

DIM A(N, N)

FOR I = 1 TO N

FOR J = 1 TO N

A(I, J) = (I / 2 + 3 * J) * (-2) ^ I

LOCATE I + 2, J * 5

PRINT A(I, J)

NEXT J

NEXT I

LOCATE N + 3, 1

COLOR 2: PRINT Вектор-строка X(N):"

DIM X(N)

FOR I = 1 TO N

FOR J = 1 TO N

X(I) = X(I) + SIN(A(I, J) * A(N - J + 1, I))

NEXT J

LOCATE N + 5, I * 5

COLOR 11: PRINT X(I)

NEXT I

LOCATE N + 6, 1

COLOR 2: PRINT "Элементов побочной диагонали по возрастанию:"

DIM T(N)

J = N

FOR I = 1 TO N

T(I) = A(I, J)

J = J - 1

NEXT I

FOR U = 1 TO N

K = T(U)

FOR I = U TO N

    IF T(I) < K THEN

    K = T(I): l = I

    p = T(U)

    T(U) = T(l)

     T(l) = p

    END IF

NEXT I

LOCATE N + 8, U * 5

COLOR 11: PRINT K

NEXT U

LOCATE N + 10, 1

COLOR 2: PRINT Значение Y:"

FOR I = 1 TO N

IF Max < X(I) THEN

Max = X(I)

END IF

NEXT I

Min = X(1)

FOR I = 1 TO N

IF Min > X(I) THEN

Min = X(I)

END IF

NEXT I

Y = Max - Min

LOCATE N + 10, 15

COLOR 11: PRINT Y

Результаты

При n=4

;

Вектор-строка: X=(-2.08  0.532  0.699  -1,997722);

Сортировка модулей элементов побочной диагонали по возрастанию: -60  -25  40  80;

Значение у(х)=2,788573.

Блок-схема.

Задание1. Формирование элементов матрицы А.

Задание2. Формирование элементов матрицы Х

Задание 3. Сортировка.

Задание 4. Рассчитать значение у(х).