oints [ir]). y, point (points [i]). x, point (points [i]). y, 10,20);> StringGrid1-> Cells [i +1] [ir +1]=«1»;=false;
}
}
}=f;
}
}
/ /-__fastcall TForm1: BitBtn1Click (TObject * Sender)
{= 0;
}
/ /-__fastcall TForm1: BitBtn2Click (TObject * Sender)
{= 1;
}
/ /-__fastcall TForm1: BitBtn3Click (TObject * Sender)
{
. clear ();. clear ();=0; -> Canvas-> FillRect (Image1-> Canvas-> ClipRect);> StringGrid1-> ColCount=1 ;> StringGrid1-> RowCount=1;> Memo1-> Lines-> Clear ();
}
/ / -
__fastcall TForm1: StringGrid1EndDock (TObject * Sender, * Target, int X, int Y)
{k=0;
}
/ /-__fastcall TForm1: StringGrid1SetEditText (TObject * Sender, int ACol, ARow, const AnsiString Value)
{(! StringGrid1-> EditorMode) {> Image1-> Canvas-> Pen-> Color=RGB (208, 20, 201); (this-> Image1-> Canvas, point (points [ARow - 1]). x, point (points [ARow - 1]). y, point (points [ACol - 1]). x, point (points [ACol - 1]). y, 10,20);
}
} el {v;
};
/ /-__fastcall TForm1: Button2Click (TObject * Sender)
{n=this-> StringGrid1-> ColCount - 1;// Кількість вершин у графі ** a;// Матриця суміжності графа=new float * [n]; (int i=0; i
/ / ініціалізація (int i=1; i StringGrid1-> ColCount; i + +) {(int j=1; j StringGrid1-> ColCount; j + +) {[i - 1] [j - 1]=StrToFloat (this-> StringGrid1-> Cells [j] [i]);
}
} infinity=10000;// Нескінченність * put;
=new el [n]; sumDl=10000; punkt=- 1;
(int versh=0; versh
(int kversh=0; kversh
s=versh;// Номер вихідної вершини
int g=kversh;// Номер кінцевої вершини
int * x;// Масив, що містить одиниці і нулі для кожної вершини,
/ / x [i]=0 - ще не знайдено найкоротший шлях в i-ю вершину,
/ / x [i]=1 - найкоротший шлях в i-ю вершину вже знайдений
x=new int [n];
int * t;// T [i] - довжина найкоротшого шляху від вершини s в i
t=new int [n];
el * h;// H [i] - вершина, що передує i-й вершині
/ / на найкоротшому шляху
h=new el [n];
/ / int * tr;// Транспорт. 1-жд, 0-шосе
/ / tr=new int [n];
/ / Ініціалізіруем початкові значення масивів
int u;// Лічильник вершин
for (u=0; u
{
t [u]=infinity;// Спочатку все найкоротші шляхи з s в i
/ / ...
