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

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

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

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

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

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

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

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

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

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

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

Задание 1.

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

Процедура Name

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

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

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

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

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

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

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

Функция Diag

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

Program perevozki;

{uses crt; }

const n=9;

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

Var i,j: byte;

S: real;

A: mas;

f1,f2: text;

sum_po_strokam: array [1. n] of real;

sum_po_stolscam: array [1. n] of real;

min: real;

jmin: byte;

imin: byte;

Reg: array [1. n] of string;

Procedure name;

begin

Writeln ('введите название первого региона ');

read (Reg [1]);

Writeln ('введите название второго региона ');

read (Reg [2]);

Writeln ('введите название третьего региона ');

read (Reg [3]);

Writeln ('введите название четвертого региона ');

read (Reg [4]);

Writeln ('введите название пятого региона ');

read (Reg [5]);

Writeln ('введите название шестого региона ');

read (Reg [6]);

Writeln ('введите название седьмого региона ');

read (Reg [7]);

Writeln ('введите название восьмогоав региона ');

read (Reg [8]);

Writeln ('введите название девятого региона ');

read (Reg [9]);

end;

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

Procedure vvod (n: byte; var A: mas);

Var i,j: byte;

begin

reset (f1);

for i: =1 to n do

begin

for j: =1 to n do

read (f1,A [i,j]);

readln (f1);

end;

close (f1);

end;

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

Procedure Schit (n: byte; A: Mas);

var i,j: byte;

begin

write (' ');

for i: =1 to n do

write (reg [i]: 12);

writeln;

writeln;

write (' * * * * * * * * * * * * * * * * * * * * *');

writeln;

for i: =1 to n do

begin

write (reg [i]: 12,'! ');

for j: =1 to n do

write (A [i,j]: 10:

1);

write ('! ');

writeln;

writeln ();

end;

write (' * * * * * * * * * * * * * * * * * * * * *');

writeln ();

end;

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

Function Diag (n: byte; A: Mas): real;

var i,j: byte; s: real;

begin

for i: =1 to n do

s: =s+A [i, i];

Diag: =s;

end;

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

Procedure Sum_strok (n: byte; A: Mas);

var i,j: byte; s: real;

begin

for i: =1 to n do

sum_po_strokam [i]: =0;

for i: =1 to n do

for j: =1 to n do

sum_po_strokam [i]: =sum_po_strokam [i] +A [i,j];

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

for i: =1 to n do

writeln (sum_po_strokam [i]: 19:

1);

end;

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

Procedure Sum_stolbzov (n: byte; A: Mas);

var i,j: byte; s: real;

begin

for j: =1 to n do

sum_po_strokam [j]: =0;

for j: =1 to n do

for i: =1 to n do

sum_po_strokam [j]: =sum_po_strokam [j] +A [i,j];

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

for j: =1 to n do

writeln (sum_po_strokam [j]: 19:

1);

end;

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

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

var i,j,k,jmin, imin: byte;

min: real;

begin

min: =A [1,2];

imin: =1;

jmin: =2;

for i: =1 to n do

for j: =1 to n do

if (i<>j) and (A [i,j] <min) then

begin

min: =A [i,j];

imin: =i;

jmin: =j;

k: =jmin;

end;

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

end;

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

Procedure Umengruz (n: byte; A: mas; jmin: byte);

var i,k,j: byte;

begin

for i: =1 to n do

A [i,k]: = (A [i,k]) *0.89;

Writeln ('---------------------------------------------------------------------------------------------');

writeln ('Новый груз прибытия по региону ',Reg [k],'будет составлять');

writeln;

Schit (n,A);

end;

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

begin

writeln (' к у р с о в а я р а б о т а в а р и а н т - 1 2 ');

Writeln;

Writeln ('Индивидуальное задание: ');

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

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

Writeln;

assign (f1,'E: \УЧЁБА\Информатика\курсовая. txt');

assign (f2,'D: \учёба\универ\2 КУРС\инф\курсач мой) \курсовая2. txt');

name;

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

vvod (n,A);

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

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

writeln;

Schit (n,A);

Writeln ('итогов по регионам вывоза грузов');

Sum_strok (n,A);

Writeln ('итогов по регионам прибытия грузов');

Sum_stolbzov (n,A);

writeln ('сумма количества грузов в местном сообщении по всем регионам ',diag (n,A),' тонн');

writeln;

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

Min_perevozka (n,A);

Umengruz (n,A,jmin);

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

end.

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

Сумма отправленных грузов

Сумма прибывших грузов

Сумма количества грузов, перевозимых в местном сообщении по всем регионам

Находим регион с минимальным количеством отправленного груза

Заключение

В данной курсовой работе мы успешно использовали язык программирования Pascal для решения поставленной задачи. А также решили данную задачу средствами MS Excel и MathCAD. Был составлен алгоритм решения поставленной задачи с использованием текстового редактора MS Word.

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

Для решения поставленной задачи наиболее подходящим является приложение MS Excel. Это приложение наиболее простое в использовании и имеет широкий круг возможностей.

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

1. Гораев, О. П Информатика (Язык программирования Паскаль, пакеты MathCad, Excel) /. О.П. Гораев, А.П. Кейзерю. - Гомель: БелГУТ, 2003 - 501 с.

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

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

4. Кейзер, А.П. Информатика (PASCAL, MATHCAD, EXCEL, численные методы): пособие к расчетно-графической работе. / А.П. Кейзер, Л.Н. Гагина. - Гомель: БелГУТ, 2005 - 29 с.

5. Кейзер, А.П. Информатика. Программирование на языке Паскаль: практикум по лабораторным работам. Ч.1/ А.П. Кейзер, Ю.А. Пшеничнов. - Гомель: БелГУТ; Каф. "Инфорамационные технологии"; 2001 - 44 с.

6. Кейзер, А.П. Информатика (Решение задач контрольной работы средствами математического пакета MATHCAD, и табличного процессора EXCEL) / А.П. Кейзер, С. Г Хапамов. - Гомель: БелГУТ, 2003 - 12 с

7. Матрос Д.Ш., Полев Д.М., Мельникова Н.К. Управление качеством образования на основе новых информационных технологий и образовательного мониторинга. Издание 2-е, исправленное и дополненное. Педагогическое общество России, 2001. - 128 с.

8. Мейер К., Дэвис С. Живая организация/Кристофер Мейер, Стэн Дэвис; пер. с англ. - М.: Издательство "Добрая книга", 2007 - 368 с.

9. Комплексная информатизация образования/ави. - сост. О.В. Крючкова. - Мн.: Красико-Принт, 2006 - 176 с.

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