ЭВМ программа

 

Рассмотрим пример систематического составления алгоритма и программы для решения на ЭВМ достаточно сложной задачи обра­ботки данных.

Четвертая задача: Определить суммы элементов столбцов в матрице A_nxm:

Приведем обобщенную постановку задачи и описание соответст­вующих общего метода решения и сценария диалога.

Постановка задачиСценарий

Дано: Матрица < N> ´ < M>

(a₁₁ … a_1N) < a₁₁>... < a_1N >

(.........) - матрица Anxm.........

(a_Ml … a_MN) < a_Ml > … < a_MN >

Треб.: Суммы элементов:

(S₁..., S_N) - суммы столбцов < S₁>... < S _N >

Где:

S_i = а_i1 +...+ а_iM

[i = (1… N)]

При: N > 0, М > 0.

 

Метод вычисленийПредставление данных

sk0 = 0 matr: ' матрица Anm:

s_k1 ⁼ a_k1⁺ s_k1-1 data 3, 4

[1 = (1... M)] data I, 2, 3, 4

S_k = S_kN data 0, 1, 2, 3

[k = (1... N)] data 0, 0, 1, 2

 

В предлагаемой ниже программе для представления матриц ис­пользуются операторы data. В первом из этих операторов записаны размеры, а в каждом последующем операторе - строки матрицы:

АлгоритмПрограмма

алг «сумма строк матрицы» ' сумма строк матрицы

нач cls

чтение (п, т). read n, m

если п > 0 и т > 0 то if N > 0 and М > 0 then

массив А[1: п, 1: т] dim A (N, M)

массив S[1: n] dim S(n)

ввод-вывод_матрицы gosub vvod 'ввод-матрицы

суммирование_строк gosub sum 'суммирование

от k = 1 до п цикл for k= 1 to n

выв (s[k])? s[k]

кцикл next k

все end if

кон end

 

алг «суммирование строк» sum: 'суммирование строк

нач ' нач

от k = 1 до N цикл for k = 1 to n

s[k]: = 0 s[k] = 0

от l = 1 до М цикл for I = 1 to m

s[k]: = s[k] + A[k, l] s[k] = s[k] + a[k, l]

кцикл next I

кцикл next k

кон return

 

алг «ввод-вывод_матрицы» vvod: 'ввод-вывод_матрицы

нач ' нач

вывод («Матрица», N, «х», М)? «Матрица»; m; «х»; m

от k = 1 до N цикл for k = 1 to n

от I = 1 до М цикл for l = 1 to m

чтение (A [k, l]) read A (k, l)

вывод (A [k, l])? A (k, l)

кцикл next 1

нов_строка?

кцикл next k

кон return