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

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

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

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

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

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

по дисциплине «Информатика»

на тему: «Применение программных комплексов

для решения инженерных задач»

Выполнил:

студент группы УР-21

Гатальский А.А.

Проверил:

Доцент

Гораев О. П.

Гомель 2013

Содержание

• ВВЕДЕНИЕ
• Постановка задачи
• 1. Решение задачи средствами Pasca
• 1.1 Алгоритм решения задачи
• 1.2 Пограмма решения задачи на языке Pascal
• 1.3 Результаты решения задачи
• 2. Решение задачи средствами Microsoft Excel
• 2.1 Исходные данные и итоги по строкам и столбцам
• 2.2 Расчёты по заданию
• 2.3 Диаграмма по расчетным данным
• Решение задачи в среде MATHCAD
• ЗАКЛЮЧЕНИЕ
• СПИСОК ЛИТЕРАТУРЫ
• ПРИЛОЖЕНИЕ А

Введение

Долгое время единственным видом вычислительной техники были вычислительные устройства: счеты, логарифмическая линейка, суммирующие устройства, арифмометры.

Окончательно решить проблему быстрых и точных вычислений удалось только с изобретением нового вида вычислительной техники - вычислительных машин, которые способны проводить расчеты автоматически под управлением человека.

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

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

Цель моей курсовой работы заключается в приобретении навыков работы на компьютере, а именно работы с прикладной программой Microsoft Word, программами пакета Microsoft Office, математическим пакетом MathCad и программированию на языке Pascal. Говоря подробнее, мне предстоит пополнение моих знаний в области информационных технологий, расширение кругозора в сфере моей будущей профессии, приобретение навыков в составлении алгоритма решения задачи и написании программ на языке Pascal по работе с текстовыми файлами, обработке массивов, применении подпрограмм и структурированного типа данных, а также приобретение навыков в работе со средствами пакета Microsoft Office и пакета MathCad. Результаты работы требуется представить в структурированном документе Ms Word, содержащем внедрённые объекты Ms Excel и MathCad.



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

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

Необходимо:

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

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

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

Определить регион с минимальным количеством перевозимого груза в местном сообщении. Увеличить грузопоток внутри данного региона на 5%.

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

1. Раздел решение задачи средствами паскаль

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

Блок-схема процедуры ввода городов



Блок-схема процедуры ввода объемов грузоперевозок



Блок-схема процедуры расчета сумм объемов грузоперевозок по строкам и столбцам



Блок-схема процедуры определения объема грузоперевозок в местном сообщении



Блок-схема процедуры вывода выполненных расчетов в виде таблицы



Блок-схема процедуры определения региона с минимальным прибывшим грузом



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



Блок-схема процедуры ручного расчета



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



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

program kursach;

const k=100;

var

M1:array[1..k,1..k] of real;

M2:array[1..k,1..k] of real;

str:array[1..100] of real;

st:array[1..100] of real;

B:array[1..100] of real;

nazv: array [1..k] of string[11];

naz:string;

s,summa, proz, sum, min: real; n,i,j,jmin,a: integer;

f1,f2,f:text;

Procedure gorod;

Begin

Assign(f1,'C:\Documents and Settings\Admin\Рабочий стол\gorod.txt');

reset(f1);

For i:=1 to N do

readln(f1,nazv[i]);

close(f1);

end;

Procedure kolgruz;

Begin

Assign(f2,'C:\Documents and Settings\Admin\Рабочий стол\kurs.txt');

reset(f2);

For i:=1 to N do

Begin

For j:=1 to N do

read(f2,M1[i,j]);

end;

close(f2);

end;

Procedure Stroka;

begin

for i:=1 to N do

Str [i]:=0;

for i:=1 to N do

begin

for j:=1 to N do

Str [i]:=Str [i]+M1[i,j];

end;

end;

Procedure stolbik;

begin

sum:=0;

for j:=1 to N do

st[j]:=0;

For j:=1 to N do

begin

for i:=1 to N do

st[j]:=st[j]+M1[i,j];

sum:=sum+st[j];

end;

end;

Procedure Mestsoob;

begin

summa:=0;

For i:=1 to n do

for j:=1 to n do

if (i=j) then

summa:=summa+M1[i,j];

writeln('Итого = ',summa);

end;

Procedure Minimum;

begin

min:=M1[1,1];

jmin:=1;

naz:=nazv[1];

for i:=1 to n do

for j:=1 to n do

if i=j then

begin

if M1[i,j]<=min then

begin

min:=M1[i,j];

jmin:=j;

naz:=nazv[j];

