📄 Реализация алгоритма Дейкстры на delphi.htm
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<!-- saved from url=(0028)http://plagiata.net.ru/?p=90 -->
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>Реализация алгоритма Дейкстры на Delphi</TITLE>
<META http-equiv=Content-Type content="text/html; charset=UTF-8">
<META content=index,follow name=robots>
<META content="MSHTML 6.00.2900.2180" name=GENERATOR><LINK media=screen
href="Реализация алгоритма Дейкстры на Delphi_files/style.css" type=text/css
rel=stylesheet><LINK title="Плагиата.нет RSS Feed"
href="http://plagiata.net.ru/?feed=rss2" type=application/rss+xml
rel=alternate><LINK href="http://plagiata.net.ru/xmlrpc.php" rel=pingback><LINK
href="http://plagiata.net.ru/wp-content/themes/vistalicious/images/favicon.ico"
type=image/x-ico rel=icon><LINK title=RSD
href="http://plagiata.net.ru/xmlrpc.php?rsd" type=application/rsd+xml
rel=EditURI><LINK href="http://plagiata.net.ru/wp-includes/wlwmanifest.xml"
type=application/wlwmanifest+xml rel=wlwmanifest>
<META content="WordPress 2.6.5" name=generator>
<SCRIPT src="Реализация алгоритма Дейкстры на Delphi_files/highlight.js"
type=text/javascript></SCRIPT>
<SCRIPT type=text/javascript>hljs.initHighlightingOnLoad();</SCRIPT>
<LINK href="Реализация алгоритма Дейкстры на Delphi_files/Default.css"
rel=stylesheet></HEAD>
<BODY>
<DIV id=wrapper>
<DIV id=header>
<DIV class=topright><!-- Edit welcome message here --><SPAN class=topright>Добро
пожаловать! При использовании материалов сайта активная ссылка на <A
href="http://plagiata.net.ru/">Plagiata.net.ru</A> обязательна </SPAN></DIV>
<H1 class=sitename><A href="http://plagiata.net.ru/">Плагиата.нет</A></H1>
<H2 class=sitedesc>Все для курсовых и дипломных работ по
программированию</H2></DIV><!-- Closes Header -->
<DIV id=nav>
<DIV class=search>
<FORM id=searchform action=http://plagiata.net.ru/ method=get>
<DIV><INPUT id=searchbox name=s> <INPUT id=searchbutton type=submit>
</DIV></FORM></DIV><!-- Closes Search -->
<UL>
<LI><A title=Главная
href="http://plagiata.net.ru/"><SPAN>Главная</SPAN></A></LI>
<LI><A title=Рефераты
href="http://plagiata.net.ru/?page_id=692"><SPAN>Рефераты</SPAN></A></LI>
<LI><A title=Алгоритмы
href="http://plagiata.net.ru/?page_id=710"><SPAN>Алгоритмы</SPAN></A></LI>
<LI><A title=Книги
href="http://plagiata.net.ru/?page_id=715"><SPAN>Книги</SPAN></A></LI>
<LI><A title=Контакты
href="http://plagiata.net.ru/?page_id=717"><SPAN>Контакты</SPAN></A></LI>
<LI><A title="Раскрутка сайтов"
href="http://plagiata.net.ru/?page_id=734"><SPAN>Раскрутка
сайтов</SPAN></A></LI></UL>
<DIV class=cleared></DIV></DIV><!-- Closes Nav -->
<DIV class=topcurvewhite></DIV>
<DIV id=main>
<SCRIPT type=text/javascript>
var begun_auto_colors = new Array();
hyper_utf8 = 1;
begun_utf8 = 1;
begunhyper_utf8 = 1;
var begun_auto_fonts_size = new Array();
var begun_auto_pad = 104049247; // идентификатор площадки
var begun_auto_limit = 4; // число объявлений выводимых на площадке
var begun_auto_width = 930; // ширина блока объявлений
begun_auto_colors[0] = '#0000CC'; // цвет ссылки объявлений
begun_auto_colors[1] = '#000000'; // цвет текста объявления
begun_auto_colors[2] = '#20B2AA'; // цвет домена объявления
begun_auto_colors[3] = '#FFFFFF'; // цвет фона блока объявлений
begun_auto_fonts_size[0] = '11pt'; // р-мер шрифта ссылки объявлений
begun_auto_fonts_size[1] = '10pt'; // р-мер шрифта текста объявления
begun_auto_fonts_size[2] = '10pt'; // р-мер шрифта домена объявления
begun_auto_fonts_size[3] = '8pt'; // р-мер шрифта заглушки
var begun_block_type = 'Horizontal'; // тип блока
</SCRIPT>
<SCRIPT src="" type=text/javascript></SCRIPT>
<DIV id=contentwrapper>
<DIV id=content>
<DIV class=post>
<H2 class=postTitle><A href="http://plagiata.net.ru/?p=90">Реализация алгоритма
Дейкстры на Delphi</A></H2>
<DIV class=postMeta>Рубрика: <A
title="Просмотреть все записи в Программирование"
href="http://plagiata.net.ru/?cat=3" rel=category>Программирование</A> 18 Сен
2008</DIV>
<DIV class=postContent>
<P style="TEXT-ALIGN: justify">Алгоритм Дейкстры на графах находит кратчайшее
расстояние от одной из вершин графа до всех остальных. Алгоритм работает только
для графов без рёбер отрицательного веса и широко применяется в программировании
и сетевых технологиях. Реализация алгоритма Дейкстры на Delphi</P><PRE><CODE class=delphi>
const n = 10; //количество вершин в графе
var
a:array[1..n,1..n] of longint;//матрица смежности
b:array[1..n]of boolean;//список просмотренных вершин
d:array[1..n] of longint;//кротчайшие расстояния
q, i, j, m, v: integer;
begin
//Ввод данных
q := StrToIntDef(Edit1.Text, 1); //начальная вершина
if (q < 1) or (q > n) then q := 1;
for i := 1 to n do
for j := 1 to n do
a[j, i] := StrToIntDef(StringGrid1.Cells[i - 1, j - 1], -1);
//Расчет
fillchar(b,sizeof(b),0);
fillchar(d,sizeof(d), 10000);
d[q] := 0;//расстояние до начальной вершины
for i:=1 to n do
begin
m := 1000;
for j := 1 to n do
if ( (d[j] <= m) and (not b[j]) ) then
begin
m:=d[j];
v:=j;
end;
b[v] := true;
for j := 1 to n do
if ((a[v,j] <> -1) and (not b[j]) and (d[v]+a[v,j]
d[j] := d[v] + a[v,j];
end;
//Вывод результата
ListBox1.Clear;
for i := 1 to n do
ListBox1.Items.Append(IntToStr(q)
+ ' -> ' + IntToStr(i) + ': '
+ IntToStr(d[i]));
end;
</CODE></PRE>
<P style="TEXT-ALIGN: justify">Граф задается матрицей смежности. Если вершины
графа не имеют общей дуги, то соответствующая ячейка матрицы смежности имеет
значение -1. Имеется возможность задать начальную вершину графа, от которой
будет происходить расчет путей минимальной длины до всех остальных вершин графа.
Результат выводится в следующем виде:</P>
<P><EM>n1 –> n2: M,</EM></P>
<P>где <EM>n1</EM> – номер начальной вершины;<BR><EM>n2</EM> – номер конечной
вершины;<BR><EM>M</EM> – минимальный путь между ними.</P>
<DIV class="wp-caption aligncenter" id=attachment_93 style="WIDTH: 310px"><A
href="http://plagiata.net.ru/wp-content/uploads/2008/09/dx_screenshot.jpg"><IMG
class="size-medium wp-image-93" title=dx_screenshot height=281
alt="Скриншот программы"
src="Реализация алгоритма Дейкстры на Delphi_files/dx_screenshot-300x281.jpg"
width=300></A>
<P class=wp-caption-text>Скриншот программы</P></DIV>
<P>Программа, реализующая алгоритм Дейкстры, с описанием работы<BR><A
href="http://depositfiles.com/ru/files/8047003" target=_blank>скачать</A>
[файлообменник <A href="http://depositfiles.com/signup.php?ref=Crazish"
target=_blank>Deposit Files</A>]<BR><A
href="http://letitbit.net/download/b1d17c54959/dx-bin.zip.html"
target=_blank>скачать</A> [файлообменник <A
href="http://letitbit.net/tmpl/partners.php?aff=kishmish"
target=_blank>LetitBit</A>]</P>
<P>Исходный код программы<BR><A href="http://depositfiles.com/ru/files/8047014"
target=_blank>скачать</A> [файлообменник <A
href="http://depositfiles.com/signup.php?ref=Crazish" target=_blank>Deposit
Files</A>]<BR><A
href="http://letitbit.net/download/11599e996228/dx-src.zip.html"
target=_blank>скачать</A> [файлообменник <A
href="http://letitbit.net/tmpl/partners.php?aff=kishmish"
target=_blank>LetitBit</A>]</P></DIV>
<DIV class=postTags>Теги: <A href="http://plagiata.net.ru/?tag=delphi"
rel=tag>Delphi</A>, <A
href="http://plagiata.net.ru/?tag=%d0%b0%d0%bb%d0%b3%d0%be%d1%80%d0%b8%d1%82%d0%bc-%d0%94%d0%b5%d0%b9%d0%ba%d1%81%d1%82%d1%80%d1%8b"
rel=tag>алгоритм Дейкстры</A>, <A
href="http://plagiata.net.ru/?tag=%d0%bf%d1%80%d0%be%d0%b3%d1%80%d0%b0%d0%bc%d0%bc%d0%b8%d1%80%d0%be%d0%b2%d0%b0%d0%bd%d0%b8%d0%b5"
rel=tag>программирование</A></DIV></DIV><!-- Closes Post -->
<DIV class=comment><!-- You can start editing here. -->
<H3 id=comments>Отзывов: 8 на «Реализация алгоритма Дейкстры на Delphi»</H3>
<OL class=commentlist>
<LI class=alt id=comment-86><CITE>ixi</CITE> пишет: <BR><SMALL
class=commentmetadata><A title=""
href="http://plagiata.net.ru/?p=90#comment-86">13 Окт 2008 в 14:31</A>
</SMALL>
<P>Пасиба за помощь, надеюсь оно работает_)</P></LI>
<LI id=comment-98><CITE>admin</CITE> пишет: <BR><SMALL
class=commentmetadata><A title=""
href="http://plagiata.net.ru/?p=90#comment-98">31 Окт 2008 в 23:36</A>
</SMALL>
<P>работает-работает</P></LI>
<LI class=alt id=comment-108><CITE>admin</CITE> пишет: <BR><SMALL
class=commentmetadata><A title=""
href="http://plagiata.net.ru/?p=90#comment-108">14 Ноя 2008 в 9:41</A>
</SMALL>
<P>Прошу сообщать здесь, если какая-нибудь из ссылок окажется
нерабочей.</P></LI>
<LI id=comment-121><CITE>Grampe</CITE> пишет: <BR><SMALL
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -