Размещено на http://www.allbest.ru/

Министерство образования Республики Беларусь

Белорусский государственный университет транспорта

Кафедра "Информационные технологии"

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

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

Выполнил

студент группы ЗД-11

Коваленко И.С.

Гомель, 2013

Содержание

транспорт инженерный pascal excel

Введение

Подготовка исходных данных

1. Расчеты заданных показателей с помощью языка Pascal

2. Расчеты заданных показателей с помощью MS Excel

3. Расчеты заданных показателей с помощью MathCad

Заключение

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

Введение

Внедрение и широкое использование средств вычислительной техники является одним из главных факторов ускорения научно-технического прогресса в нашей стране. Стремительно возрастает роль ЭВМ во всех областях человеческой деятельности. Без использования быстродействующих ЭВМ немыслимо решение задач интенсификации экономического развития ведущих отраслей народного хозяйства.

Современная жизнь немыслима без эффективного управления, важной категорией которого, являются системы обработки информации, от которых во многом зависит эффективность работы любого предприятия или учреждения. Такие системы должны:

- обеспечивать получение общих и/или детализированных отчетов по итогам работы;

- позволять легко определять тенденции изменения важнейших показателей;

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

- выполнять точный и полный анализ данных.

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

Широкое и многообразное применение ЭВМ предъявляет все более высокие требования в их программному обеспечению. Разработка программ и программных комплексов приобретает характер индустриального производства. Значение программного обеспечения трудно переоценивать, т.к именно программы определяют и создают "интеллект" компьютера. В то же время процесс создания программ относится к одной из наиболее сложных сфер творческой деятельности человека, требующий больших усилий и специальной технологии разработки.

При составлении программ применяются различные языки программирования, среди которых Pascal занимает особое место. Отражая основные концепции структурного программирования, язык Pascal быстро завоевал популярность среди специалистов.

В данной курсовой работе необходимо научиться решать транспортные задачи средствами Pascal, Ms Excel, MathCad.

Подготовка исходных данных

Согласно заданию определяем регион отправления и прибытия грузов. Показываем его на рисунке 1. В заданном регионе выбираем 4 региональных узла, 4 внутренних стыка и 2 внешних стыка. Их названия записываем в таблицу 1.

В таблицу 1 записываем расстояния между пунктами, взятыми с карты. Числовые данные из таблицы сохраняем в текстовый файл s.txt.

В таблицу 2 заносим объемы перевозок грузов, которые принимаются самостоятельно. Числовые данные из таблицы сохраняем в текстовый файл g.txt.

Рисунок 1 - Регион отправления и прибытия грузов

Таблица 1 - Расстояния между пунктами отправления и прибытия грузов, км

Отправитель	Получатель
	Витебск	Полоцк	Лида	Гродно	Орша	Лепель	Пацевичи	Слоним	Ошмяны	Езерище
Витебск	0	101	355	454	77	104	292	396	293	75
Полоцк	101	0	293	384	155	70	238	353	225	87
Лида	355	293	0	100	345	251	68	89	73	378
Гродно	454	384	100	0	445	348	167	120	164	472
Орша	77	155	345	445	0	120	279	370	296	153
Лепель	104	70	251	348	120	0	187	296	189	138
Пацевичи	292	238	68	167	279	187	0	118	55	319
Слоним	396	353	89	120	370	296	118	0	154	435
Ошмяны	293	225	73	164	296	189	55	154	0	310
Езерище	75	87	378	472	153	138	319	435	310	0

Таблица 2 - Объемы перевозки грузов, ед.

Отправитель	Получатель
	Витебск	Полоцк	Лида	Гродно	Орша	Лепель	Пацевичи	Слоним	Ошмяны	Езерище
Витебск	0	8	6	10	4	5	7	8	0	7
Полоцк	9	0	3	5	2	0	2	3	0	2
Лида	5	3	0	4	8	10	10	7	8	6
Гродно	3	4	0	0	9	10	1	1	10	5
Орша	2	2	3	2	0	4	2	9	4	5
Лепель	1	9	4	8	1	0	1	3	10	7
Пацевичи	0	8	8	3	10	7	0	8	5	6
Слоним	6	8	3	9	2	4	6	0	0	5
Ошмяны	4	9	0	0	1	4	4	4	0	3
Езерище	10	9	0	0	9	6	5	8	2	0

1. Расчеты заданных показателей с помощью языка Pascal

Исходные данные для расчетов сохранены в текстовых файлах s.txt и g.txt.

Описание переменных

fs, fg : text; ? файловые переменные fs и fg для установления связи с реальными файлами на внешнем носителе;

m1, m2 : array[1..10,1..10] of integer; ? две пустые таблицы m1 и m2 размером 10Ч10 для данных, пересылаемых из файлов в программу;

i, j : integer; ? вспомогательные переменные i и j для повторяющихся расчетов;

p1, p2, p3, p4, p5 : longint; ? переменные для записи результатов.

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

program table;

uses crt;

var

fs, fg : text;

