страны приравнивает "0" и
понижает номер рассматриваемой страны на "1".
Иначе повышает номер рассматриваемой страны на "1", пока номер рассматриваемой страны не равен "1" или номер рассматриваемой страны не больше количества стран.
Значение функции равно "True", если номер рассматриваемой страны больше количества стран.
Основная программа:
Вывод сообщений пользователю (см. рабочую программу)
Запрос номера файла ("num").
Выполняются действия в переменную "num" запрашивается символ нажатой клавиши, если нажата клавиша не от 1 до 3 то выводится сообщение об ошибке пока не нажата клавиша от 1 до 3.
Возможно вы искали - Реферат: Краткая история ЭВМ
Формируется имя исходного файла filen:='input'+num+'.txt' .
Сообщение пользователю о выбранном файле.
Считывание данных
Открывается файл "filen" для считывания данных.
"max:=0".
Каждой ячейке массива связей присваивается “ложь”
Похожий материал - Реферат: Защита информации в глобальной сети
Пока файл не кончился считываются пара стран, в массив связей с индексами: [страна с меньшим номером, с большим] присваивается значение истина.
Закрывается файл "filen".
Блок, определяющий минимальное количество цветов.
Начальное количество цветов = 1.
Повторять действия:
Очень интересно - Реферат: Интернет в культурной коммуникации
Повысить количество цветов на единицу.
Пока не возможна раскраска всех стран данным количеством цветов.
Запись данных.
Создать файл "Output.txt". Считать в него количество цветов. Считать в него список раскраски стран. Закрыть файл.
Текст программы
program mag;
uses
Вам будет интересно - Реферат: Компьютерные сети и телекоммуникации
crt;
var
num:char;
filen:string;
g:array [1..100]of integer;
Похожий материал - Реферат: Концентраторы в локальных сетях
s:array[1..100,1..100]of boolean;
max,s1,s2,j,n,i,a:integer;
f:file of char;
f1:text;