Главная страница

курсовая 222. Курсовая работа по дисциплине информатика


Скачать 0,82 Mb.
НазваниеКурсовая работа по дисциплине информатика
Анкоркурсовая 222.docx
Дата21.05.2018
Размер0,82 Mb.
Формат файлаdocx
Имя файлакурсовая 222.docx
ТипКурсовая
#71467
Каталогlowethespudge

С этим файлом связано 6 файл(ов). Среди них: gifki-na-sluchay-vazhnykh-peregovorov-vse-ponyatno.gif, курсовая 222.docx, мой доклад.docx, Егор 4 лаба.xls.
Показать все связанные файлы

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

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

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

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

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

ПО ДИСЦИПЛИНЕ «ИНФОРМАТИКА»

на тему

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

Выполнил:

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

Пушенко С.А.

Гомель 2011


Содержание

Введение 3

1. Исходные данные 4

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

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

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

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

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

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

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

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

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

Заключение

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


Введение


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

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

1Исходные данные


Количество регионов — 10

Таблица перевозок грузов между регионами Беларуси:


40

57

52

91

12

97

35

5

0

50

38

60

58

57

42

26

59

83

87

3

72

0

64

94

5

81

10

33

94

46

41

15

42

82

55

80

95

70

67

28

19

3

11

75

48

2

24

96

75

84

50

11

82

85

46

14

97

46

27

68

96

1

70

65

93

57

17

26

81

71

22

17

79

99

75

81

77

47

41

30

42

27

27

79

51

58

16

58

43

34

4

71

23

55

79

63

66

58

69

36


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

Орша

Брест

Гомель

Жлобин

Барановичи

Пинск

Витебск

Гродно

Бобруйск

Могилёв

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


Начало

аssign (finp, 'D:/ gruz.txt')

)

reset(finp)

аssign (fout,'D:/ Паскаль/ gruz_1.txt')

rewrite(fout)

vvod

(n,finp,mas1)

аssing (finp, 'D:/Паскаль/ /gruz_2.txt')

reset(finp)

nazvanie

(n,finp,nazv1)

vivod

(n,fout,nazv1,mas1)
raschet

(n,fout,nazv1,

mas1)
mestnoe_

soobchenie(n,fout,mas1)

vivod

(n,fout,nazv1

,mas1)

close(finp)

1

1

close(fout)

Конец

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

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

Ввод изfn

эл-та A[i,j]

Вход

Переход на нов.строку

j:=1..n

Выход

Рисунок 1— Блок-схема алгоритма

процедуры vvod

Вход

i:=1..n

Ввод из fn

эл-та B[i]

Выход

n – кол-во эл-в матрицы

B – матрица

fn – текстовый документ

Рисунок 2— Блок-cхема алгоритма

процедуры nazvanie

Вход

n – кол-во эл-в матрицы

A – матрица

S:=0

i:=1..n

S:=S+A[i,i]

Выход

fn,S

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


Рисунок 4 —Блок-схема алгоритма

процедуры vivod

sum=sum+Aij
j:=1..n

sum= sum + Ai,,j
1

j:=1..n

sum:=0
i:=1..n

fn,sum

sum:=0

fn,sum

Выход

fn,sum

1

sum:=sum+A[i,j]

i:=1..n

sum:=0

fn,B[i]

j:=1..n

fn,A[i,j]

i:=1..n

fn,B[i]

Вход

n – кол-во эл-в матрицы

A,B – матрицы

fn – текстовый документ

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



Program region_7;

const N=10;

Type Mas=array [1..N,1..N] of real;

vect=array[1..N] of real;

var i,j,jmax,imax: integer; G: Mas;

s1,S,max: real;

vstlb,vstr: vect;

input,output: text;

Orig: array [1..N] of string;

Procedure regions;

begin

Orig[1]:=('орша ');

Orig[2]:=('брест ');

Orig[3]:=('гомель ');

Orig[4]:=('жлобин ');

Orig[5]:=('баран ');

Orig[6]:=('пинск ');

Orig[7]:=('витебск ');

Orig[8]:=('гродно ');

Orig[9]:=('бобруйск ');

Orig[10]:=('могилев');

end;

Procedure vivod(N: integer; G: Mas);

var i,j: integer;

begin {начало процедуры}

writeln('---------------------------------------------------------------------------------------------------------------');

write (' |',Orig[1],' | ',Orig[2],' | ',Orig[3],' | ',Orig[4],' | ',Orig[5],' | ',Orig[6],' | ',Orig[7],' | ',Orig[8],' | ',Orig[9],' | ',Orig[10],' | ');

writeln;

writeln('---------------------------------------------------------------------------------------------------------------');

for i:=1 to N do

begin

write(Orig[i]:7);

For j:=1 to N do write (' |',G[i,j]:7:1); writeln (' |');

writeln('--------------------------------------------------------------------------------------------------------------');

end;

end;

{итоги по столбцам матрици грузоперевозок}

Procedure itogStlb(N:integer; G:Mas);

Var i,j:integer;

sum:vect;

Begin

for j:=1 to N do

begin

sum[j]:=0;

for i:=1 to N do

sum[j]:=sum[j]+G[i,j];

end;

writeln;

