Глава 49 Сложные массивы

Глава 49

Сложные массивы

присоединяю соседей своих бывших соседей. Взгляните на рис. 112, — если строительство империи начать из страны D, то в ходе первой кампании будут поглощены соседи A, C и E, а в ходе второй — их соседи, страны B, I и F.

Хорошо, — скажете, — но где тут связь с купеческим заказом? Сейчас объясню. Остроумный Ник догадался, что каждая завоевательная кампания уменьшает число границ между центром империи и любой другой, пока ещё независимой, страной ровно на единицу. И так будет, пока страна не поглотится империей, и граница между ними исчезнет. Стало быть, количество необходимых для поглощения страны завоевательных кампаний будет равно количеству пересечений границ, которое интересует купцов.

378

Глава 49

Сложные массивы

«Нашел, нашел!» — просветлел Ник, подвигаясь к компьютеру. Главная идея родилась, осталось обдумать детали. В первую очередь, следовало выбрать подходящий способ хранения границ. В 38-й главе для этого использовано несколько переменных-множеств. Теперь так не годится, — догадался Ник, — ведь для каждой завоевательной кампании мне надо организовать цикл. А там где циклы, там и массивы. Стало быть, мне нужен массив множеств. Ник нарек этот тип данных именем TStates.

Вы помните, как именовались страны в тех местах? Буквами латинского алфавита. Это надоумило Ника индексировать массив именно символами, — ведь это один из перечислимых типов, а все они пригодны для индексации. Тогда множество границ страны B, имя которой хранится в символьной переменной X, извлекается из массива множеств States так.

Но как в таком случае перебирать элементы массива? Ведь к символу не прибавишь единицу! Спасает функция Succ. Напомню, что она возвращает следующее по порядку значение перечислимого типа, например:

Ещё один подводный камень, вовремя подмеченный Ником, был таков. При вводе имени несуществующей страны программа зациклится, вращаясь в замкнутом круге. Потому при вводе данных организован упрямый цикл REPEATUNTIL, вынуждающий пользователя ввести правильные названия стран.

И, наконец, последнее замечание к программе P_49_1 касается переменной Temp (что значит «временная»). Поскольку текущие границы империи накапливаются в переменной EmpireB и расширяются в ходе кампании, то определять бывших соседей по этим границам нельзя! Поэтому предыдущие границы империи перед началом цикла запоминаются в переменной Temp.

Temp:= EmpireB; { Запоминаем границы империи до начала кампании }

Теперь рассмотрите программу P_49_1, затем испытайте её.

379

Глава 49

Сложные массивы

{ P_49_1 – Решение «купеческой» задачи о пересечении границ }

{Массив множеств TStates – это границы всех стран } TStates = array ['A'..'Z'] of TBoundSet;

{Процедура чтения множества чисел (границ) из строки файла } procedure ReadSet(var aFile: text; var aSet : TBoundSet);

var k : integer; begin

aSet:= [];

while not Eoln(aFile) do begin Read(aFile, k);

aSet:= aSet+[k];

end;

Readln (aFile);

end;

{Глобальные переменные }

Assign(FileIn, 'P_38_3.in'); Reset(FileIn);

{ Готовим цикл чтения массива множеств } Names:=[ ]; { Названия стран }

C:= 'A'; { Первый индекс в массиве стран }

380

Глава 49

Сложные массивы

end;

Close(FileIn); { Теперь входной файл можно закрыть } repeat { «Упрямый» цикл чтения правильных имен стран }

Write('Откуда: '); Readln(C1);

Write('Куда : '); Readln(C2);

{ Переводим имена стран в верхний регистр }

C1:= UpCase(C1); C2:= UpCase(C2);

{ Если имена не совпадают и оба достоверны, значит ввод правильный,

в таком случае выходим из цикла, а иначе повторяем ввод }

if (C1<>C2) and (C1 in Names) and (C2 in Names)

then Break

else Writeln('Ошибка! Повторите ввод имен стран');

until False;

{ Подготовка к присоединению стран }

EmpireB:= States[C1]; { Империя начинает расширяться от страны C1 }

Temp:= EmpireB; { Запоминаем предыдущие границы империи }

{ Цикл очередной "завоевательной кампании" по всем странам массива }

while C in Names do begin

{ Если страна имеет общую границу, присоединяем её к империи } if (Temp * States[C]) <> [] then begin

end;

C:= Succ(C); { Следующий индекс в массиве множеств границ }

end; { очередная кампания завершена }

Writeln('Пересечений границ: ', Counter); Readln; end.

381