最短路径（校园导游）的简单算法

印象里的妖妖

印象里的妖妖

2016-02-19 19:59

最近很多朋友喜欢上设计，但是大家却不知道如何去做,别担心有图老师给你解答，史上最全最棒的详细解说让你一看就懂。
 

　　unit Unit1;

　　interface

　　uses
　　  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　  Dialogs, bsSkinCtrls, bsSkinData, BusinessSkinForm, bsCalendar, ExtCtrls,
　　  jpeg, Menus, bsSkinMenus, StdCtrls, bsSkinHint, bsMessages;

　　type
　　  TForm1 = class(TForm)
　　    bsBusinessSkinForm1: TbsBusinessSkinForm;
　　    bsSkinData1: TbsSkinData;
　　    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
　　    bsSkinButton1: TbsSkinButton;
　　    bsSkinMonthCalendar1: TbsSkinMonthCalendar;
　　    Shape1: TShape;
　　    bsSkinMainMenu1: TbsSkinMainMenu;
　　    erfg1: TMenuItem;
　　    asda1: TMenuItem;
　　    asdas1: TMenuItem;
　　    asd1: TMenuItem;
　　    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
　　    fgdfgdfgdf1: TMenuItem;
　　    bsSkinPopupMenu1: TbsSkinPopupMenu;
　　    N1111: TMenuItem;
　　    N22221: TMenuItem;
　　    N3331: TMenuItem;
　　    bsSkinStdLabel1: TbsSkinStdLabel;
　　    bsSkinHint1: TbsSkinHint;
　　    damen: TImage;
　　    xyf: TImage;
　　    st: TImage;
　　    ydc: TImage;
　　    lanqiou: TImage;
　　    gongyu: TImage;
　　    jxl: TImage;
　　    Shape2: TShape;
　　    Shape4: TShape;
　　    Shape5: TShape;
　　    Shape6: TShape;
　　    Shape7: TShape;
　　    Shape3: TShape;
　　    bsSkinStdLabel2: TbsSkinStdLabel;
　　    bsSkinStdLabel3: TbsSkinStdLabel;
　　    bsSkinStdLabel4: TbsSkinStdLabel;
　　    bsSkinStdLabel5: TbsSkinStdLabel;
　　    bsSkinStdLabel6: TbsSkinStdLabel;
　　    bsSkinStdLabel7: TbsSkinStdLabel;
　　    bsSkinStdLabel8: TbsSkinStdLabel;
　　    bsSkinStdLabel9: TbsSkinStdLabel;
　　    bsSkinStdLabel10: TbsSkinStdLabel;
　　    bsSkinStdLabel11: TbsSkinStdLabel;
　　    bsSkinStdLabel12: TbsSkinStdLabel;
　　    bsSkinStdLabel14: TbsSkinStdLabel;
　　    bsSkinStdLabel15: TbsSkinStdLabel;
　　    bsCompressedStoredSkin2: TbsCompressedStoredSkin;
　　    bsSkinData2: TbsSkinData;
　　    Shape8: TShape;
　　    bsSkinStdLabel16: TbsSkinStdLabel;
　　    bsSkinStdLabel17: TbsSkinStdLabel;
　　    bsSkinStdLabel13: TbsSkinStdLabel;
　　    Shape9: TShape;
　　    bsSkinStdLabel18: TbsSkinStdLabel;
　　    Shape10: TShape;
　　    Shape11: TShape;
　　    bsSkinStdLabel19: TbsSkinStdLabel;
　　    N1: TMenuItem;
　　    bsSkinMessage1: TbsSkinMessage;
　　    Shape12: TShape;
　　    bsSkinButton2: TbsSkinButton;
　　    procedure bsSkinButton1Click(Sender: TObject);
　　    procedure N1111Click(Sender: TObject);
　　    procedure damenClick(Sender: TObject);
　　    procedure jxlClick(Sender: TObject);
　　    procedure lanqiouClick(Sender: TObject);
　　    procedure ydcClick(Sender: TObject);
　　    procedure gongyuClick(Sender: TObject);
　　    procedure stClick(Sender: TObject);
　　    procedure xyfClick(Sender: TObject);
　　    procedure asdas1Click(Sender: TObject);
　　    procedure asda1Click(Sender: TObject);
　　    procedure N1Click(Sender: TObject);
　　    procedure bsSkinButton2Click(Sender: TObject);
　　  private
　　    { Private declarations }
　　  public
　　    { Public declarations }
　　  end;

