Реферат Визначення досяжності міста в змінюваною системі двосторонніх доріг

s [j]. y) * 0.93) +3);. Image1.Canvas.ellipse (round (vers [j]. x + ( vers [i]. x-vers [j]. x) * 0.95) -2, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.95) -2, ( vers [j]. x + (vers [i]. x-vers [j]. x) * 0.95) +2, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.95) +2);. Image1.Canvas.ellipse (round (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.97) -1, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.97) -1, (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.97) +1, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.97) +1);. Image1.Canvas.Pen.Width: = 3;. Image1.Canvas.Pen.Color : = clGreen;. Image1.Canvas.Brush.Color: = clWhite;. Image1.Canvas.pen.Style: = psSolid;;. Image1.Canvas.Pen.Width: = 1;. Image1.Canvas.Pen.Color: = clBlack;

for i: = 1 to n do// вершини - гуртки з номером вершини

0 then.Image1.Canvas.MoveTo (vers [i]. x, vers [i]. y);. Image1 . Canvas.lineTo (vers [j]. x, vers [j]. y);

///червона крапка направленія.Image1.Canvas.pen.Color: = clRed;. Image1.Canvas.Brush.Color: = clRed;. Image1.Canvas.ellipse (round (vers [j ]. x + (vers [i]. x-vers [j]. x) * 0.9) -4, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.9) -4, (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.9) +4, round (vers [j]. y + (vers [i]. y-vers [j ]. y) * 0.9) +4);. Image1.Canvas.ellipse (round (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.93) -3, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.93) -3, (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.93 ) +3, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.93) +3);. Image1.Canvas.ellipse (round (vers [j]. x + ( vers [i]. x-vers [j]. x) * 0.95) -2, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.95) -2, ( vers [j]. x + (vers [i]. x-vers [j]. x) * 0.95) +2, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.95) +2);. Image1.Canvas.ellipse (round (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.97) -1, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.97) -1, (vers [j]. x + (vers [i]. x-vers [j]. x) * 0.97) +1, round (vers [j]. y + (vers [i]. y-vers [j]. y) * 0.97) +1);. Image1.Canvas.Pen.Width: = 3;. Image1.Canvas.Pen.Color : = clYellow;. Image1.Canvas.Brush.Color: = clWhite;. Image1.Canvas.pen.Style: = psSolid;;. Image1.Canvas.Pen.Width: = 1;. Image1.Canvas.Pen.Color: = clBlack;

for i: = 1 to n do// вершини - гуртки з номером вершини