end;

end;

writeln('Минимальная перевозка груза в местном сообщении равна ',min,' = ',naz);

end;

Procedure prozent;

begin

proz:=proz/100;

for i:=1 to n do

begin

if i=jmin then

M1[i,jmin]:=M1[i,jmin]+proz*M1[i,jmin];

end;

end;

Procedure Vivod;

begin

For j:=1 to N+2 do

write('_________________');

writeln;

write('|');

write('из \ на':16);

write('|');

For i:=1 to N do

begin

write(nazv[i]:16);

write('|');

end;

write('Итого':16);

write('|');

writeln;

For j:=1 to N+2 do

write('|________________');

write('|');

writeln;

For i:=1 to N do

begin

write('|');

write(nazv[i]:16);

write('|');

for j:=1 to N do

write(M1[i,j]:16:2,'|');

write(str[i]:16:2);

write('|');

writeln;

begin

For j:=1 to N+2 do

write('|________________');

write('|');

writeln;

end;

end;

write('|');

write('Итого':16);

write('|');

For j:=1 to N do

begin

write(st[j]:16:2);

write('|');

end;

write(sum:16:2);

write('|');

writeln;

For j:=1 to N+2 do

write('|________________');

write('|');

writeln;

writeln;

writeln;

end;

Procedure Zap_File;

begin

For j:=1 to N+2 do

write(f,'_________________');

writeln(f);

write(f,'|');

write(f,'из \ на':16);

write(f,'|');

For i:=1 to N do

begin

write(f,nazv[i]:16);

write(f,'|');

end;

write(f,'Итого':16);

write(f,'|');

writeln(f);

For j:=1 to N+2 do

write(f,'|________________');

write(f,'|');

writeln(f);

For i:=1 to N do

begin

write(f,'|');

write(f,nazv[i]:16);

write(f,'|');

for j:=1 to N do

write(f,M1[i,j]:16:2,'|');

write(f,str[i]:16:2);

write(f,'|');

writeln(f);

begin

For j:=1 to N+2 do

write(f,'|________________');

write(f,'|');

writeln(f);

end;

end;

write(f,'|');

write(f,'Итого':16);

write(f,'|');

For j:=1 to N do

begin

write(f,st[j]:16:2);

write(f,'|');

end;

write(f,sum:16:2);

write(f,'|');

writeln(f);

For j:=1 to N+2 do

write(f,'|________________');

write(f,'|');

writeln(f);

writeln(f);

writeln(f);

end;

Begin

Writeln('Введите количество регионов (по условию 5 ):');

Readln(N);

Gorod;

kolgruz;

Stolbik;

Stroka;

Assign(f,'C:\Documents and Settings\Admin\Рабочий стол\resultat.txt');

rewrite(f);

writeln('Таблица перевозок');

writeln(f,'Таблица перевозок');

Vivod;

Zap_File;

Mestsoob;

writeln(f,'Сумма количества грузов в местном сообщении = ',summa);

Minimum; рascal еxcel программа алгоритм

