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

МИНИСТЕРСТВО ОБРАЗОВАНИЯ РЕСПУБЛИКИ БЕЛАРУСЬ

УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ

"БЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТРАНСПОРТА"

Факультет управления процессами перевозок

КАФЕДРА "ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ"

КУРСОВАЯ РАБОТА

На тему:

"Применение программных комплексов для решения инженерных задач"

Выполнил: студент группы УД-21 Летун Е.В.

Проверил преподаватель Гораев О.П.

Гомель, 2012

Содержание

Введение

Задание на курсовую работу

Алгоритм решения задачи

Программа решения задачи на языке Pascal

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

Решение задачи средствами MS Excel

Решение задачи в среде MathCAD

Заключение

Список литературы

Введение

В настоящее время компьютеры теснее и теснее входят в жизнь людей. Информационные технологии позволяют ускорить и улучшить многие процессы человеческой деятельности. Железнодорожные перевозки также не являются исключением. Здесь компьютеры играют важную роль. Они позволяют облегчить труд многих людей. Решение многих инженерных задач просто немыслимо без информационных технологий. Причина столь стремительного роста роли компьютера в решении инженерных задач - простота использования и высокие возможности по переработке информации. Поэтому необходимо расширять знания будущих инженеров в области информационных технологий.

Цель данной курсовой работы как раз и состоит в расширении кругозора студентов по применению современных информационных технологий в конкретной практической деятельности по выбранной специальности.

Язык программирования Pascal широко используется в инженерной практике, так как он является универсальным алгоритмическим языком. Язык Pascal успешно используется как в самых простых персональных компьютерах так и в мощных суперкомпьютерах.

Задание на курсовую работу

"Применение программных комплексов для решения инженерных задач" для студентов второго курса факультета УПП дневной формы обучения по дисциплине "Информатика"

Студент Летун Елизавета Владимировна группа УД-21

Цель работы:

Данная курсовая работа преследует следующие цели:

расширение кругозора студентов по применению современных информационных технологий в конкретной практической деятельности по выбранной специальности;

изучение методов программирования простейших задач на языке Паскаль;

освоение решения задач средствами MS Excel и Mathcad.

Пояснительная записка к курсовой работе должна включать:

1. Титульный лист.

2. Задание на курсовую работу, выданное и подписанное преподавателем.

3. Содержание.

4. Введение. Во введении отражаются цели и задачи курсовой работы.

5. Алгоритм решения задачи, выданной преподавателем.

6. Программа решения задачи на языке Pascal.

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

8. Решение задачи средствами MS Excel

9. Решение задачи в среде Mathcad.

10.Заключение.

11.Список литературы.

Задания на курсовую работу

Условие задачи:

Количество регионов равно 9. Дана таблица перевозок между отдельными регионами.

Требуется найти:

а) итоги по строкам и столбцам таблицы;

б) определить сумму количества грузов, перевозимых в местном сообщении по всем регионам (сумма данных по главной диагонали матрицы);

в) определить регион с минимальным количеством отправленного груза. Увеличить объем отправленных грузов в каждый регион (в том числе и в местном сообщении) на 17%

г) распечатать исходную и результирующую таблицу перевозок, а так же все расчетные данные.

Задание 1.

Для решения задачи следует составить алгоритм решения, написать и отладить программу на языке Pascal, используя возможности языка по работе с тестовыми и структурированными файлами, обработке массивов, применению подпрограмм и структурированного типа данных - записи.

Программа должна состоять из главной программы и нескольких подпрограмм.

Задание 2.

Решить поставленную задачу средствами приложения MS Excel, выполнив следующие пункты:

. Создать таблицу с исходными данными;

. Выполнить расчеты;

. Построить диаграмму (тип диаграммы и исходные данные задаются преподавателем) и распечатать результаты.

Задание 3.

Решить поставленную задачу в среде Mathcad.

язык программирование инженерный программа

На проверку преподавателю курсовая работа должна быть представлена в двух видах: электронный и его копия на бумаге. Срок сдачи работы - 20.12.2010 г.

Работа распечатывается на стандартных листах формата А4.

Поля документа: верхнее - 15 мм, нижнее - 20 мм, левое - 30 мм, правое - 10 мм.

