o pos do begin (x> vers [i]. x-rad) and (x vers [i]. y-rad) and (y '0 'then [i-1, j-1]: = 1 else dost [i-1, j-1 ]: = 0; i: = 1 to pos doj: = 1 to pos dodost [j-1, i-1] = 0 then doroga: = doroga +1;
for k: = 0 to pos-1 do// шукаємо чи можна скоротити шлях через третю вершину К
for i: = 0 to pos-1 doj: = 0 to pos-1 do [i, j]: = dost [i, j] or (dost [i, k] and dost [ k, j]); i: = 1 to pos doj: = 1 to pos dodost [j-1, i-1] = 0 then vver: = vver +1;. StringGrid1.Cells [j, i]: = inttostr (dost [i-1, j-1]);
end;; TForm1.redrow;// перемальовування зображення графа на картінкеi, j: Integer;// допоміжні змінні
beginpos = 0 then exit;: = stringgrid3.ColCount-1;. Canvas.Pen.Mode: = pmCopy;. Canvas.Brush.Color: = clWhite;. Canvas.Rectangle (0,0 , Image1.Width, Image1.Height);// очищення канвас без міганія.Canvas.Pen.Width: = 1; i: = 1 to n do// малюємо дугіj: = 1 to n dostrtoint (StringGrid3.Cells [i, j])> 0 then.Canvas.MoveTo (vers [i]. x, vers [i]. y);. Canvas.lineTo (vers [j]. x, vers [j]. y);
///червона крапка направленія.Canvas.pen.Color: = clRed;
Image1.Canvas.Brush.Color: = clRed;. 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);. 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);. 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);. Canvas.ellipse (round (vers [j]. x + (vers [i] . x-vers [j]. x) * 0.97) -1, round (vers []. 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 );. Canvas.Pen.Color: = clBlack;. Canvas.Brush.Color: = clWhite;. Canvas.pen.Style: = psSolid;; i: = 1 to n do
begin// вершини - гуртки з номером вершини