　　var
　　  Form1: TForm1;

　　implementation

　　uses Unit2, Unit4, Unit5, Unit6;

　　{$R *.dfm}

　　procedure TForm1.bsSkinButton1Click(Sender: TObject);
　　begin
　　form6.show;
　　end;

　　procedure TForm1.N1111Click(Sender: TObject);
　　begin
　　form2.Show;

　　//form2.bsSkinButton1.Caption:=sender.Create;
　　end;

　　procedure TForm1.damenClick(Sender: TObject);
　　begin
　　form2.request:=1;
　　form5.request2:=1;
　　form2.Image1.Picture:=damen.Picture;
　　form2.note.Width:=800;
　　form2.note.Height:=60;
　　form2.note.Lines.Clear;
　　form2.note.Lines.Add('安徽师范大学大门,因为施工所以没建好');
　　form2.note.Lines.Add('目前的大门没有标志.');
　　form2.show;
　　end;

　　procedure TForm1.jxlClick(Sender: TObject);
　　begin

　　form2.request:=4;
　　form5.request2:=4;
　　form2.Image1.Picture:=jxl.Picture;
　　form2.note.Width:=800;
　　form2.note.Height:=60;
　　form2.note.Lines.Clear;
　　form2.note.Lines.Add('安徽师范大学南校区教学楼,现在共有四栋');
　　form2.note.Lines.Add('其管理由一泓物业管理有限公司来实现.每');
　　 form2.note.Lines.Add('个教室都配备了多媒体');
　　form2.show;
　　end;

　　procedure TForm1.lanqiouClick(Sender: TObject);
　　begin

　　form2.request:=2;
　　form5.request2:=2;
　　form2.Image1.Picture:=lanqiou.Picture;
　　form2.note.Width:=800;
　　form2.note.Height:=60;
　　form2.note.Lines.Clear;
　　form2.note.Lines.Add('大学南校区篮球场,是同学们上课');
　　form2.note.Lines.Add('和锻身体的主要场所,目前有很多的篮球架,');
　　form2.note.Lines.Add('基本满足同学们的需要.');
　　form2.show;
　　end;

　　procedure TForm1.ydcClick(Sender: TObject);
　　begin

　　form2.request:=3;
　　form5.request2:=3;
　　form2.Image1.Picture:=ydc.Picture;
　　form2.note.Width:=800;
　　form2.note.Height:=60;
　　form2.note.Lines.Clear;
　　form2.note.Lines.Add('安徽师范大学南校区运动场,它位于篮球场的');
　　form2.note.Lines.Add('边上.由足球场,网球场和排球场构成.目前仍');
　　form2.note.Lines.Add('处于施工阶段.');

　　form2.show;
　　end;

　　procedure TForm1.gongyuClick(Sender: TObject);
　　begin

　　form2.request:=5;
　　form5.request2:=5;
　　form2.Image1.Picture:=gongyu.Picture;
　　form2.note.Width:=800;
　　form2.note.Lines.Clear;
　　form2.note.Lines.Add('大学南校区学生公寓,大概有20多栋,');
　　form2.note.Lines.Add('每栋楼四层,每层28个房间,没间房四个人住,其');
　　form2.note.Lines.Add('管理也是由其他公司来实现.');

　　
　　form2.show;
　　end;

　　procedure TForm1.stClick(Sender: TObject);
　　begin

　　form2.request:=6;
　　form5.request2:=6;
　　form2.Image1.Picture:=st.Picture;
　　form2.note.Width:=800;
　　form2.note.Lines.Clear;
　　form2.note.Lines.Add('大学南校区食堂,公司层楼.');
　　form2.note.Lines.Add('四楼是超市,一至三层是食堂.');
　　form2.show;
　　end;

（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）

　　procedure TForm1.xyfClick(Sender: TObject);
　　begin

　　form2.request:=7;
　　form5.request2:=7;
　　form2.Image1.Picture:=xyf.Picture;
　　form2.note.Width:=800;
　　form2.note.Lines.Clear;
　　form2.note.Lines.Add('大学南校区洗浴中心,是同');
　　form2.note.Lines.Add('学们洗衣洗澡理发的地方.');

　　form2.show;
　　end;

　　procedure TForm1.asdas1Click(Sender: TObject);
　　begin
　　close;
　　end;

