> Процедура Vivod
Процедура Summa
Функція Sumdiag
Процедура pb_pv
.2 Програма розв'язання задачі на мові Паскаль
program vorobey; Mas = array [1 .. 9,1 .. 9] of real; = array [1 .. 9] of string; A: mas; i, j: byte; min : real; f, f2: text; region: rg;, s2: real; imin: byte; n: byte; _region: array [1 .. 9] of string;: array [1 .. 9] of real;: array [1 .. 9] of real;
{Процедура виведення вітання} Vvodn;
var i, j: byte; ('Доброго дня! Зараз вам буде запропоновано ввести кількість регіонів між якими осуществляються вантажоперевезення'); ('Кількість регіонів не повинно перевищувати 9');; ('Введіть, будь ласка , кількість регіонів ', n); (n);; (' Результати будуть збережені в текстовому файлі Genrih1111 ');;
{! Процедура взяття з файлу!}
Procedure Vvod (n: byte; var A: mas); ('n =', n); (f, 'g: Навчання Воробей Інформатика Genrih111.txt'); ( f); i: = 1 to n doj: = 1 to n do read (f, A [i, j]); (f);; (f);
End;
{! Процедура збереження в файл!}
Procedure VIVOD (n: byte; A: mas); (f2, ''); (f2, '| регіон вантажі |': 13); i: = 1 to n do (f2 , Name_region [i]: 10); (f2); (f2, ''); i: = 1 to n do (f2, Name_region [i]: 10); j: = 1 to n do (f2, A [ i, j]: 13:1); (f2); ('');
end; (f2);;
{! Процедура знаходження суми по рядках і стовпчиках!}
Procedure Summa (n: byte; A: mas); i, j: byte; (f2);
{! Формування S за стовпцями!} j: = 1 to n do
begin [j]: = 0; i: = 1 to n do [j]: = S [j] + A [i, j];;
writeln (f2, 'Сумарні обсяги ввезення в кожному регіону (Сума вантажів по стовпцях)');
for j: = 1 to n do (f2, Name_region [j]: 10, S [j]: 4:1);
{! Формування S по рядках!} i: = 1 to n do [i]: = 0; j: = 1 to n do [i]: = S1 [i] + A [i, j];;
writeln (f2, 'Сумарні обсяги вивезення в кожному регіоні (Сума вантажів по рядках)');
for i: = 1 to n d...