writeln(f,'Минимальная перевозка',min,'. ',=',naz);

writeln('Введите %, на который необходимо увеличить грузопоток внутри данного региона=');

readln(proz);

prozent;

writeln('Измененная таблица перевозок:');

writeln(f,'Измененная таблица перевозок:');

writeln;

Stolbik;

Stroka;

Vivod;

Zap_File;

close(f);

End.



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

2. Решение задачи средствами microsoft excel

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

отправлено / получено	Гомель	Будо-кошелев	Жлобин	Рогачев	Быхов	Итого	min
Гомель	100	156	144	134	129	663	100
Будо-кошелев	103	164	124	194	199	784	164
Жлобин	101	130	106	108	190	635	106
Рогачев	110	148	149	109	180	696	109
Быхов	120	140	150	160	170	740	170
Итого	534	738	673	705	868	3518

2.2 Расчёты по заданию

1.Определить сумму перевозок в местном сообщении:			649
2.Минимальное количество перевозимого груза в местном сообщении:		100
Регион с минимальным количеством перевозимого груза:			Гомель
3. Увеличить грузопоток в данном регионе на 5%				105

Вычисления произведены следующим образом:

Сумма количества груза, перевозимого в местном сообщении, нашел с помощью функции СУММ:

=СУММ(B4+C5+D6+E7+F8).

Минимальный грузопоток в местном сообщении нашел при помощи функции МИН: =МИН(H4;H5;H6;H7;H8) .

А регион с минимальным количеством перевозимого груза в местном сообщении при помощи функции ИНДЕКС:

=ИНДЕКС(A4:A8;ПОИСКПОЗ(H14;L3:L7;0))

Таблица перевозок, по региону с минимальным количеством перевозимого груза в местном сообщении, грузопоток увеличен внутри данного региона на 5% определялась по формуле

=B4+B4*5%

И. В результате получилась следующая таблица:

Итоговая таблица

отправлено / получено	Гомель	Будо-кошелев	Жлобин	Рогачев	Быхов	Итого
Гомель	105	156	144	134	129	668
Будо-кошелев	103	164	124	194	199	784
Жлобин	101	130	106	108	190	635
Рогачев	110	148	149	109	180	696
Быхов	120	140	150	160	170	740
Итого	539	738	673	705	868	3523

Измененная таблица представлена в формулах (приложение А).

2.3 Диаграмма по расчетным данным

2.3.1 Диаграмма погрузки по Гомелю



2.3.2 Диаграмма выгрузки по Гомелю

3. Решение задачи в среде mathcad

Найдем сумму по строкам

Найдем сумму по столбцам



Найдём количество груза перевозимого в местном сообщении

Cумма перевозок в местном сообщении:

Найдём регион с минимальным количеством перевозимого груза в местном сообщении.

Увеличим количество груза, ввозимого на данный регион, на 5%.

Матрица примет вид



Заключение

Выполнив курсовую работу, я ознакомилась с основными типами языка Pascal, структурой программы, алгоритмами решения, работой с циклическими операторами, массивами, процедурами и т.д. Приобрела навыки в решении задач на языке программирования Pascal, составлении блок-схем, печати программ, работы в MS Excel, MathCAD. Особое внимание в данной курсовой работе уделено операторам языка Pascal.

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

В программе MathCAD научилась производить различные операции над матрицами при помощи формул, арифметических выражений и т.д.

В оболочке MS Excel получены навыки по работе с таблицами, формулами и диаграммами.

Также мы научились оформлять в пакете Ms Word данную курсовую работу, с учетом всех требований, которые предоставляются для оформления подобных работ. Это поможет мне в дальнейшем грамотно оформлять все мои последующие работы.

Не смотря на то, что встроенные возможности MS Excel и MathCAD позволяют легче решить простые задачи, при возникновении более сложных задач необходимо все-таки прибегать к программированию.

Литература

1. Борисенко, М.В. Основы информационных технологий: пособие / М.В. Борисенко. - Гомель : БелГУТ, 2005. - 180 с.

2. Борисенко, М.В. Компьютерные информационные технологии / М.В. Борисенко; М_во образования Респ. Беларусь, Белорус. гос. ун-т трансп. - Гомель: БелГУТ, 2008. - 296 с.

3. Информатика. Программирование на языке Паскаль: практикум по лабораторным работам. Ч.1 / А.П. Кейзер [и др.]; под общ. ред. Ю.А. Пшеничнова. - Гомель : БелГУТ, 2005. - 46 с.

4. Рогачева, Н.А. Информатика. Язык программирования Паскаль: пособие для студ. дневной формы обучения техн. спец. Ч II / Н.А. Рогачева, М.В. Борисенко, Т.Н. Литвинович. - Гомель : БелГУТ, 2004. - 39 с.

5. Рогачева, Н.А. Информатика. Язык программирования Паскаль: пособие для студ. дневной формы обучения техн. спец. Ч III / Н.А. Рогачева, М.В. Борисенко, Т.Н. Литвинович. - Гомель: БелГУТ, 2004. - 30 с.

6. Бородич, Ю.С., Вальвачев, А.Н., Кузьмич, А.И. Паскаль для персональных компьютеров / Бородич, Ю.С., Вальвачев, А.Н., Кузьмич, А.И. - Минск: ВШ, 1991. - 365 с.

7. Гораев, О.П., Лыч Ю.П. Текстовый процессор MS Word: практикум по компьютерным технологиям / О.П. Гораев. Гомель : БелГУТ, 2003. - 68 с.

8. Гораев, О.П. Операционная система Windows. Операционные оболочки: практикум по компьютерным технологиям / О.П. Гораев, Ю.П. Лыч. Гомель : БелГУТ, 2003. - 67 с.

9. Гораев, О.П., Электронные таблицы MS Excel: практикум по компьютерным технологиям / О.П. Гораев, Ю.П. Лыч. Гомель : БелГУТ, 2003. - 67 с.

10. Информатика. Базовый курс / под ред. С.В. Симоновича. СПб. : Питер, 2006. 640с.

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

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

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

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

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

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

ПРИЛОЖЕНИЕ А

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