　　procedure TForm1.asda1Click(Sender: TObject);
　　begin
　　showmessage('点击有关图片就行了!')
　　end;

　　procedure TForm1.N1Click(Sender: TObject);
　　begin
　　form4.show;
　　end;

　　procedure TForm1.bsSkinButton2Click(Sender: TObject);
　　begin
　　form4.Show;
　　end;

（本文来源于图老师网站，更多请访问http://m.tulaoshi.com/bianchengyuyan/）

　　end.

　　unit Unit2;

　　interface

　　uses
　　  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　  Dialogs, bsSkinCtrls, ExtCtrls, bsSkinData, BusinessSkinForm, StdCtrls;

　　type
　　  TForm2 = class(TForm)
　　    bsBusinessSkinForm1: TbsBusinessSkinForm;
　　    bsSkinData1: TbsSkinData;
　　    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
　　    Image1: TImage;
　　    bsSkinTextLabel1: TbsSkinTextLabel;
　　    bsSkinButton1: TbsSkinButton;
　　    bsSkinTextLabel2: TbsSkinTextLabel;
　　    bsSkinButton2: TbsSkinButton;
　　    bsSkinTextLabel3: TbsSkinTextLabel;
　　    note: TbsSkinTextLabel;
　　    bsCompressedStoredSkin2: TbsCompressedStoredSkin;
　　    bsSkinData2: TbsSkinData;
　　    procedure FormShow(Sender: TObject);
　　    procedure FormCreate(Sender: TObject);
　　    procedure bsSkinButton2Click(Sender: TObject);
　　    procedure bsSkinButton1Click(Sender: TObject);
　　  private
　　    { Private declarations }
　　  public
　　    request:integer;{
　　     Public declarations }
　　  end;
　　mapinfo=array[1..7,1..7]of real;
　　roadinfo=array[1..7,1..8]of integer;
　　flagarray=array[1..7]of bool;
　　distinfo=array[1..7]of real;
　　var
　　Form2: TForm2;
　　request:integer;
　　map:mapinfo;
　　road:roadinfo;
　　flag:flagarray;
　　dist:distinfo;
　　implementation

　　uses Unit3, Unit5;

　　{$R *.dfm}

　　procedure TForm2.FormShow(Sender: TObject);
　　var
　　v,i,j,w,k,l:integer;
　　min: real;
　　begin
　　//form3.Show;
　　min:=100;
　　for i:=1 to 7 do
　　begin
　　flag[i]:=false;
　　if map[request,i]100 then
　　begin
　　road[i,8]:=1;
　　road[i,1]:=i;
　　dist[i]:=map[request,i];
　　end//if
　　else
　　begin
　　road[i,8]:=0;
　　dist[i]:=100;
　　end;//else
　　end;//for i
　　flag[request]:=true;
　　for j:=1 to 7 do
　　begin
　　for w:=1 to 7 do
　　begin
　　if ((flag[w]=false) and (dist[w]min)) then
　　begin
　　min:=dist[w];
　　v:=w;
　　end;//if dist[w]min
　　end;//for w
　　min:=100;
　　if dist[v]=100 then
　　showmessage('dist[v]=100!!')
　　else
　　begin//////
　　flag[v]:=true;
　　for k:=1 to 7 do
　　begin
　　if ((flag[k]=false) and(dist[v]+map[v][k]dist[k]))then
　　begin
　　dist[k]:=dist[v]+map[v][k];
　　road[k,8]:=road[k,8]+1;
　　for l:=1 to road[v,8] do
　　road[k,l]:=road[v,l];
　　road[k,road[k,8]+1]:=v;

　　end;//if ((flag[k]=false) and(dist[v]+map[v][k]dist[k])then
　　end;//for k
　　end;//////esle

　　end;//for j:=1 to 7 do  over
　　//for i:=1 to 7 do

　　//listbox1.Items.Add(floattostr(dist[i]));

　　end;//procedure over

