Расчёт числа расформированных составов на сортировочной горке в течение трёх временных промежутков. Расчёт объёмов грузовых потоков средствами Excel

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

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

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

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

КУРСОВАЯ РАБОТА

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

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

Выполнила:

студентка гр. УР-21

Шостко М.М.

Гомель, 2009

ОГЛАВЛЕНИЕ

ОГЛАВЛЕНИЕ. 2

ВВЕДЕНИЕ. 3

РАЗДЕЛ 1. 4

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

1.2.        Алгоритм.. 4

1.3.        Входные данные. 7

1.4.        Распечатка. 7

1.5.        Результат. 12

Раздел 2. 14

Раздел 3. 16

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

Приложение. 16

ВВЕДЕНИЕ

РАЗДЕЛ 1

Расчёт числа расформированных составов на сортировочной горке в течение трёх временных промежутков

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

Число расформированных составов  на сортировочной горке в течение трёх временных промежутков в сутки(t1, t2, t3)

Число расформированных составов  на сортировочной горке в течение трёх временных промежутков в сутки(t4, t5 t6)

1)  Сортировочная горка

1.  Микашевичи

2.  Гомель чётный

3.  Калинковичи

2)  Временные промежутки:

3)  Число составов:

·  Микашевичи- 9, 6, 5, 1, 2, 3.

·  Гомель чётный-  2, 3, 7, 4, 5, 6.

·  Калинковичи- 8, 4, 9, 7, 8, 9.

4)  Необходимо определить:

a)  Посчитать итоговые значения

b)  Определить промежуток времени, в пределах которого имеет место максимальное и минимальное число расформированных составов.

c)  Вывести наименование сортировочной горки и промежуток времени , если число расформированных составов в ночное время превышает это число ив дневное.

1.2.  Алгоритм

1.3.  Входные данные

Число расформированных составов  на сортировочной горке в течение трёх временных промежутков в сутки(t1, t2, t3)

Число расформированных составов  на сортировочной горке в течение трёх временных промежутков в сутки(t4, t5 t6)

1.4.  Распечатка

Program Lab7;

TYPE  stroka=array [1..10] of string;

Type  massiv=array [1..4,1..4] of integer;

Var   A,B:massiv;

      i,j,m,n,maxsb:integer;

      jminA,jmaxA,jminB,jmaxB:integer;

      infp,outfp,inst:text;

      stan:stroka;

      minA,maxA,minB,maxB:integer;

Procedure Vvod(x,y:integer; Var mas:massiv);

Var i,j:integer;

begin

   for i:=1 to x do

     begin