Пояснения к программе. Суммы строк матрицы формируются в массиве S

Суммы строк матрицы формируются в массиве S. Затем выполняется сортировка массива сумм строк: отыскивается индекс K максимального элемента и его место занимает последний элемент (его индекс — L), после чего меняются местами K -ая и L -ая строки в исходном массиве A, затем этот метод применяется к оставшимся строкам, кроме последней (она уже находится на своем месте) и т.д.

program SORT (input, output);

Type

Matrix = Array [1..10, 1..10] of Real;

Var

i, j, K, L: Integer; {параметры циклов и индексы}

N: Integer; {порядок матрицы}

A: Matrix; {исходная матрица}

S: Array [1..10] of Real; {суммы элементов строк}

R: Real; {промежуточная переменная}

Begin

Repeat

Writeln ('Введите порядок матрицы N, N <= 10');

ReadLn (N)

Until N in [2..10];

Writeln ('Введите матрицу по строкам');

for i:= 1 to N do

for j:= 1 to N do

Read (A[i,j]);

{Вывод исходной матрицы}

Writeln ('Исходная матрица A');

for i:= 1 to N do

Begin

for j:= 1 to N do

Write (A[i,j]:8:1);

Writeln

end;

{подсчет сумм элементов строк }

for i:= 1 to N do

Begin

S[i]:= 0;

for j:= 1 to N do

S[i]:= S[i] + A[i,j]

end;

{сравнение сумм и перестановка строк}

for i:= 1 to N-1 do

Begin

K:= 1; L:= N - i + 1;

for j:= 2 to L do

if S[ j ] > S[ K ] then

K:= j;

{замена суммы переставляемой строки}

S[ K ]:= S[ L ];

{перестановка строк через буферную переменную}

for j:= 1 to N do

Begin

R:= A[K,j];

A[K,j]:= A[L,j];

A[L,j]:= R

End

end;

{Вывод результирующей матрицы}

Writeln ('Отсортированная матрица');

for i:= 1 to N do

Begin

for j:= 1 to N do

Write (A[i,j]:8:1);

Writeln

End

End.

3.12 Получите целочисленную матрицу А размером n  х  m, для которой а _ij =
i + 2 j.

3.13 Пусть дана вещественная матрица размером n  х  m, в которой есть ненулевые элементы. Получите новую матрицу путем деления всех элементов дан­ной матрицы на ее наибольший по модулю элемент.

3.14 Все элементы с наибольшим значением в данной целочисленной квадратной матрице порядка n замените нулями, если эти элементы не принадлежат первой или последней строкам.

3.15 Пусть дана вещественная квадратная матрица порядка п. Найдите среднее арифметическое наибольшего и наименьшего значений ее элементов, расположен­ных ниже главной диагонали.

3.16 В данной вещественной матрице размером n х m найдите сумму эле­ментов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой элемент единственный.

3.17 В данной вещественной матрице размером n  х  m поменяйте местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственные.

3.18 Пусть дана вещественная матрица размером n  х  m, все элементы которой раз­личны. В каждой строке выберите элемент с наименьшим значением, затем среди этих чисел выберите наибольшее. Укажите индексы найденного эле­мента.

3.19 Пусть дано натуральное число п и целочисленная квадратная матрица по­рядка п. Получите b₁, b₂,..., b_n, где b_i — это:

а) значение первого по порядку положительного элемента i -й строки (если таких элементов нет, то принять b_i = 1);

б) сумма элементов, расположенных за первым отрицательным элементом в i - йстроке (если все элементы строки неотрицательны или отрицатель­ный элемент на последнем месте, то принять b_i = 100);

с) сумма элементов, предшествующих последнему отрицательному элементу i -й строки (если все элементы строки неотрицательны, то принять b_i = -1).

3.20 Пусть дана целочисленная матрица размером n  х  m. Найдите номера строк:

а) все элементы которых — нули;

б) элементы в каждой из которых одинаковы;

в) все элементы которых четны;

г) элементы каждой из которых образуют монотонную последовательность (монотонно убывающую или монотонно возрастающую);

д) элементы которых образуют симметричные последовательности.

3.21 Пусть даны натуральное число n, вещественное число х, вещественная мат­рица размером п х m. Получите последо­вательность b₁, b₂,..., b_n из нулей и еди­ниц,где b_i = 1, если элементы i -й строки матрицы не превосходят х, и b_i = 0 в противном случае.

3.22 Пусть дана вещественная квадратная матрица порядка п. В строках с отри­цательным элементом на главной диагонали найдите:

а) сумму элементов;

б) наибольший из элементов.

3.23 Пусть дана вещественная квадратная матрица порядка п. Относительно эле­ментов, расположенных в строках, начинающихся с отрицательного элемен­та, найдите суммы тех из них, которые расположены соответственно ниже, выше и на главной диагонали.

3.24 Пусть дана вещественная квадратная матрица порядка n. Получите целочи­сленную квадратную матрицу того же порядка, в которой элемент равен единице, если соответствующий ему элемент исходной матрицы больше элемента, расположенного в его строке на главной диагонали, и равен нулю — в противном случае.

