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

[SergSIS]

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

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

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

[volvo]

SergSIS, чего ж мудреного?

Смотри, что получается:

type
  TPerson = record
    family: string;
    initials: string;
    birth: string; { <--- Для простоты, хотя можно и свой тип сделать ... }
    address: string;
  end;

  TDoctor = record { <--- Врач }
    private_data: TPerson;
    specialist: string; { <--- название органа, который врач лечит }
  end;
  TWeak = record { <--- Больной }
    private_data: TPerson;
    problem: string; { <--- название проблемного органа }
  end;

Const
  max_doctors = 10; { <-- ну, или сколько тебе надо ... }
  max_weaks = 10;
Var
  Doctors: array[1 .. max_doctor] of TDoctor; { <--- массив докторов }
  Weaks: array[1 .. max_weak] of TWeak; { <--- массив больных }

begin
  { заполняешь оба массива Doctors и Weaks данными }
  ...
  {
    Выбираешь специалиста, для которого
    надо распечатать его пациентов...
    Допустим, индекс врача в массиве = N
  }
  For i := 1 to max_weaks do
    if Weaks[i].problem = Doctors[N].specialist then
      { распечатать_данные_больного с индексом i }
end.