Решение транспортных задач средствами Pascal, MS Excel, MathCad
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
egion[5]:= Кобрин ;_region[6]:= Гомель ;_region[7]:= Жлобин ;_region[8]:= Минск ;_region[9]:= Орша ;
Vvodn;(n,A);(f2,Таблица №1-Исходные перевозки на каждом регионе);
VIVOD(n,A);(n,A);
writeln(f2,Сумма по главной диагонали=,SumDiag(n,A):4:1);
pb_pv(n,A,imin,min);:=min-min*0.07;(f2,минимальная перевозка=,min:8:2, в регионе, Name_region[imin]);
writeln(f2,уменьшение грузопотока внутри этого региона на 7%=,z:4:0);
A[imin,imin]:= A[imin,imin]*0.93;
writeln(f2,Таблица №2-Перевозки на каждом регионе после уменьшения грузопотока внутри региона с минимальной перевозкой на 7% );
VIVOD(n,A);(f2);
end.
.3 Результаты решения задачи
Здравствуйте! Сейчас вам будет предложено ввести количество регионов между которыми осуществляються грузоперевозки
Количество регионов не должно превышать 9
Введите, пожалуйста, количество регионов
Результаты будут сохранены в текстовом файле Genrih1111
n=9
2. Решение задачи средствами MS EXCEL
.1 таблица исходных данных
Таблица 1-Таблица перевозок грузов
из наЛидаРосьГродноМостыКобринГомель ЖлобинМинскОршаИтого отправленоЛида154121612181241126912141211121112211235608Рось76121101122112161288121712451221121012108117Гродно63129812351271124512281248122212111242208Мосты32125612431298121312411237123812221238108Кобрин18122512111219121912251299124512321229408Гомель151220125121222121412261258125712431276808Жлобин14121312471224121112221270124212541229808Минск12122012341232125512541223122012341228508Орша10124312521255126512441243124412331239008Итого прибыло108017393087740837908380082720843508301082610855708
2.2 Выполнение расчётов
55708Cумма количества грузов, перевозимых в местном сообщении по всем регионам1912Минимальное кол-во перевозимого груза в местном сообщенииКобринРегион с минимальным количеством перевозимого груза в местном сообщении50250Cумма количества грузов, перевозимых в местном сообщении по всем регионам после уменьшения на 7%
Таблица 2
Таблица перевозок грузов с уменьшенным грузопотоком внутри региона
из наЛидаРосьГродноМостыКобринГомель ЖлобинJKИтого отправленоЛида154121612181241126428141211121112211235124Рось76121101122112161281951712451221121012107500Гродно63129812351271124196281248122212111241892Мосты32125612431298121220382437123812221237728Кобрин1685,22336103417781778233692184196298727349Гомель151220125121222121313261258125712431276709Жлобин14121312471224121034221270124212541229730Минск12122012341232125126541223122012341228122Барановичи10124312521255126056441243124412331238552Итого прибыло105666328086870629050241651692036190297922588355574
55708Cумма количества грузов, перевозимых в местном сообщении по всем регионам Эту сумму я нашёл по формуле: =C4+D5+E6+F7+G8+H9+I10+J11+K121912Минимальное кол-во перевозимого груза в местном сообщении Это количество я нашёл по формуле: =МИН(C4;D5;E6;F7;G8;H9;I10;J11;K12)КобринРегион с минимальным количеством перевозимого груза в местном сообщении Этот Регион я нашёл по формуле: =ЕСЛИ(C4=B16;"A";ЕСЛИ(D5=B16;"B";ЕСЛИ(E6=B16;"C"; ЕСЛИ(F7=B16;"D";ЕСЛИ(G8=B16;"E";ЕСЛИ(H9=B16;"F";ЕСЛИ(I10=B16;"G")))))))50250Cумма количества грузов, перевозимых в местном сообщении по всем регионам после уменьшения на 7% Эту сумму я нашёл по формуле: =C22+D23+E24+F25+G26+H27+I28
Сумму прибывшего груза я нашёл по формуле: =СУММ(C4:C12)
Аналогично я находил эту сумму по всем регионам.
Сумму отправленного груза я нашёл по формуле: =СУММ(C4:K4),аналогично я находил эту сумму по всем регионам.
Перерасчёт по регионам происходит по формуле: =ЕСЛИ(C4=B16;C4-C4*0,07;C4),данная формула, только в аналогичном виде записана во всех ячейках.
2.3 Построение диаграммы по расчётным данным
3. Решение задачи в среде MathCad
Заключение
Выполнив курсовую работу, я ознакомилась с основными типами языка Паскаль, структурой программы, алгоритмами решения, работой с циклическими операторами, массивами, процедурами и т.д. Приобрела навыки в решении задач на языке программирования Паскаль, составлении блок-схем, печати программ, работы в MS Excel, MathСad. Особое внимание в данной курсовой работе уделено операторам языка Паскаль. При помощи этого языка программирования решена задача, при тестировании получены и приведены результаты, которые затем совпали с результатами решения задачи в других приложениях.
После проработки ряда учебных и периодических изданий, а также решения практической задачи научилась работать с файлами в среде языка программирования Паскаль, создавать решения программ для преобразования матриц и работы с файлами по условию задачи.
В программе MathCad научилась производить различные операции над матрицами при помощи формул, арифметических выражений и т.д.
В оболочке MS Excel получены навыки по работе с таблицами, формулами, графиками и диаграммами.
Список литературы
pascal excel mathcad задача
1.Борисенко, М. В. Компьютерные информационные технологии : учеб.-метод. пособие / М. В. Борисенко; М-во образования Респ. Беларусь, Белорус. гос. ун-т трансп. - Гомель: БелГУТ, 2008. - 298 с.
2.Гладких, Б. А. Информатика. Введение в специальность: учеб, пособие для вузов / Б. А. Гладких. - Томск: Изд-во науч.-техн. литературы, 2002. - 350 c.
.Гладков, В. П. Знаешь ли ты Паскаль? : учеб. пособие / В. П. Гладков ; Перм. гос. техн. ун-т. - Пермь : 2001. - 109 с.
.Ерофеев, А. А. Информационные технологии на железнодорожном транспорте / А. А. Ерофеев. - Гомель : БелГУТ, 2003. - 84 с.
.Кремец, Ю. А. Технические средства организации дорожного движения/ Ю. А. Кремец. - М. : Транспорт, 1990. - 254 с.
.Лидовский, В. В. Теория информации: учеб. пособие / В. В. Лидовский. - М.: Компания Спутник, 2004. - 111 с.
.Максимова, А. П. Информатика : учеб.-практ. курс /А. П. Максимова. - Минск : ТетраСистемс, 2005. - 128 с.
.Пилипук Н. Н. Автоматические системы управления автомобилей / Н. Н. Пилипук, БНТУ - Мн. ,2004. - 85 с.
.Смехов А. А., Зудилин Н. А. Развитие авт