Объем курсовой работы - около 20 страниц. Страницы должны быть пронумерованы. Титульный лист включается в общую нумерацию страниц, но номер на нем не проставляется. Каждый раздел курсовой работы должен начинаться на новой странице, нумеруется и имеет заголовок.

Задание выдал преподаватель Гораев О.П. ______________ 24.09.2010г.

Алгоритм решения задачи

Блок-схема к главной программе

Процедура Name

Блок-схема к процедуре Vvod (создание исходной таблицы)

Блок-схема к процедуре Pokaz (вывод данной программы)

Блок-схема к процедуре Vivodvfile (вывод данной программы в файл)

Блок-схема к процедуре Sum_stolbzov (сумма по столбцам)

Блок-схема к процедуре Sumstr (сумма по строкам)

Блок-схема к процедуре Min perevozka

Блок-схема к процедуре Umengruz (уменьшение груза)

Функция Diag

Программа решения задачи на языке Pascal

Program perevozki;

{uses crt; }n=9;Mas=array [1. n,1. n] of real;i,j: byte;: real;: mas;,f2: text;_po_strokam: array [1. n] of real;_po_stolscam: array [1. n] of real;: real;: byte;: byte;: array [1. n] of string;

Procedure name;('введите название первого региона ');(Reg [1]);('введите название второго региона ');(Reg [2]);('введите название третьего региона ');(Reg [3]);('введите название четвертого региона ');(Reg [4]);('введите название пятого региона ');(Reg [5]);('введите название шестого региона ');(Reg [6]);('введите название седьмого региона ');(Reg [7]);('введите название восьмогоав региона ');(Reg [8]);('введите название девятого региона ');(Reg [9]);;

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

Procedure vvod (n: byte; var A: mas);i,j: byte;(f1);i: =1 to n doj: =1 to n do(f1,A [i,j]);(f1);;

close (f1);

end;

{вывод данной программы}

Procedure Schit (n: byte; A: Mas);i,j: byte;(' ');i: =1 to n do(reg [i]: 12);;;(' * * * * * * * * * * * * * * * * * * * * *');;i: =1 to n do(reg [i]: 12,'! ');j: =1 to n do(A [i,j]: 10:

);('! ');;();;(' * * * * * * * * * * * * * * * * * * * * *');();

end;

{определение количества грузов, перевозимых в местном сообщение в регионах РБ}

Function Diag (n: byte; A: Mas): real;i,j: byte; s: real;i: =1 to n do: =s+A [i, i];: =s;

end;

{нахождение итогов по регионам вывоза грузов}

Procedure Sum_strok (n: byte; A: Mas);i,j: byte; s: real;i: =1 to n do_po_strokam [i]: =0;i: =1 to n doj: =1 to n do_po_strokam [i]: =sum_po_strokam [i] +A [i,j];('******************************');i: =1 to n do(sum_po_strokam [i]: 19:

);;

{нахождение итогов по регионам прибытия грузов}

Procedure Sum_stolbzov (n: byte; A: Mas);i,j: byte; s: real;j: =1 to n do_po_strokam [j]: =0;j: =1 to n doi: =1 to n do_po_strokam [j]: =sum_po_strokam [j] +A [i,j];('*******************************');j: =1 to n do(sum_po_strokam [j]: 19:

1);;

{нахождение регионов, между которыми установлена минимальная перевозка груза}

Procedure Min_perevozka (n: byte; A: mas);

var i,j,k,jmin, imin: byte;: real;: =A [1,2];: =1;: =2;i: =1 to n doj: =1 to n do(i<>j) and (A [i,j] <min) then: =A [i,j];

imin: =i;: =j;: =jmin;

end;('в регионе',' ', Reg [imin],'-',Reg [jmin],'установлена минимальная перевозка, которая составляет',' ', min: 5: 0,' ','тонн');;

{по региону прибытия минимального груза, все размеры прибытия груза уменьшить на 11%}

Procedure Umengruz (n: byte; A: mas; jmin: byte);i,k,j: byte;i: =1 to n do[i,k]: = (A [i,k]) *0.89; ('---------------------------------------------------------------------------------------------');('Новый груз прибытия по региону ',Reg [k],'будет составлять');

writeln;(n,A);;