m1, m2 : array[1..10, 1..10] of integer;

i, j : integer;

p1, p2, p3, p4, p5 : longint;

begin

clrscr;

assign(fs, 's.txt');

reset(fs);

for i:=1 to 10 do

for j:=1 to 10 do read (fs, m1[i,j]);

close(fs);

assign(fg, 'g.txt');

reset(fg);

for i:=1 to 10 do

for j:=1 to 10 do read (fg, m2[i,j]);

close(fg);

p1 := 0;

for i:=1 to 4 do

for j:=1 to 4 do

p1 := p1 + m1[i,j] * m2[i,j];

writeln('A - региональное перемещение = ', p1);

p2 := 0;

for i:=9 to 10 do

for j:=9 to 10 do

p2 := p2 + m1[i,j] * m2[i,j];

writeln('G - транзит = ', p2);

p3 := 0;

for i:=1 to 10 do

for j:=1 to 10 do

p3 := p3 + m1[i,j] * m2[i,j];

for i:=5 to 8 do

for j:=1 to 4 do

p3:= p3 + m1[i,j] * m2[i,j];

writeln('J+C - грузооборот + ввоз в региoн из других региoнов = ', p3);

p4 := 0;

for i:=5 to 8 do

for j:=5 to 8 do

p4 := p4 + m1[i,j] * m2[i,j];

writeln('D - транзит внутри страны = ', p4);

p5 := 0;

for i:=5 to 8 do

for j:=1 to 4 do

p5 := p5 + m1[i,j] * m2[i,j];

for i:=9 to 10 do

for j:=1 to 8 do

p5 := p5 + m1[i,j] * m2[i,j];

writeln('Н - прибыло в регион всего = ', p5);

write('расчёты окончены');

repeat until keypressed;

end.

Результаты тестирования программы

A - региональное перемещение = 17138

G - транзит = 1550

J+C - грузооборот + ввоз в региoн из других региoнов = 117588

D - транзит внутри страны = 13238

Н - прибыло в регион всего = 30305

расчёты окончены

2. Расчеты заданных показателей с помощью MS Excel

Исходные данные для расчетов сохранены в текстовых файлах s.txt и g.txt.

Для проведения расчетов данные экспортируются из текстовых файлов в программу MS Excel через буфер обмена.

После получения двух таблиц размером 10х10 на рабочем листе добавляются заголовки строк и столбцов (рисунок 2).

Расчет производится путем перемножения значений двух полученных таблиц с последующим суммированием значений, как показано на рисунке 3.



Рисунок 2 - Исходные данные для расчетов в MS Excel

а) Режим отображения значений

б) Режим отображения формул

Рисунок 3 - Расчеты показателей средствами MS Excel

3. Расчеты заданных показателей с помощью MathCad

Исходные данные для расчетов сохранены в текстовых файлах s.txt и g.txt.

В пакете MathCad задаем начало нумерации элементов массивов с помощью системной переменной ORIGIN.

В текстовых областях указываем названия загружаемых таблиц. Сами таблицы загружаем при помощи функции READPRN. Полученный результат показан на рисунке 4.

Далее путем суммирования рассчитываем заданные показатели движения грузов. Полученные результаты форматируются к удобному виду.



Рисунок 4 - Расчеты показателей средствами MathCad

Заключение

Выполнив курсовую работу, я закрепил знания языка Pascal, MS Excel и MathСad.

Для реализации поставленной задачи, была использована среда программирования Pascal, MS Excel и MathСad.

Для выполнения задачи на языке программирования Pascal повторил:

- работу с циклическими операторами;

- работу с файлами;

- матрицы;

- массивы

В программе 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. Иоффе Л.А. Основы компьютерных информационных технологий: учеб.-метод. пособие/ Л.А. Иоффе, Т.Л. Шинкевич, Т.А. Голдобина; М-во образования Респ. Беларусь, Белорус. гос. ун-т трансп.- Гомель: БелГУТ, 2010.-166 с.

8. Комягин В.Б. Современный самоучитель работы на ПК. Быстрый старт / В.Б. Комякин, А.О. Коцюбинский. - М.: Триумф, 2004. - 400 с.

9. Курбатова Е.А. Microsoft Excel 2003. Краткое руководство / Е.А. Курбатова. - Издательский дом "Вильямс", 2005. - 288 с.

10. Леонтьев В.П. Новейшая энциклопедия персонального компьютера / В.П. Леонтьев - М.: ОЛМА-ПРЕСС Образование, 2005. - 734 с.

11. Лыч Ю.П. Электронные таблицы: учеб. пособие / Ю.П. Лыч. - Гомель: БелГУТ, 2000. - 123 с.

12. Максимова А.П. Информатика: учеб.-практ. курс / А.П. Максимова. - Минск: ТетраСистемс, 2005. - 128 с.

13. Основы информатики: учеб. пособие / А.Н. Морозевич [и др.]; под общ. ред. А.Н. Морозевича. - Минск: БГЭУ, 2003 - 560 с.

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

...