ов'язуємо дані з файлом} (f3, 'c: kurs.txt');
{записуємо у файл} (f3); (f3, '
****************************************** ************** '); (f3,' * КУРСОВУ РОБОТУ ПІДГОТУВАЛА СТУДЕНТКА
ГРУПИ КК-21 ОГУЛІК ОЛЕНА * ');
writeln (f3, '
****************************************** ************* '); (f3,' ');
writeln (f3, 'Вихідна таблиця перевезень:');
writeln
(f3,
write (f3, ''); i: = 1 to n do (f3, nazv [i]: 12); (f3); i: = 1 to n do (f3, nazv [ i]: 12); j: = 1 to n do (f3, B [i, j]: 11:1, '|'); (f3);; (f3, '(f3);
{сума кількості вантажу, що вивозиться: за рядками} (f3, 'Кількість вивезеного вантажу з регіонів:');
writeln (f3); j: = 1 to n do (f3, 'з регіону', nazv [j], 'вивезено', s_st [j], 'т вантажу');
{сума кількості ввезеного вантажу: за стовпцями} (f3, 'Кількість ввезеного вантажу в регіони:');
writeln (f3); i: = 1 to n do (f3, 'ввезено', s_str [i], 'т вантажу в', nazv [i]);
{сума кількості вантажів, що перевозяться у місцевому сполученні за всіма
регіонах}: = Glavnaa (B); (f3, 'У регіоні', nazv [k], 'перевозиться максимальне
кількість
вантажу, рівне ', max); (f3,' Кількості вантажів, що перевозяться у місцевому сполученні за
всіх регіонах одно ', e: 4:1);
{висновок підсумкової таблиці перевезень після зменшення максимального
кількості вантажу в місцевому сполученні на 7%} (f3, 'Друк зміненої таблиці перевезень');
writeln (f3, '
write (f3, 'Регіони |'); i: = 1 to n do (f3, nazv [i]: 12, '|'); (f3, 'Разом |'); ( f3); (f3, '(f3); i: = 1 to n do (f3, nazv [i]: 12,' | '); j: = 1 to n do (f3, D [i, j]: 12:1, '|'); (f3, s_str1 [i]: 9:1, '|'); (f3);; (f3, '
writeln (f3); (f3, 'Разом |'); i: = 1 to n do (f3, s_st1 [i]: 12:1, '|'); (f3, e_izm : 8:1, '|'); (f3); (f3, '
close (f3);
End;
{висновок результатів на екран}
Procedure VIVOD_ekran; ('************************************* ************** ');
writeln ('* КУРСОВУ РОБОТУ ПІДГОТУВАЛА СТУДЕНТКА
ГРУПИ КК-21 ОГУЛІК ОЛЕНА * ');
writeln ('*************************************** ************* ');
...