{главная программа}(' к у р с о в а я р а б о т а в а р и а н т - 1 2 ');;('Индивидуальное задание: ');('_______________________Определить регионы (исключая местное сообщение) между которыми установлена минимальная перевозка (корреспонденция) груза');('По региону, прибытия данного груза, все размеры прибытия уменьшить на 11%! _________________________');;(f1,'E: \УЧЁБА\Информатика\курсовая. txt');(f2,'D: \учёба\универ\2 КУРС\инф\курсач мой) \курсовая2. txt');;

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

{вызов процедуры Schit вывода таблицы грузоперевозок в регионах РБ}('исходная таблица перевозок грузов');;(n,A);('итогов по регионам вывоза грузов');_strok (n,A);('итогов по регионам прибытия грузов');_stolbzov (n,A);('сумма количества грузов в местном сообщении по всем регионам ',diag (n,A),' тонн');;

{вызов процедуры Min_perevozka }

Min_perevozka (n,A);(n,A,jmin);

Writeln ('Работу выполнила Летун Е.В. ')

end.

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

Индивидуальное задание:

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

По региону, прибытия данного груза, все размеры прибытия уменьшить на 11%! _________________________

введите название первого региона

Гомель

введите название второго региона

Брест

введите название третьего региона

Лунинец

введите название четвертого региона

Могилёв

введите название пятого региона

Гродно

введите название шестого региона

Речица

введите название седьмого региона

введите название восьмогоав региона

Кобрин

введите название девятого региона

Полоцк

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

Гомель Брест Лунинец Могилёв Гродно Речица Слуцк Кобрин Полоцк

* * * * * * * * * * * * * * * * * * * * *

Гомель! 609.0 604.0 615.0 607.0 627.0 604.0 611.0 633.0 603.0!

Брест! 650.0 635.0 634.0 612.0 645.0 647.0 631.0 647.0 609.0!

Лунинец! 608.0 608.0 648.0 625.0 648.0 632.0 647.0 650.0 649.0!

Могилёв! 612.0 616.0 621.0 644.0 608.0 628.0 649.0 604.0 636.0!

Гродно! 614.0 650.0 639.0 642.0 625.0 619.0 628.0 624.0 648.0!

Речица! 623.0 616.0 605.0 649.0 617.0 623.0 635.0 632.0 626.0!

Слуцк! 645.0 628.0 620.0 635.0 621.0 636.0 641.0 642.0 631.0!

Кобрин! 616.0 646.0 632.0 622.0 638.0 642.0 618.0 638.0 615.0!

Полоцк! 624.0 619.0 641.0 615.0 647.0 608.0 605.0 617.0 607.0!

* * * * * * * * * * * * * * * * * * * * *

итоги по регионам вывоза грузов

******************************

.0

.0

.0

.0

.0

.0

.0

.0

.0

итоги по регионам прибытия грузов

*******************************

.0

.0

.0

.0

.0

.0

.0

.0

.0

сумма количества грузов в местном сообщении по всем регионам 5670 тонн

в регионе Гомель-Полоцк установлена минимальная перевозка, которая составляет 603 тонн

Новый груз прибытия по региону Полоцк будет составлять

Гомель Брест Лунинец Могилёв Гродно Речица Слуцк Кобрин Полоцк

* * * * * * * * * * * * * * * * * * * * *

Гомель! 609.0 604.0 615.0 607.0 627.0 604.0 611.0 633.0 536.7!

Брест! 650.0 635.0 634.0 612.0 645.0 647.0 631.0 647.0 542.0!

Лунинец! 608.0 608.0 648.0 625.0 648.0 632.0 647.0 650.0 577.6!

Могилёв! 612.0 616.0 621.0 644.0 608.0 628.0 649.0 604.0 566.0!

Гродно! 614.0 650.0 639.0 642.0 625.0 619.0 628.0 624.0 576.7!

Речица! 623.0 616.0 605.0 649.0 617.0 623.0 635.0 632.0 557.1!

Слуцк! 645.0 628.0 620.0 635.0 621.0 636.0 641.0 642.0 561.6!

Кобрин! 616.0 646.0 632.0 622.0 638.0 642.0 618.0 638.0 547.4!

Полоцк! 624.0 619.0 641.0 615.0 647.0 608.0 605.0 617.0 540.2!

Решение задачи средствами MS Excel

Таблица перевозок грузов