　　procedure TForm2.FormCreate(Sender: TObject);
　　begin
　　//request:=4;
　　map[1,1]:=0;
　　map[1,2]:=2.5;
　　map[1,3]:=100;
　　map[1,4]:=8;
　　map[1,5]:=4;
　　map[1,6]:=100;
　　map[1,7]:=100;
　　//
　　map[2,1]:=2.5;
　　map[2,2]:=0;
　　map[2,3]:=1.5;
　　map[2,4]:=6;
　　map[2,5]:=2;
　　map[2,6]:=100;
　　map[2,7]:=100;
　　//
　　map[3,1]:=100;
　　map[3,2]:=1.5;
　　map[3,3]:=0;
　　map[3,4]:=5;
　　map[3,5]:=100;
　　map[3,6]:=100;
　　map[3,7]:=100;
　　//
　　map[4,1]:=8;
　　map[4,2]:=8;
　　map[4,3]:=5;
　　map[4,4]:=0;
　　map[4,5]:=4.2;
　　map[4,6]:=100;
　　map[4,7]:=100;
　　//
　　map[5,1]:=4;
　　map[5,2]:=2;
　　map[5,3]:=100;
　　map[5,4]:=4.2;
　　map[5,5]:=0;
　　map[5,6]:=1.5;
　　map[5,7]:=2;
　　//
　　map[6,1]:=100;
　　map[6,2]:=100;
　　map[6,3]:=100;
　　map[6,4]:=100;
　　map[6,5]:=1.5;
　　map[6,6]:=0;
　　map[6,7]:=1;
　　//
　　map[7,1]:=100;
　　map[7,2]:=100;
　　map[7,3]:=100;
　　map[7,4]:=100;
　　map[7,5]:=2;
　　map[7,6]:=1;
　　map[7,7]:=0;
　　end;

　　
　　procedure TForm2.bsSkinButton2Click(Sender: TObject);
　　//var
　　//i:integer;
　　begin

　　form5.Show;
　　end;

　　
　　procedure TForm2.bsSkinButton1Click(Sender: TObject);
　　begin
　　form3.l1.Caption:=floattostr(dist[1])+'m   ';
　　form3.l2.Caption:=floattostr(dist[2])+'m   ';
　　form3.l3.Caption:=floattostr(dist[3])+'m   ';

　　form3.l5.Caption:=floattostr(dist[4])+'m   ';
　　form3.l6.Caption:=floattostr(dist[5])+'m   ';
　　form3.l7.Caption:=floattostr(dist[6])+'m   ';
　　form3.l8.Caption:=floattostr(dist[7])+'m   ';
　　form3.Show;
　　end;

　　end.

　　
　　unit Unit3;

　　interface

　　uses
　　  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　  Dialogs, bsSkinData, BusinessSkinForm, StdCtrls, bsSkinCtrls, jpeg,
　　  ExtCtrls;

　　type
　　  TForm3 = class(TForm)
　　    bsBusinessSkinForm1: TbsBusinessSkinForm;
　　    bsSkinData1: TbsSkinData;
　　    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
　　    bsSkinStdLabel1: TbsSkinStdLabel;
　　    bsSkinStdLabel2: TbsSkinStdLabel;
　　    bsSkinStdLabel3: TbsSkinStdLabel;
　　    bsSkinStdLabel4: TbsSkinStdLabel;
　　    bsSkinStdLabel5: TbsSkinStdLabel;
　　    bsSkinStdLabel6: TbsSkinStdLabel;
　　    bsSkinStdLabel7: TbsSkinStdLabel;
　　    bsSkinStdLabel8: TbsSkinStdLabel;
　　    damen: TImage;
　　    lanqiou: TImage;
　　    ydc: TImage;
　　    jxl: TImage;
　　    gongyu: TImage;
　　    st: TImage;
　　    xyf: TImage;
　　    l1: TbsSkinStdLabel;
　　    l2: TbsSkinStdLabel;
　　    l3: TbsSkinStdLabel;
　　    l5: TbsSkinStdLabel;
　　    l6: TbsSkinStdLabel;
　　    l7: TbsSkinStdLabel;
　　    l8: TbsSkinStdLabel;
　　  private
　　    { Private declarations }
　　  public
　　    { Public declarations }
　　  end;

　　var
　　  Form3: TForm3;

　　implementation

　　{$R *.dfm}

　　end.
　　unit Unit5;

　　interface

　　uses
　　  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
　　  Dialogs, bsSkinData, BusinessSkinForm, StdCtrls, bsSkinCtrls, CheckLst;

