> {+ +;> Memo1-> Lines-> Add (IntToStr (u)),> Image1-> Canvas-> Pen-> Color=RGB (208, 158, 20);
DrawLine (this-> Image1-> Canvas, point (points [h [u]. v]). x, point (points [h [u]. v]). y, point (points [u]). x, point (points [u]). y, 10,20);=h [u]. v;
}> Memo1-> Lines-> Add (IntToStr (u)),> Memo1-> Lines-> Add («Довжина шляху =« + IntToStr (t [g ]));
;
} [v]=1;
}}
}
}
{-> Lines-> Add («Немає такого пункту. Можливо не всі пункти з'єднані»);
}
}
/ / -
__fastcall TForm1: Button1Click (TObject * Sender)
{-> Canvas-> FillRect (Image1-> Canvas-> ClipRect);> Image1-> Canvas-> Pen-> Color=RGB (2, 0 , 0); (int i=0; i Image1-> Canvas-> ; Ellipse (X - 10, Y - 10, X +10, Y +10);
> Image1-> Canvas-> TextOutA (X +10, Y, IntToStr (i)),> Image1-> Canvas-> MoveTo (X, Y);
}> Image1-> Canvas-> Pen-> Color=RGB (208, 20, 201); (int i=1; i StringGrid1-> ColCount; i + +) {(int j=1; j StringGrid1-> ColCount; j + +) {(this-> StringGrid1-> Cells [j] [i]!=«0») (this-> Image1-> Canvas, point (points [i - 1]). x, point (points [i - 1]). y, point (points [j - 1]). x, point (points [j- 1]). y, 10,20);
}
}
}
/ / -
__fastcall TForm1: Button3Click (TObject * Sender)
{
res=1;
}
/ / -
