Задача:
В картотеке поликлиники значатся доктора и пациенты. С использованием типа:
type личность=record
фамилия:тип;
инициалы:тип;
г.рождения:тип;
адрес:тип;
end;
Вывести на экран фамилии пациентов заданного специалиста.
Я понимаю так, что нужно создать массив пациентов с указанием больных органов и массив докторов с указанием органов которые они лечат. А потом по полю записи доктора органы которые он лечит сделать выборку пациентов у которых эти ограны больны. Правильно я понимаю?
Чёт мудрено больно. И как это сделать? Кто знает помогите пожалуйста.
Заранее благодарен за любую помощь или подсказку.
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.
Спасибо за совет!!! Всё как я и предполагал, а тут даже более конкретно.
Только вот я думаю, что вот в этом месте
specialist: string; { <--- название органа, который врач лечит }
Да пожалуйста
Хочешь сделать еще лучше? Делай так:
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;
...
For i := 1 to max_weaks do
if Weaks[i].problem in TDocSpec[ Doctors[N].specialist ] then
{ распечатать_данные_больного с индексом i }
Во, здорово!
...Но тогда ввод problem и specialist по каждому пациенту и доктору нужно делать через перебор базового типа TWeakSet и TDocSet?
Что значит "через перебор"?
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)
}
...