Рисунок 7- Блок-схема процедуры max_perevozka

program Kursach;

type

mas=array[1..100,1..100] of real;

mas1=array[1..100] of real;

var

A,B:mas;

n,i,j:integer;

fd,f1:text;

region:array [1..100] of string;

p: integer;

imax, jmax:integer;

{-----------------------------------}

{процедура считывания матрицы из файла }

procedure vvod(n:integer;var A:mas);

var

i,j:integer;

begin

for i:=1 to n do readln(f1,region[i]);

for i:=1 to n do

for j:=1 to n do

read(fd,A[i,j]);

end;

{-----------------------------------}

{процедура вывода матрицы на экран монитора }

procedure vivod(n:integer;B:mas);

var

i,j:integer;

begin

writeln ('___________________________________________________');

Write(' |');

for i:=1 to n do write(region[i]:13, ' |');

writeln;

writeln ('____________________________________________________');

for i:=1 to n do

begin

write(region[i]:13,' |');

for j:=1 to n do write(B[i,j]:13:2,' |');

writeln;

writeln ('____________________________________________________');

end;

end;

{-----------------------------------}

{процедура нахождения суммы по строкам }

procedure sum_str(n:integer; A:mas);

var

i,j:integer;

s:real;

begin

for i:=1 to n do

begin

s:=0;

for j:=1 to n do s:=s+A[i,j];

writeln('из региона ', region[i],' вывезено ',s, ' пассажиров');

end;

writeln;

end;

{-----------------------------------}

{процедура нахождения суммы по столбцам }

procedure sum_stl(n:integer; A:mas);

var

i,j:integer;

s:real;

begin

for j:=1 to n do

begin

s:=0;

for i:=1 to n do s:=s+A[i,j];

writeln('в регион ', region[j],' ввезено ', s, ' пассажиров');

end;

writeln;

end;

{-----------------------------------}

{процедура нахождения суммы данных по главной диагонали}

procedure sum_diag(n:integer; A:mas);

var

i,j:integer;

s:real;

begin

s:=0;

for i:=1 to n do

for j:=1 to n do

if i=j then s:=s+A[i,j];

writeln('Количества пассажиров, перевозимых в местном сообщении по всем регионам равно ',s);

end;

{-----------------------------------}

{процедура нахождения максимальной перевозки выше побочной диагонали}

procedure max_perevozka(n:integer; A:mas);

var

i,j:integer;

max:real;

begin

max:=A[1,1];

imax:=1;

jmax:=1;

for i:=1 to n do

for j:=1 to n do

if (i+j<n+1) and (A[i,j]>max) then

begin

max:=A[i,j];

imax:=i;

jmax:=j;

end;

writeln('Из региона ', region[imax],' вывезено в регион ',region[jmax],' ', max, ' пассажиров');

end;

{-----------------------------------}

{процедура уменьшения количества пассажирова, вывозимого на любой другой регион на 7%}

procedure umenshenie(n:integer; A:mas; var B:mas);

var

i,j:integer;

begin

writeln ('___________________________________________________');

Write(' |');

for i:=1 to n do write(region[i]:13, ' |');

writeln;

writeln ('____________________________________________________');

for i:=1 to n do

begin

write(region[i]:13,' |');

for j:=1 to n do

begin

B[i,j]:=A[i,j];

if (j=jmax) then B[i,j]:=A[i,j]*0.93;

write(B[i,j]:13:2,' |');

end;

writeln;

writeln ('____________________________________________________');

end;

end;

begin

n:=6;

Assign (f1,'НазванияРегионов');

Reset (f1);

Assign(fd,'ТаблицаПеревозок');

reset(fd);

writeln('Ввод исходных данных из документа.');

vvod(n,A);

while true do

begin

writeln;writeln;

writeln ('Выберите пункт меню!');

writeln ('1 - вывести таблицу пассажироперевозок');

writeln ('2 - найти количество вывезенных пассажиров из регионов');

writeln ('3 - найти количество ввезенных пассажиров в регионы');

writeln ('4 - найти сумму элементов по главной диагонали');

writeln ('5 - Определить регион для максимальной перевозки пассажиров ,расположенной выше побочной диагонали');

writeln ('6 - Все размеры прибытия пассажиров по региону, принимающему максимальное количество пассажиров, уменьшить на 7%');

writeln ('0 - Заверщение работы программы');

readln(p);

writeln;writeln('Р Е З У Л Ь Т А Т выбора пункта ', p);

case p of

1: BEGIN

writeln('Исходные данные:');

vivod(n,A);

END;

2: BEGIN

writeln;

writeln('Количество вывезенных пассажиров из регионов:');

sum_str(n,A);

END;

3: BEGIN

writeln;

writeln('Количество ввезенных пассажиров в регионы:');

sum_stl(n,A);

END;

4: BEGIN

sum_diag(n,A);

END;

5: BEGIN

writeln;

max_perevozka(n,A);

END;

6: BEGIN

writeln;

max_perevozka(n,A);

writeln('Измененные данные:');

umenshenie(n,A,B);

END;

0:

BEGIN

Close(fd);

close(f1);

writeln('Программа завершила работу!');

halt;

END;

else writeln('Неверно выбран пункт меню.');

end;

end;

end.

Приложение D

Результаты решения задачи

Исходные данные из файла

Рис.9 - Меню

Пункт меню 1 - вывести таблицу пассажироперевозок

Рис.10 - таблица исходных данных

Пункт меню 2 - найти количество вывезенных пассажиров из регионов

Рис 11- сумма по строкам

Пункт меню 3 - найти количество ввезенных пассажиров в регионы

Рис 12- сумма по столбцам

Пункт меню 4 - найти сумму элементов по главной диагонали

Рис. 13 - Сумма пассажироперевозок в местном сообщении

Пункт меню 5 - Определить регион для максимальной перевозки пассажиров, расположенной выше побочной диагонали

Регион с максимальным количеством пассажиров

Рис.14- максимальная перевозка

Пункт меню 6 - Все размеры прибытия пассажиров по региону, принимающему максимальное количество пассажиров, уменьшить на 7%

Результирующая таблица

Рис.15-измененная таблица пассажироперевозок

Размещено на Allbest.ru