write ('');
writeln ('Вихідна таблиця перевезень:');
writeln write (''); i: = 1 to n do (nazv [i]: 12);; i: = 1 to n do (3, nazv [i]: 12); j: = 1 to n do (B [i, j]: 11:1, '|');;; ');
writeln;
{кількості вантажу, що вивозиться за рядками} ('Кількість вивезеного вантажу з регіонів:');
writeln; j: = 1 to n do ('з регіону', nazv [j], 'вивезено', s_st [j], 'т вантажу');
{сума кількості ввезеного вантажу за стовпцями} ('Кількість ввезеного вантажу в регіони:');
writeln; i: = 1 to n do ('ввезено', s_str [i], 'т вантажу в', nazv [i]);
{визначимо суму кількості вантажів, що перевозяться у місцевому
повідомленні по всіх регіонах}: = Glavnaa (B); ('Кількості вантажів, що перевозяться у місцевому сполученні за всіма
регіонах одно ', e: 4:1); (' У регіоні ', nazv [k],' перевозиться максимальну кількість
вантажу, рівне ', max);
{висновок підсумкової таблиці перевезень після зменшення максимального
кількості вантажу в місцевому сполученні на 7%} ('Друк зміненої таблиці перевезень');
writeln '); (' Регіони | '); i: = 1 to n do (nazv [i]: 12,' | '); (' Разом | ');; (') ;; i: = 1 to n do (nazv [i]: 12, '|'); j: = 1 to n do (D [i, j]: 12:1, '|'); (s_str1 [i ]: 9:1, '|');;; (');; (' Разом '); i: = 1 to n do (s_st1 [i]: 12:1,'); (e_izm: 8:1 , ');; End;
{висновок результатів на принтер}
{процедура вибору виведення результатів} REJIM; ('Вкажіть спосіб виведення даних:'); ('-> 1-вивід у файл'); ('-> 2-вивід на екран' ); ('-> 3-вивід на принтер');
readln (p); p of
: VIVOD_fail;
2: VIVOD_ekran; writeln ('Неправильно вказано шлях, повторіть введення!');
end;;
{головна програма} (B); (B);
Glavnaa (B);;.
.3 Результати рішення задачі
КУРСОВУ РОБОТУ ПІДГОТУВАЛА СТУДЕНТКА ГРУПИ КК-21 ОГУЛІК ОЛЕНА
Вихідна таблиця перевезень:
35.093.030.0Молодечно82.087.050.039.069.052.063.0 21.032.057.0Барановичи39.022.020.084.031.028.011.0 82.033.081.0
Кількість вивезеного вантажу з регіонів:
з регіону Брест вивезено 519 т вантажу
з регіону Пінськ вивезено 343 т вантажу
з регіону Л...