writeln(сумма грузов,ввезённых в регигоны);

writeln('-----------------------------------------------------------------------------------------');

for i:=1 to N do

begin

if i<>1 then write('|');

write(Orig[i]:9);

end;

writeln;

writeln('-----------------------------------------------------------------------------------------');

for i:=1 to N do

begin

if i<>1 then write('|');

write(sum[i]:8:1,' ');

end;

writeln;

writeln('-----------------------------------------------------------------------------------------');

end;

{итоги по строкам матрици грузоперевозок}

Procedure itogStr(N:integer;G:Mas);

Var i,j:integer;

sum:vect;

Begin

for i:=1 to N do

begin

sum[i]:=0;

for j:=1 to n do

sum[i]:=sum[i]+G[i,j];

end;

writeln;

writeln(сумма грузов,вывезенных из регионов ');

writeln('--------------------');

for i:=1 to N do

begin

writeln(Orig[i]:8,'|',sum[i]:9:1,' |');

writeln('--------------------');

end;

end;

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

Procedure maximal(G: Mas; N: integer; var imax,jmax: integer; var max: real);

var i,j: integer;

begin

max:=G[1,1]; imax:=1; jmax:=1;

for i:=1 to N do

for j:=1 to N do

if G[i,j]>max then

begin

max:=G[i,j];

imax:=i;

jmax:=j;

end;

end;

{основная программа}

Begin

{создание и распечатка исходной матрици грузоперевозок}

assign (input, 'D:\gruz.txt');

assign (output, 'D:\вывод.txt');

reset (input);

For i:=1 to N do

begin

For j:=1 to N do read (input, G[i,j]);

readln(input);

end;

rewrite (output);

regions;

writeln (' исходная матрица грузоперевозок ');

Vivod (N,G);

itogStlb(N,G);

itogStr(N,G);

writeln (output, обратная матрица);

for i:=1 to n do

begin

for j:=1 to n do write (output, G[i,j]:4:1);

writeln (output)

end;

close (output);

writeln('*********************************************************');

minimal(G,N,imax,jmax,max);

writeln('максимальное значение грузоперевозок = ',max);

writeln('ÑÒÐÎÊÀ=',imax);

writeln('ÑÒÎËÁÅÖ=',jmax);

{найдём сумму кол-во грузов перевозимых в местном сообщении}

S:=0;

For i:=1 to N do

For j:=1 to N do

if (i=j) then S:=S+G[i,j];

writeln ('итоги перевозок в местном сообщении = ', S);

writeln('***********************************************************');

{увеличение объёма грузоперевозок на 15%}

for j:=1 to N do

G[imax,j]:=G[imax,j]+0.15*G[imax,j];

writeln(' увеличенная матрица грузоперевозок);

vivod(N,G);

end.

2.2Результаты работы программы



КУРСОВАЯ ПО ИНФОРМАТИКЕ

на тему:

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

Выполнила: студент гр.УА-21 Пушенко С.А.

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







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

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


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

Исходная таблица данных приведена ниже:



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


При помощи функции “СУММ (ячейка1:ячейка2)” я высчитал суммы столбцов и суммы строк. Таблица приведена ниже:

1.png
При помощи функции Формулы я получил таблицу с формулами:

3.png

Используя функции “ИНДЕКС”, “ПОИСКПОЗ” и “МАКС”, я нашел следующие значения в расчетах. Таблица расчетов приведена ниже:



Таблица расчетов с формулами

Используя функцию Формулы, я получил таблицу с формулами:



Увеличение ввоза на 15% в данный регион с любого другого региона ;



Отформатированная таблица с формулами:

Используя функцию Формулы, я получил отформатированную таблицу с формулами:

12.png




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


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




4Решение задачи средствами MATHCAD



Для того чтобы произвести расчёты в MATHCAD мне потребовался текстовый файл, который я получил путём копирования исходных данных.







Заключение




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

Мною была создана таблица перевозок грузов (в условных единицах) между отдельными регионами (названия регионов и данные в таблице выбраны произвольным образом). Затем поставленная задача была решена с помощью 3-х приложений – табличного процессора MSExcel, пакета автоматизации математических и инженерных расчетов MathCAD и среды программирования PascalABC.

Все полученные результаты представлены в документе MSWord.

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

В результате выполнения заданий по курсовой работе я расширила и углубила свои знания по применению приложений MSExcel, MSWord, MathCAD и PascalABC, что существенно поможет мне в дальнейшей учебе и работе по специальности.

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


  1. Борисенко, М. В. Компьютерные информационные технологии: учеб.-метод. пособие. – М-во образования Респ. Беларусь, Белорус. гос. ун-т трансп. – Гомель: БелГУТ, 2008. – 298 с.

  2. Гладков, В. П. Знаешь ли ты Паскаль? : учеб. пособие – Перм. гос. техн. ун-т. – Пермь : 2001. – 109 с.

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

  4. Лидовский, В. В. Теория информации: учеб. пособие. – М: Компания Спутник, 2004. – 111 с.

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

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

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

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

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

  10. Шушкевич, Г. Ч. Введение в Mathcad 2000: учеб. пособие. – Гродно: ГрГУ, 2001. – 140 с.

перейти в каталог файлов
связь с админом