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

[SergSIS]

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

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

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

[volvo]

Да пожалуйста
Хочешь сделать еще лучше? Делай так:

Type
  TWeakSet = (_koja, _glaz, _uho, _gorlo, _nos); { <-- перечисляешь все органы, доступные для лечения}
  TW = Set of TWeakSet;

  TDocSet = (_dermatolog, _okulist, _LOR); { <-- специализации врачей }
  TDocSpec = Array[TDocSet] of TW = (
    [_koja], { <-- Органы, к-рые лечит дерматолог }
    [_glaz], { <-- Органы, к-рые лечит окулист }
    [_uho, _gorlo, _nos] { <-- Органы, к-рые лечит ЛОР }
  );

Тогда описание врача и больного будет выглядеть по-другому:

  TDoctor = record { <--- Врач }
    private_data: TPerson;
    specialist: TDocSet; { <--- специализация врача }
  end;
  TWeak = record { <--- Больной }
    private_data: TPerson;
    problem: TWeakSet; { <--- проблемный орган }
  end;
...

Таким образом, уже есть соответствие между специализацией врача (TDoctor.specialist) и проблемой больного (TWeak.problem), оно записано в массиве TDocSpec... И если у нас (как и раньше) выбран доктор, индекс которого в массиве равен N, то определение "его" больных сводится к:

  For i := 1 to max_weaks do
    if Weaks[i].problem in TDocSpec[ Doctors[N].specialist ] then
      { распечатать_данные_больного с индексом i }

P.S. Преимущество этого способа: минимальными изменениями программы можно сделать так, чтобы у каждого больного мог быть не один, а несколько больных органов...

[SergSIS]

Во, здорово!
...Но тогда ввод problem и specialist по каждому пациенту и доктору нужно делать через перебор базового типа TWeakSet и TDocSet?