Применение экономико-математических методов при строительстве дорог и трубопроводов

min := d[j];

m := j;

end;

v[m] := true; { вершина m использована }

for j := 1 to n do { для всех вершин }

if not v[j] and { Если вершина не использована и }

(d[j] > d[m]+a[m, j]) then { через m можно дойти до j быстрее }

begin

d[j] := d[m] + a[m, j]; { уменьшаем расстояние от истока }

p[j] := m; { изменяем предка j }

end;

end;

end;

{write_p

ath: пишет кратчайший путь из s в x }

procedure write_path(s, x: integer);

begin

if x <> s then

write_path(s, p[x]);

write(x, ' ');

end;

begin

clrscr;

Write('Введите начальную вершину: '); ReadLn(start);

Write('Введите конечную вершину: '); ReadLn(finish);

init;

writeln;

writeln('Кратчайшие пути из одного истока в сетях с неотрицательными весами ребер');

writeln('Алгоритм Дейкстры');

print;

write('Кратчайший путь из ', start, '-ой вершины в ', finish, '-ую вершину: ');

dijkstra(start);

write_path(start, finish);

WriteLn;

WriteLn('Длина пути = ', d[finish]);

WriteLn;

WriteLn;

WriteLn('Для выхода нажмите любую клавишу');

ReadKey;

end.

ЛИТЕРАТУРА

1. Кузнецов А.В., Сакович В.А., Холод Н.И. ”Высшая математика. Математическое программирование ”, Минск, Вышейшая школа, 2001г.

2. Красс М.С., Чупрынов Б.П. ”Основы математики и ее приложения в экономическом образовании”, Издательство “Дело”, Москва 2001г.

3. В.И. Ермаков “Общий курс высшей математики для экономистов”, Москва, Инфра-М, 2000г.

4. Белов Теория Графов, Москва, «Наука»,1968.

5. Новые педагогические и информационные технологии Е.С.Полат, Москва, «Akademia» 1999 г.

6. Кузнецов О.П., Адельсон-Вельский Г.М. Дискретная математика для инженера. – М.: Энергоатомиздат, 1988.

7. Кук Д., Бейз Г. Компьютерная математика. – М.: Наука, 1990.

8. Нефедов В.Н., Осипова В.А. Курс дискретной математики. – М.: Издательство МАИ, 1992.

9. Оре О. Теория графов. – М.: Наука, 1980.

10. Исмагилов Р.С., Калинкин А.В. Матеpиалы к пpактическим занятиям по куpсу: Дискpетная математика по теме: Алгоpитмы на гpафах. - М.: МГТУ, 1995

11. Смольяков Э.Р. Введение в теоpию гpафов. М.: МГТУ, 1992

12. Hечепуpенко М.И. Алгоpитмы и пpогpаммы pешения задач на гpафах и сетях. - Hовосибиpск: Hаука, 1990

13. Романовский И.В. Алгоpитмы pешения экстpемальных задач. - М.: Hаука, 1977

14. Писсанецки С. Технология разреженных матриц. - М.: Мир, 1988

15. Бентли Д. Жемчужины творчества программистов: Пер. с англ. — М.: Радио и связь, 1990. — 224 c.: ил.

16. Фундаментальные алгоритмы на C++. Алгоритмы на графах. Роберт Седжвик. СПб: ООО “ДиаСофтЮП”, 2002 год.

17. Фундаментальные алгоритмы на C++. Анализ. Структуры данных. Сортировка. Поиск. Роберт Седжвик. СПб: ООО “ДиаСофтЮП”, 2002 год.

 Скачать реферат