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

УЧРЕЖДЕНИЕ ОБРАЗОВАНИЯ БЕЛОРУССКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТРАНСПОРТА

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

Курсовая работа

по дисциплине

«Информатика»

на тему:

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

Выполнила: студентка группы УA-21 Коляда Е.Н. Гомель 2011

Проверил: преподаватель Борисенко М.В.

Содержание

Введение 4

1. Постановка задачи 5

2. Исходные данные 6

3. Решение задачи управления процессами перевозок в среде Pascal 7

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

3.2. Текст программы 12

3.3. Результаты работы программы 15

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

4.1. Исходные данные и итоги по строкам и столбцам 17

4.2. Расчёты по заданию 17

4.3. Диаграмма по результатам расчета 19

5. Решение задачи средствами MATHCAD 20

Заключение 24

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

Введение

.

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

В данной курсовой работе необходимо научиться решать транспортные задачи средствами Pascal, Ms Excel, MathCad. В рамках выполнения курсовой работы моей целью является решение транспортных задач в среде Pascal ABC, средствами электронных таблиц MS Excel и пакета автоматизации математических и инженерных расчетов MathCAD. На примере поставленной задачи мне предстоит освоить составление алгоритма с использованием вспомогательных алгоритмов, написать программу с использованием процедур и решить задачу в Mathcad и MS Excel, распечатать результаты.

1. Постановка задачи

Требуется провести расчеты по таблице перевозок грузов между отдельными регионами с помощью 3-х приложений – табличного процессора MS Excel, пакета автоматизации математических и инженерных расчетов MathCAD и среды программирования Pascal ABC.

Необходимо:

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

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

в) выполнить индивидуальное задание:

Определить регионы для максимальной перевозки, расположенной выше главной диагонали матрицы. Все размеры отправления груза на соответствующий регион уменьшить на 9 %

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

2. Исходные данные

Количество регионов - 7

Таблица перевозок грузов (в условных единицах) между отделбными регионами

27 9 86 68 3 7 99

61 36 46 10 14 47 66

69 63 41 3 12 84 20

43 77 18 25 84 98 92

50 36 17 0 39 83 12

29 73 46 33 15 29 74

63 3 46 4 23 11 61

Названия регионов:

Бургундия

Корсика

Гваделупа

Мартиника

Гвиана

Пикардия

Майотто

3. Решение задачи управления процессами перевозок в среде Pascal

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

Р

S=S+A[i,i]

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

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

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

Рисунок 4. Блок-схема процедуры Raschet

Рисунок 6. Блок-схема процедуры Vivod

Рисунок 5. Блок-схема процедуры Vvod1