Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

1.  СОДЕРЖАТЕЛЬНАЯ ПОСТАНОВКА ЗАДАЧИ

Формулировка условия задачи:

1.1  Для квадратной матрицы n-го порядка сделать:

·  Найти матрицу В=А^m, где m-целое число больше единицы

·  Умножить элементы k-ой строки полученной матрицы В на заданное число

·  Вычислить сумму отрицательных элементов полученной матрицы, расположенных под главной диагональю в столбцах с четными номерами.

1.2. пример решения задачи:

A= 1 -2 3 m= 3 заданное число = 2

3 -2 1 строка - 1

-2 3 1

1) В=А*А*А= -11 11 4 14 12 -18

-5 1 8 * А = -18 32 -6

5 1 -2 12 -18 14

=С

c(1,1) = a(1,1)*а(1,1)+a(1,2)*а(2,1)+a(1,3)*а(3,1)

c(1,2) = a(1,1)*а(1,2)+a(1,2)*а(2,2)+a(1,3)*а(3,2)

c(1,3) = a(1,1)*а(1,3)+a(1,2)*а(2,3)+a(1,3)*а(3,3)

c(2,1) = a(2,1)*а(1,1)+a(2,2)*а(2,1)+a(2,3)*а(3,1)

c(2,2) = a(2,1)*а(1,2)+a(2,2)*а(2,2)+a(2,3)*а(3,2)

c(2,3) = a(2,1)*а(1,3)+a(2,2)*а(2,3)+a(2,3)*а(3,3)

c(3,1) = a(3,1)*а(1,1)+a(3,2)*а(2,1)+a(3,3)*а(3,1)

c(3,2) = a(3,1)*а(1,2)+a(3,2)*а(2,2)+a(3,3)*а(3,2)

c(3,3) = a(3,1)*а(1,3)+a(3,2)*а(2,3)+a(3,3)*а(3,3)

b(1,1) = c(1,1)*a(1,1)+c(1,2)*a(2,1)+c(1,3)*a(3,1)

b(1,2) = c(1,1)*a(1,2)+c(1,2)*a(2,2)+c(1,3)*a(3,2)

b(1,3) = c(1,1)*a(1,3)+c(1,2)*a(2,3)+c(1,3)*a(3,3)

b(2,1) = c(2,1)*a(1,1)+c(2,2)*a(2,1)+c(2,3)*a(3,1)

b(2,2) = c(2,1)*a(1,2)+c(2,2)*a(2,2)+c(2,3)*a(3,2)

b(2,3) = c(2,1)*a(1,3)+c(2,2)*a(2,3)+c(2,3)*a(3,3)

b(3,1) = c(3,1)*a(1,1)+c(3,2)*a(2,1)+c(3,3)*a(3,1)

b(3,2) = c(3,1)*a(1,2)+c(3,2)*a(2,2)+c(3,3)*a(3,2)

b(3,3) = c(3,1)*a(1,3)+c(3,2)*a(2,3)+c(3,3)*a(3,3)

НЕ нашли? Не то? Что вы ищете?

2) В= 14 12 -18

-18 32 -6 28 24 -36

12 -18 14 умножим первую строку на 2 = -18 32 -6

12 -18 14

3) сумма всех отрицательных элементов, расположенных под главной диагональю в столбцах с четными номерами = -18

2.  ФОРМАЛИЗОВАНАЯ ПОСТАНОВКА ЗАДАЧИ

2.1  Способ получения результатов по исходным данным

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

Умножение матриц выполняется умножением строки на столбец.

2.2  Выбор и описание метода решения.

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

4. ПРОГРАММИРОВАНИЕ И ОТЛАДКА

4.1 Текст программы

Program Kurs;

Uses Crt;

Var

i, j,k, n,m, p,d, e,f, g:integer;

a:array[1..20,1..20] of integer;

b:array[1..20,1..20] of integer;

c:array[1..20,1..20] of integer;

Begin

Clrscr;

Write('Vvedite poryadok kvadratnoi matrici n=');