3.25 Пусть дана вещественная квадратная матрица порядка п. Получите
х₁х_п + х₂ х_п-1 +... + х_nх_{1 ,} где х_i — наибольшее значение элементов i - йстроки данной матрицы.

3.26 Пусть даны натуральное число п> 2 ивещественная квадратная матрица порядка п. Постройте последовательность b₁, b₂,..., b_n, изнулей и единиц, в кото­рой b_i = 1 тогда и только тогда, когда:

а) элементы i -й строки матрицы образуют возрастающую последователь­ность;

б) элементы i - йстроки матрицы образуют возрастающую или убывающую последовательность.

3.27 Пусть дана целочисленная квадратная матрица порядка п. Выясните, име­ются ли в матрице ненулевые элементы, и если имеются, то укажите индексы:

а) первого из нулевых элементов;

б) всех нулевых элементов.

3.28 Пусть даны натуральное число п и вещественная квадратная матрица по­рядка п. Постройте последовательность b₁, b₂,..., b_n, из нулей и единиц, в которой b_i = 1 тогда и только тогда, когда в i -й строке матрицы есть хотя бы один от­рицательный элемент.

3.29 Пусть даны натуральные числа п и т, вещественное число x, вещественная матрица размером п  х  т. Получите значение
b₁x^n-1 + b₂x^n-2 +... + b_n, где b_k — пер­вый по порядку положительный элемент в k - йстроке матрицы (k = 1,..., п ); если в k - йстроке нет положительных элементов, то b_k = 0,5.

3.30 Пусть дана вещественная квадратная матрица порядка п. Вычислите сумму тех из ее элементов, расположенных на главной диагонали и выше ее, кото­рые превосходят по величине все элементы, расположенные ниже главной диагонали. Если на главной диагонали и выше ее нет элементов с указанным свойством, то ответом должно служить сообщение об этом.

3.31 Будем называть соседями элемента с индексами i, j некоторой матрицы та­кие элементы, соответствующие индексы которых отличаются от i, j не более чем на единицу. Для данной целочисленной матрицы А размером
п  х  т найдите матрицу В, состоящую из нулей и единиц, элемент которой b_ij равен единице, когда:

а) все соседи а_ij меньше самого элемента а_ij;

б) все соседи а_ij и сам элемент а_ij равны нулю;

в) среди соседей а_ij есть не менее двух элементов, совпадающих с а_ij.

3.32 Используя следующий фрагмент программы, заполните массив А по правилу

A_ij = xⁱ_j;

Var

А: Array [1..6, 1..9] of Real;

X: Array [1..9] of Real;

3.33 Используя следующий фрагмент программы, получите массив В из массива А удалением п -й строки и k -го столбца:

Var

А: Array [1..5, 1..7] of Real;

В: Array [1..4, 1..6] of Real;

n, k: 1..7;

3.34 Используя следующий фрагмент программы, из массива А получите массив В, присвоив его k -му элементу значение true, если выполнено указанное ниже условие, в противном случае присвойте значение false:

Var А: Array [1..n, 1..n] of Real;

В: Array [1..n] of Boolean;

а) все элементы k -го столбца массива А нулевые;

б) элементы k -й строки массива А упорядочены по убыванию;

в) k -я строка массива А симметрична.

3.35 Определите количество «особых» элементов массива, считая элемент «особым», если выполняются перечисленные ниже условия:

а) элемент больше суммы остальных элементов своего столбца;

б) в строке слева от элемента находятся элементы, меньшие его, а справа — большие.

3.36 Пусть дана вещественная матрица размером п  х  т. Упорядочьте ее строки по неубыванию:

а) первых элементов строк;

б) суммы элементов строк;

в) наибольших элементов строк.

3.37 Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце. Для заданной целой матрицы размером п  х  т напечатайте индексы всех ее седловых точек.

3.38 Пусть дана вещественная квадратная матрица порядка п, все элементы которой различны. Найдите скалярное произведение строки с наибольшим элементом матрицы и столбца с наименьшим элементом.

3.39 Определите, является ли заданная целая квадратная матрица п -го порядка ортонормированной, то есть такой, в которой скалярное произведение каж­дой пары различных строк равно 0, а скалярное произведение каждой стро­ки на себя равно 1.

3.40 По заданным коэффициентам а₁₁, а₁₂,...,а_1n,..., а₂₂, а₂₃,..., а_2n,...,а_nn, ( а_i i ≠ 0) и правым частям b₁, b₂,..., b_n найдите решение «треугольной» системы линейных уравнений:

а₁₁ x₁ + а₁₂ x₂ + а₁₃ x₃ +... + а_1n x_n = b₁,

а₂₂ x₂ + а₂₃ x₃ +... + а_2n x_n = b₂ ,

а₃₃ x₃ +... + а_3n x_n = b₃ ,

_…,

а_nn x_n = b_n

Дата добавления: 2015-07-08