Лабораторный практикум-new

да

print sr

i = 1

максимального rem и минимального элемента

rem нахождение

max= -1 Е

10::min = 1 E 10

да

нет

for i = 1 to n

i ≤ n

for j =1 to m

if b(i, j) >=

max then

max

j = 1

min

end if

нет

max=b(i, j)

да

j ≤ m

if b(i,j)<=min then

нет

min=b(i,j)

i = i + 1

next j

да

bij > max

end if

next i

max = bij

rem сложениеj = 1строк по rem условию

нет

input b, l, k

да

j ≤ m

for j =1 to m

a(k, j) = a(k, j) + a(l, j)*b

a

= a

kj

+ a *b

i = 1

нетkj

ij next j

да

rem вывод матрицы

j = j +1

i ≤ n

Продолжение

for i = 1 to n

for j = 1 to m

j = 1

нет

print a (i, j);

next j

j ≤ m

да

print

Задача.

Переслать

элементы

матрицы

размерности10x20

в

одномерный

массив,

сохранив

порядок

следования

элементов(элементы

матрицы

пересылать по строкам.)

Дано: матрица аij i=1, n; j=l, m

Определить: bi i=l , l, где 1=10x20.

rem преобразование

l = 10x20

rem матрицыk =в 1

rem одномерный массив

нет

i = 1

e= 10*20 :k=l

да

i ≤ 10

for i = 1 to 10

for j = l to 20

k = 1

нет

b(k)=a(i,j1

j)

нет

k = k + 1

да

next j

k ≤ l

да

j ≤ 20

bk

next i

rem ввод одномерного массива

bk = aij

i = i +1

for k = 1 to e

k = k + 1

print b(k)

next k

j = j + 1

i = i + 1

Рис.22

Умножение матрицы на матрицу.

k

i = 1, n

cij = åail ·blj

j = 1, m

l =1

i = 1

нет

i ≤ n

rem умножение

да

матрицы на матрицу

j = 1

for i=l to n

for j=l to m

нет

S=0

j ≤ m

for l=l to k

нет

S = S + a(i,j)*b(l,j)

next 1S = 0

i = i + 1

c(i, j)=S

next j l = 1

next i

l ≤ k

нет

да

cij = S

S = S + aij*bij

l = l + 1

i = i + 1

Рис.23

Умножение матрицы на вектор

i = 1

нет

rem умножение матрицы на вектор

i ≤ n

for i=l to n

да

S=0

S

0

for j=l to m

S=S+a(i, j) x b(j)

j = 1

next j

c(i)=S

нет

next i

j ≤ m

да

ci = S

рис 24.

S = S + aij*bij

i = i + 1

j = j + 1

Перестановка строк матрицы

p, q

rem перестановка строк

input p, q

k = 1

нет

for k=l to m

k ≤ m

87

t=a(p ,k)

a(p, k) = a(q, k)

да

рис.25

2 способ: с использованием вспомогательного массива с.

Одна из строк целиком пересылается в этот массив для временного

хранения.

p, q

rem перестановка строк

k = 1

нет

input p,q

да

for k=l to m

k ≤ m

c(k) = a(p, k)

next k

ck = apk

k = 1

нет

for k=1 to m

да

k = k + 1

a(p,k)=a(q,k)

next k

k ≤ m

k = 1

нет

for k=l to m apk = aqk

да

a(q,k) = c(k)

k ≤ m

k = k + 1

Рис.26

aqk = ck

j = 1

rem суммирование

элементов заданной строки

input k

j ≤ m

нет

for j to m

s = s + b(k, j)

да S = S + bkj

S

next j

print s

j = j + 1

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

for i=l to n

i = 1

нет

S=o

да

i ≤ n

for j=l to m

S=S+a(i,j)

Next j

S = 0

b(i)=S

next i

j = 1

нет

j ≤ m

да

S = S + aij

bi = S

j = j + 1

i = i + 1

Рис. 28