　　type
　　  TForm5 = class(TForm)
　　    bsSkinStdLabel1: TbsSkinStdLabel;
　　    bsBusinessSkinForm1: TbsBusinessSkinForm;
　　    bsSkinData1: TbsSkinData;
　　    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
　　    rg: TbsSkinRadioGroup;
　　    word: TbsSkinLabel;
　　    lab: TCheckListBox;
　　    procedure rgChecked(Sender: TObject);
　　    procedure rgClick(Sender: TObject);
　　    procedure FormCreate(Sender: TObject);
　　    procedure FormShow(Sender: TObject);
　　  private
　　    { Private declarations }
　　  public
　　  request2:integer;
　　    { Public declarations }
　　  end;
　　mapinfo=array[1..7,1..7]of real;
　　roadinfo=array[1..7,1..8]of integer;
　　flagarray=array[1..7]of bool;
　　distinfo=array[1..7]of real;

　　var
　　Form5: TForm5;
　　request:integer;
　　map:mapinfo;
　　road:roadinfo;
　　flag:flagarray;
　　dist:distinfo;
　　implementation

　　uses Unit2;

　　{$R *.dfm}

　　procedure TForm5.rgChecked(Sender: TObject);
　　var
　　m,n:integer;
　　v,i,j,w,k,l:integer;
　　min: real;
　　begin
　　for m:=0 to rg.ComponentCount-1 do
　　if (rg.Controls[m]as tbsSkinCheckRadioBox).Checked then
　　n:=m;

　　//form3.Show;

　　

　　

　　form5.lab.Items.clear;

　　for i:=1 to road[n+1,8] do
　　begin
　　//大门运动场 教学大楼 公寓 洗浴中心
　　case road[n+1,i] of
　　1:form5.lab.Items.Add('南校区大门 ') ;
　　2:form5.lab.Items.Add('篮球场 ') ;
　　3:form5.lab.Items.Add('运动场 ') ;
　　4:form5.lab.Items.Add('教学大楼   ') ;
　　5:form5.lab.Items.Add('公寓 ') ;
　　6:form5.lab.Items.Add('食堂 ') ;
　　7:form5.lab.Items.Add('洗浴中心 ') ;
　　end;

　　
　　end;//for i

　　//listbox1.Items.Add(floattostr(dist[i]));

　　end;//procedure over

　　procedure TForm5.rgClick(Sender: TObject);
　　var
　　m,n:integer;
　　v,i,j,w,k,l:integer;
　　min: real;
　　begin
　　for m:=0 to rg.ComponentCount-1 do
　　if (rg.Controls[m]as tbsSkinCheckRadioBox).Checked then
　　begin
　　n:=m;
　　//form5.Caption:=inttostr(n);

　　
　　end;
　　//form3.Show;

　　

　　

　　form5.lab.Items.clear;

　　for i:=1 to 7 do
　　begin
　　//师大南校区大门安师大南校区大门运动场 教学大楼 公寓 洗浴中心
　　case road[n+1,i] of
　　1:form5.lab.Items.Add('师大南校区大门 ') ;
　　2:form5.lab.Items.Add('篮球场 ') ;
　　3:form5.lab.Items.Add('运动场 ') ;
　　4:form5.lab.Items.Add('教学大楼   ') ;
　　5:form5.lab.Items.Add('公寓 ') ;
　　6:form5.lab.Items.Add('食堂 ') ;
　　7:form5.lab.Items.Add('洗浴中心 ') ;
　　end;

　　

　　end;//for i
　　//lab.Items.IndexOf()
　　case n+1 of
　　1:
　　begin
　　if lab.Items.IndexOf('师大南校区大门 ')=-1 then
　　form5.lab.Items.Add('安师大南校区大门 ') ;
　　end;
　　2:
　　begin
　　if lab.Items.IndexOf('篮球场 ')=-1 then
　　form5.lab.Items.Add('篮球场 ') ;
　　end;
　　3:
　　begin
　　if lab.Items.IndexOf('运动场 ')=-1 then

　　form5.lab.Items.Add('运动场 ') ;
　　end;
　　4:
　　begin
　　if lab.Items.IndexOf('教学大楼   ')=-1 then
　　form5.lab.Items.Add('教学大楼   ') ;
　　end;
　　5:
　　begin
　　if lab.Items.IndexOf('公寓 ')=-1 then
　　form5.lab.Items.Add('公寓 ') ;
　　end;
　　6:
　　begin
　　if lab.Items.IndexOf('食堂 ')=-1 then
　　form5.lab.Items.Add('食堂 ') ;
　　end;
　　7:
　　begin
　　if lab.Items.IndexOf('洗浴中心 ')=-1 then
　　form5.lab.Items.Add('洗浴中心 ') ;
　　end;
　　end;

　　
　　//listbox1.Items.Add(floattostr(dist[i]));

