Решение задач на тему: Постановка задачи. Метод решения. Язык программирования. Описание алгоритма

Введение

Сетевой график - необходимый элемент сложного производства, состоящего из нескольких связанных и зависящих друг от друга этапов. Выявление критического пути и временных резервов производства - основная задача, решаемая построением сетевого графика. Такие задачи могут быть представлены в виде графа и в виде отображающей его таблицы. Для нахождения критического пути (последовательности этапов работы, определяющих длительность всего проекта и не имеющих резерва по времени) применяются вычислительные методы. Одним из таких методов является табличный метод и применяется для данных, представленных в виде таблицы.

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

Оглавление

- Введение 2

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

- Метод решения

- Язык программирования

- Описание алгоритма

- Контрольный пример

- Описание интерфейса с пользователем

- Заключение 20

- Литература 21

- Листинг программы

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

For i = 2 То n + 1

For j = 2 То n + 1

For j = 2 То scount

'Заполнение раннего начала и конца

For i = 2 То scount

For j = 2 То scount

For j = 2 То scount

For i = 2 То scount

'Определение длительности проекта

For i = 2 То scount

'Определение конечных этапов

For i = 2 То n + 1

For j = 2 То n + 1

For j = 2 То scount

'Заполнение позднего начала и конца

For i = scount То 2 Step -1

For j = scount То 2 Step -1

For j = scount То 2 Step -1

For i = 2 То scount

'Выявление критических этапов

For i = 2 То scount

Range("А" + Trim(Str(i)) + ":Н" + Trim(Str(i))).Select

Sheets("Rez").Cells(scount + 2, 1).Value = "Критический путь:"

'Построение критического пути

For i = 2 То scount

For i = remdl То scount

For i = 2 То snum - 1

For j = i + 1 То snum

For i = scount То 2 Step -1

For i = remdl То 2 Step -1

с = h - b

If с = 0 Then с = с + 26

mstroka2 = Mid(mst1, с, 1)