Применение программных комплексов для решения инженерных задач (стр. 2 из 2)
Sum_strok(n,A);
Writeln('итоги по регионам вывоза грузов');
Sum_stolbzov(n,A);
writeln('сумма количества грузов в местном сообщении по всем регионам ',diag(n,A),' тонн');
writeln(f2,' ');
writeln(f2,'сумма количества грузов в местном сообщении по всем регионам ',diag(n,a),'тонн');
{вызов процедуры Min_perevozka }
Sum_po_stolbcam_bez_MC(n,A);
Max_perevozka(n,A);
Umengruz(n,k,A);
Schit(n,A);
writeln(f2,' Таблица грузоперевозок в регионах');
writeln(f2,' (таблица после корректировки объёмов прибытия грузов в пункт - ',Reg[k],')');
vivodvfile(n,A);
Writeln('Работу выполнил Сазановича К.В.');
Writeln(f2, 'Курсовую работу выполнил Сазановича К.В.');
{закрытие файла f2}
1.3 Результаты решения задачи
Курсовая работа Сазановича К.В.
Исходная таблица перевозок грузов
Итоги количества грузов прибыло из регионов
Итоги количества грузов отправленных в регионы
сумма количества грузов в местном сообщении по всем регионам 445тонн
Итоги количества грузов прибывших из регионов
регионы, между которыми установлена минимальная перевозка груза - 9
Раздел 2. Решение задачи средствами Microsoft Excel
Исходная таблица
При помощи функции “СУММ(ячейка1:ячейка2)” мы высчитали суммы столбцов, суммы столбцов без местного сообщения и суммы строк. Таблица приведена ниже:
Таблица с формулами 
При помощи функций “ИНДЕКС”, “ПОИСКПОЗ” и “МАКС” находим следующие значения в расчетах:
Таблица с формулами
После нахождения максимального региона уменьшаем максимальный столбец на 10% и получаем таблицу:
Таблица в формулах
При построении использовались гистограммы с группировкой, отображающие количество отправленного и принятого груза в каждом регионе до и после уменьшения грузопотока в регионе с максимальным местным сообщением.
Раздел 3.Решение задачи в среде MathCAD
Введем исходную матрицу перевозок
Исходная таблица
Найдем сумму по строкам
Найдем сумму по столбцам
Найдем сумму количества грузов, перевозимого в местном сообщении по всем регионам
Найдем количество груза ввозимого без местного сообщения
Найдем максимальный регион:
Уменьшим максимальный регион на 10%:
Выведем измененную таблицу:
Для того, чтобы не вводить матрицу вручную, а взять из файла используем функцию READPRN(“<путь к файлу>”).
Для нахождения максимального количества грузов в местном сообщении использовалась функция max.
Заключение
Выполнив курсовую работу, я ознакомился с основными типами языка Паскаль, структурой программы, алгоритмами решения, работой с циклическими операторами, массивами, процедурами и т.д. Приобрел навыки в решении задач на языке программирования Паскаль, составлении блок-схем, печати программ, работы в MS Excel, MathСad. Особое внимание в данной курсовой работе уделено операторам языка Паскаль. При помощи этого языка программирования решена задача, при тестировании получены и приведены результаты, которые затем совпали с результатами решения задачи в других приложениях.
После проработки ряда учебных и периодических изданий, а также решения практической задачи научился работать с файлами в среде языка программирования Паскаль, создавать решения программ для преобразования матриц и работы с файлами по условию задачи.
В программе MathCad научился производить различные операции над матрицами при помощи формул, арифметических выражений и т.д.
В оболочке MS Excel получены навыки по работе с таблицами, формулами, графиками и диаграммами.
1 Борисенко, М.В. Компьютерные информациооные технологии / М.В.Борисенко; М-во образования Респ. Беларусь, Белорус. гос. ун-т трансп. – Гомель: БелГУТ,2008. – 296 с.
2 Бородич, Ю.С., Вальвачев, А.Н., Кузьмич, А.И. Паскаль для персональных компьютеров / Бородич, Ю.С., Вальвачев, А.Н., Кузьмич, А.И. – Минск: ВШ, 1991. – 365с.
3 Гораев, О.П., Текстовый процессор MS Word: практикум по компьютерным технологиям/ О.П. Гораев. - Гомель : БелГУТ, 2003. – 68 с.
4 Гораев, О.П., Лыч Ю.П. Операционная система Windows. Операционные оболочки: практикум по компьютерным технологиям / О.П. Гораев, Ю.П. Лыч. - Гомель : БелГУТ, 2003. – 67 с.
5 Гораев, О.П., Лыч Ю.П. Электронные таблицы MS Excel: практикум по компьютерным технологиям / О.П. Гораев, Ю.П. Лыч. - Гомель : БелГУТ, 2003. – 67 с.
6 Информатика. Базовый курс / под ред. С.В. Симоновича. - СПб. : Питер, 2006. - 640 с.
7 Комягин, В.Б. Современный самоучитель работы на ПК. Быстрый старт / В. Б. Комякин, А.О. Коцюбинский. - М. : Триумф, 2004. - 400 с.
8 Курбатова, Е.А. Microsoft Excel 2003. Краткое руководство / Е. А. Курбатова. – Издательский дом «Вильямс», 2005. – 288 с.
9 Леонтьев, В. . Новейшая энциклопедия персонального компьютера / В. П. Леонтьев - М. : ОЛМА-ПРЕСС Образование, 2005. - 734 с.
10 Лыч, Ю.П. Электронные таблицы : учеб. пособие / Ю. П. Лыч. – Гомель: БелГУТ, 2000. – 123 с.
11 Максимова, А. П. Информатика : учеб.-практ. курс /А. П. Максимова. – Минск : ТетраСистемс, 2005. - 128 с.
12 Основы информатики : учеб. пособие / А. Н. Морозевич [и др.] ; под общ. ред. А.Н. Морозевича. – Минск : БГЭУ, 2003 – 560 с.
13 Степанов, А. Н. Информатика : учеб. для вузов / А. Н. Степанов. – 4-е изд. – СПб. : Питер, 2005. - 684 с.
14 Турбо Паскаль 70; Киев : Торгово-издательское бюро,1996.
15 Шибут, М.С. Технологии работы с текстами и электронными таблицами (Word, Excel) / М.С. Шибут; под ред. И. Ф. Богдановой. – Минск : Молодёжное научное общество, 2000. – 144 с.
16 Шушкевич, Г.Ч. Введение в Mathcad 2000 : учеб. пособие / Г. Ч. Шушкевич, С.В. Шушкевич. – Гродно : ГрГУ, 2001. – 140 с.
17 Н.А. Рогачёва, М. В. Борисенко Т. Н. Литвинович «Информатика. Програмирование на языке Паскаль» 1 и 2 часть, Гомель 2004.