WEB开发网
开发学院软件开发Delphi 最短路径(校园导游)的简单算法 阅读

最短路径(校园导游)的简单算法

 2006-02-04 14:03:27 来源:WEB开发网   
核心提示: unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, bsSkinCtrls, bsSkinData, BusinessSkinForm, bsCal
 

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;

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;

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

Tags:路径 校园 导游

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接