Курсовая работа: Применение программных комплексов для решения инженерных задач

begin

for i:=1 to n do

A[i,k]:=(A[i,k])*0.9;

Writeln('------------------------------------------------------------------------------');

writeln('Новый объём груза, прибывшего в регион, ',Reg[k],' будет составлять');

writeln;

end;

{главная программа}

begin

writeln(' к у р с о в а я р а б о т а в а р и а н т - 6 ');

Writeln;

Writeln('Индивидуальное задание:');

Writeln('Определить регионы(исключая местное сообщение)между которыми установлена максимальная перевозка(корреспонденция)груза ');

Writeln('По региону, прибытия данного груза, все размеры прибытия уменьшить на 10%!');

Writeln;

assign(f1,'D:\sazan.txt');

assign(f2,'D:\sazan2.txt');

{открытие файла для записи}

rewrite(f2);

name;

writeln(f2,' Курсовая работа Сазановича К.В.');

{вызов процедуры VVOD заполнения таблицы грузоперевозок в регионах РБ}

vvod(n,A);

{вызов процедуры Schit вывода таблицы грузоперевозок в регионах РБ}

writeln(' исходная таблица перевозок грузов');

writeln;

Schit(n,A);

Writeln(f2, ' исходная таблица перевозок грузов');

vivodvfile(n,A);