Задача на записи., прошу помочь разобратся Опции

[SergSIS]

Задача:
В картотеке поликлиники значатся доктора и пациенты. С использованием типа:
type личность=record
фамилия:тип;
инициалы:тип;
г.рождения:тип;
адрес:тип;
end;
Вывести на экран фамилии пациентов заданного специалиста.

Я понимаю так, что нужно создать массив пациентов с указанием больных органов и массив докторов с указанием органов которые они лечат. А потом по полю записи доктора органы которые он лечит сделать выборку пациентов у которых эти ограны больны. Правильно я понимаю?
Чёт мудрено больно. И как это сделать? Кто знает помогите пожалуйста.
Заранее благодарен за любую помощь или подсказку.

Сообщение отредактировано: SergSIS - 28.05.2006 20:50

[volvo]

Что значит "через перебор"?

Const
  strDoctor: Array[TDocSet] Of string = ('dermatolog', 'okulist', 'LOR');
...
  Writeln('Enter the doctor speciality:');
  For i := Low(TDocSet) To High(TDocSet) do Write(' (',ord(i),'):', strDoctor); { <--- Это - "перебор" ? }
  WriteLn;
  {
    Получаешь число Ans - ответ пользователя, проверяешь на валидность,
    и присваиваешь в нужное поле TDocSet(Ans)
  }
...

Я вот сейчас подумал - может, добавить решение такого типа задач (где именно идет работа с множествами, типизированными константами) в FAQ? Нужно это кому-то, или такие задачи редко встречаются?