Readln (n);

For i:=1 to n do

Begin

For j:=1 to n do

Begin

write('Vvedite elementi matrici',i,'-я строка  ',j,'-й столбец: ');

readln(A[i, j]);

end;

end;

Write('Vvedite m=');

Readln(m);

For p:=2 to m do begin

for i:=1 to n do begin

for j:=1 to n do begin

b[i, j]:=0;

for k:=1 to n do begin

If p=2 then

Begin

b[i, j]:=b[i, j]+a[i, k]*a[k, j];

c[i, j]:=b[i, j];

end

else

Begin

b[i, j]:=b[i, j]+a[i, k]*c[k, j];

end;

end;

end;

If i=n then

Begin

For i:=1 to n do begin

For j:=1 to n do

Begin

c[i, j]:=b[i, j];

end;

end;

end;

end;

end;

Writeln('Polychennaya matrica:');

For i:=1 to n do begin

for j:=1 to n do begin

write(i,'-я строка  ',j,'-й столбец: ',b[i, j]);

readln;

end;

end;

Write('Vvedite chislo na kotoroe nyzno ymnozat: d=');

Readln(d);

Write('Vvedite nomer ymnozaemoi stroki: e=');

Readln(e);

For j:=1 to n do begin

i:=e;

b[i, j]:=b[i, j]*d;

end;

Writeln('Polychennaya matrica:');

For i:=1 to n do begin

for j:=1 to n do begin

write(i,'-я строка  ',j,'-й столбец: ',b[i, j]);

readln;

end;

end;

g:=0;

For i:=1 to n do begin

for j:=1 to n do begin

f:=j mod 2;

If (f=0) and (i>j) then

Begin

If b[i, j]<0 then

Begin

g:=g+b[i, j];

end;

end;

end;

end;

Writeln('Symma:=',g);

Readln;

End.

5. ИСПЫТАНИЕ ПРОГРАММЫ

Введите порядок квадратной матрицы n=: 3

Введите элемент матрицы 1-я строка 1-й столбец: 2

Введите элемент матрицы 1-я строка 2-й столбец: 3

Введите элемент матрицы 1-я строка 3-й столбец: -4

Введите элемент матрицы 2-я строка 1-й столбец: -2

Введите элемент матрицы 2-я строка 2-й столбец: 3

Введите элемент матрицы 2-я строка 3-й столбец: 4

Введите элемент матрицы 3-я строка 1-й столбец: 2

Введите элемент матрицы 3-я строка 2-й столбец: -3

Введите элемент матрицы 2-я строка 3-й столбец: 4

Введите m=: 4

1-я строка 1-й столбец: -170

1-я строка 2-й столбец: -333

1-я строка 3-й столбец: 1140

2-я строка 1-й столбец: 686

2-я строка 2-й столбец: -513

2-я строка 3-й столбец: -444

3-я строка 1-й столбец:-222

3-я строка 2-й столбец: 681

3-я строка 3-й столбец: -740

Введите число на которое будем умножать: d=2

Введите номер умножаемой строки: e=1

Полученная матрица:

1-я строка 1-й столбец:-340

1-я строка 2-й столбец: -666

1-я строка 3-й столбец: 2280

2-я строка 1-й столбец: 686

2-я строка 2-й столбец: -513

2-я строка 3-й столбец: -444

3-я строка 1-й столбец:-222

3-я строка 2-й столбец: 681

3-я строка 3-й столбец: -740

Сумма = 0

6. КРАТКАЯ ХАРАКТЕРИСТИКА ПРОГРАММЫ

наименование программы: Kurs

назначение программы: служит для элементарных действий с матрицами (возведение в степень, умножение столбца на число, вычисление суммы отрицательных элементов)

формат вызова программы: >Kurs<enter>

объем программы на носителе данных: 4 КБ

7. ЗАКЛЮЧЕНИЕ.

Программа отлажена в дисплейном классе на компьютере типа IBM PC и функционирует без сбоев.