# была окрашена в

была окрашена в цвет q, потому что не могла быть окрашена в цвет с меньшим номером. Следовательно, необходимо попробовать изменить цвет у вершин, смежных с рассматриваемой. Но как это сделать? Найдем вершину с минимальным номером, окрашенную в цвет q, и просмотрим вершины, смежные с найденной. Попытаемся окрашивать смежные вершины не в минимально возможный цвет. Для этого находим очередную смежную вершину и стараемся окрасить ее в другой цвет. Если это получается, то перекрашиваем вершины с большими номерами по методу правильной раскраски. При неудаче, когда изменить цвет не удалось или правильная раскраска не уменьшила количества цветов, переходим к следующей вершине. И так, пока не будут просмотрены все смежные вершины. Опишем логику, используя функцию Color предыдущего параграфа. var MaxC,MinNum,i:V; procedure MaxMin(var c,t:V); begin ... end; procedure Change(t:V); begin ... end; begin &lt;ввод данных, инициализация переменных&gt;; for

Индекс
Элементарные функции Линейные уравнения Нелинейные уравнения Случайные числа