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