2. Исходные данные

Количество регионов - 9

Таблица перевозок грузов (в условных единицах) между отдельными регионами

573 543 512 534 609 564 570 569 590

573 528 529 565 571 604 589 505 581

570 524 577 531 529 600 579 578 618

611 556 509 504 552 506 509 518 551

594 543 550 561 599 608 587 602 507

602 611 514 603 533 515 616 512 551

515 574 608 508 618 531 525 566 559

575 501 603 554 606 550 544 518 599

530 502 534 557 524 557 583 607 524

Названия регионов:

Краматорск

Донецк

Углегорск

Дружковка

Мариуполь

Алчевск

Горловка

Макеевка

Дебальцево

3. Решение задачи управления процессами перевозок в среде Pascal

   1. Алгоритм решения задачи

Начало

vivod_1 (N,A)

Название работы

Переход на новую строку

sum_str=0

j=1..n

i=1..n

Assign (inp,

‘in.txt’)

sum_str =

= sum_str + A_ij

Переход на новую строку

str_i = sum_str

reset (inp)

i=1..n

j=1..n

j=1..n

sum_solb=0

Ввод элемента А_i,j из inp

i=1..n

sum_stolb =

= sum_stolb + A_ij

close (inp)

stolb_j = sum_stolb

A

Исходная таблица перевозок

Рисунок 1 – Блок-схема алгоритма основной программы

A

sum_mestnyh = 0

i=1..n

sum_mestnyh =

=sum_mestnyh+ A_ij

vivod_3 (N, A)

Переход на новую строку

sort(N,A)

Результи –

– рующая таблица

Переход на новую строку

vivod_2 (N, A)

Конец

Рисунок 2 – Блок-схема алгоритма основной программы (продолжение)

p₁ = ’Краматорск’

…

p₂ = ’Донецк’

Вход

Выход

Рисунок 4 – Блок-схема алгоритма

процедуры zap_p

Вход

Вывод символа

« | »

i=1..n

Вывод A_ij, символа

«|»

Вывод символа

« - »

Вывод p_j

Вывод символа

« | »

i = 1..n

j =1..n

Вывод p_j

Вывод символа

« | »

Вывод символа

« - »

Вывод р_n+1

Переход на новую строку

Вывод str_i

Переход на новую строку

i =1..14*n+7

Переход на новую строку

k = 1..14*n+7

Переход на новую строку

A

Рисунок 6 – Блок-схема алгоритма

процедуры vivod_1

A

Вывод р_n+1

Вывод символа

«|»

i = 1..n

Вывод stolb_i, символа

«|»

i =1..14*n+7

Вывод символа

« - »

Выход

Рисунок 7 – Блок-схема алгоритма

процедуры vivod_1(продолжение)

)

Вход

Переход на новую строку

Assign (outp,

‘out. txt’)

i =1..n

Вывод p_bo[i]

Вывод символа

« | »

j =1..n

Вывод A_ij

Вывод символа

« | »

Переход на новую строку

Append

(outp)

Результ. таблица

Переход на новую строку

Вывод символа

« | »

j =1..n

Вывод p_j

Вывод символа

« | »

Вывод символа

« - »

Переход на новую строку

k =1..14*n+7

Переход на новую строку

Вывод символа

« - »

i =1..14*n+7

C

Рисунок 7 – Блок-схема алгоритма

процедуры vivod_2

C

Сумма местных sum_mestnyh

Переход на новую строку

Переход на новую строку

close (outp)

Выход

Рисунок 8 – Блок-схема алгоритма

процедуры vivod_2 (продолжение)

Переход на новую строку

i =1..n

Вывод p_i

Вывод символа

« | »

Вход

Assign outp,

‘out. txt’)

Rewrite

(out)

Вывод p_j

Переход на новую строку

j =1..n

Переход на новую строку

Вывод символа

«|»

Название исх.таблицы и работы

Вывод символа

« | »

Вывод символа

« - »

j =1..n

Вывод A_ij

Вывод символа

«|»

Переход на новую строку

k =1.13*n+16

Вывод символа

« - »

Переход на новую строку

i =1..13*n+16

close (outp)

Выход

Рисунок 9 – Блок-схема алгоритма

процедуры vivod_3

Вход

i =1..n

po_i = str_i

j =1..n

i =1..n

str_i+1 > str_i

pr = false

pr = true

i =1..n-1

Рисунок 10 – Блок-схема алгоритма

процедуры sort

str_i+1 > str_i

c = str_i; str_i = str_i+1; str_i+1 = c;

pr = true

pr = false

pr = true

pr = true

Вход