　　end;//procedure over

　　
　　procedure TForm5.FormCreate(Sender: TObject);
　　begin
　　//request:=form2.request;

　　map[1,1]:=0;
　　map[1,2]:=2.5;
　　map[1,3]:=100;
　　map[1,4]:=8;
　　map[1,5]:=4;
　　map[1,6]:=100;
　　map[1,7]:=100;
　　//
　　map[2,1]:=2.5;
　　map[2,2]:=0;
　　map[2,3]:=1.5;
　　map[2,4]:=6;
　　map[2,5]:=2;
　　map[2,6]:=100;
　　map[2,7]:=100;
　　//
　　map[3,1]:=100;
　　map[3,2]:=1.5;
　　map[3,3]:=0;
　　map[3,4]:=5;
　　map[3,5]:=100;
　　map[3,6]:=100;
　　map[3,7]:=100;
　　//
　　map[4,1]:=8;
　　map[4,2]:=8;
　　map[4,3]:=5;
　　map[4,4]:=0;
　　map[4,5]:=4.2;
　　map[4,6]:=100;
　　map[4,7]:=100;
　　//
　　map[5,1]:=4;
　　map[5,2]:=2;
　　map[5,3]:=100;
　　map[5,4]:=4.2;
　　map[5,5]:=0;
　　map[5,6]:=1.5;
　　map[5,7]:=2;
　　//
　　map[6,1]:=100;
　　map[6,2]:=100;
　　map[6,3]:=100;
　　map[6,4]:=100;
　　map[6,5]:=1.5;
　　map[6,6]:=0;
　　map[6,7]:=1;
　　//
　　map[7,1]:=100;
　　map[7,2]:=100;
　　map[7,3]:=100;
　　map[7,4]:=100;
　　map[7,5]:=2;
　　map[7,6]:=1;
　　map[7,7]:=0;
　　end;

　　procedure TForm5.FormShow(Sender: TObject);
　　var
　　m,n:integer;
　　v,i,j,w,k,l:integer;
　　min: real;
　　begin

　　
　　//form3.Show;
　　min:=100;
　　for i:=1 to 7 do
　　begin
　　flag[i]:=false;
　　if map[request2,i]100 then
　　begin
　　road[i,8]:=1;
　　road[i,1]:=i;
　　dist[i]:=map[request2,i];
　　end//if
　　else
　　begin
　　road[i,8]:=0;
　　dist[i]:=100;
　　end;//else
　　end;//for i
　　flag[request2]:=true;
　　for j:=1 to 7 do
　　begin
　　for w:=1 to 7 do
　　begin
　　if ((flag[w]=false) and (dist[w]min)) then
　　begin
　　min:=dist[w];
　　v:=w;
　　end;//if dist[w]min
　　end;//for w
　　min:=100;
　　if dist[v]=100 then
　　showmessage('dist[v]=100!!')
　　else
　　begin//////
　　flag[v]:=true;
　　for k:=1 to 7 do
　　begin
　　if ((flag[k]=false) and(dist[v]+map[v][k]dist[k]))then
　　begin
　　dist[k]:=dist[v]+map[v][k];
　　road[k,8]:=road[k,8]+1;
　　for l:=1 to road[v,8] do
　　road[k,l]:=road[v,l];
　　road[k,road[k,8]+1]:=w;

　　end;//if ((flag[k]=false) and(dist[v]+map[v][k]dist[k])then
　　end;//for k
　　end;//////esle

　　end;//for j:=1 to 7 do  over
　　end;
　　end

展开更多 （50%）
分享

猜你喜欢

最短路径（校园导游）的简单算法

编程语言 网络编程
最短路径（校园导游）的简单算法

单源点最短路径Dijkstra算法的JAVA实现

编程语言 网络编程
单源点最短路径Dijkstra算法的JAVA实现

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

JAVA简单分组的算法实现

编程语言 网络编程
JAVA简单分组的算法实现

校园MM几个简单的修身妙招

健康常识
校园MM几个简单的修身妙招

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

Flash中简单跟踪弹的算法

flash教程
Flash中简单跟踪弹的算法

老人要注意“情绪短路”

老人 老年人
老人要注意“情绪短路”

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

Excel2010不能输入斜杠怎么办

Excel2010不能输入斜杠怎么办

C++类静态数据成员与类静态成员函数

C++类静态数据成员与类静态成员函数
下拉加载更多内容 ↓