# Меньшим количеством

Меньшим количеством цветов граф правильно раскрасить нельзя из-за наличия треугольников. Рядом с “кружками” - вершинами графа - указаны номера цветов. Метод получения правильной раскраски. Идея достаточно проста. Закрашиваем очередную вершину в минимально возможный цвет. Введем следующие структуры данных. Const Nmax=100; {максимальное количество вершин графа} Type V=0..Nmax; Ss=Set of V; My_array=array[1..Nmax] of V; Var Gr:My_array;{Gr - каждой вершине графа определяется номер цвета} Для примера, приведенного выше, массив Gr имеет вид: Gr[1]=Gr[3]=Gr[5]=1; Gr[2]=Gr[4]=Gr[7]=2; Gr[6]=3. Фрагмент основной логики. .... &lt;формирование описания графа&gt;; for i:=1 to N do Gr[i]:=Color(i,0); &lt;вывод решения&gt;; Поиск цвета раскраски для одной вершины можно реализовать с помощью следующей функции: function Color(i,t:V):integer;{i - номер окрашиваемой вершины, t - номер цвета, с которого следует искать раскраску данной вершины} {A - матрица смежности,

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