Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на записи.
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
SergSIS
Задача:
В картотеке поликлиники значатся доктора и пациенты. С использованием типа:
type личность=record
фамилия:тип;
инициалы:тип;
г.рождения:тип;
адрес:тип;
end;
Вывести на экран фамилии пациентов заданного специалиста.

Я понимаю так, что нужно создать массив пациентов с указанием больных органов и массив докторов с указанием органов которые они лечат. А потом по полю записи доктора органы которые он лечит сделать выборку пациентов у которых эти ограны больны. Правильно я понимаю?
Чёт мудрено больно. И как это сделать? Кто знает помогите пожалуйста.
Заранее благодарен за любую помощь или подсказку.
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.
SergSIS
Спасибо за совет!!! Всё как я и предполагал, а тут даже более конкретно.
Только вот я думаю, что вот в этом месте
      specialist: string; { <--- название органа, который врач лечит }  

нужно наверное указывать специальность специалиста (типа дерматолог), а после записать соответствие
специалист=орган (дерматолог=кожа).
Так я думаю будет правильнее.
И вывод будет не "введите орган который лечит доктор", а "введите специалиста".
Как Вы думаете?
volvo
Да пожалуйста smile.gif
Хочешь сделать еще лучше? Делай так:
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?
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? Нужно это кому-то, или такие задачи редко встречаются?
Bokul
Цитата
Я вот сейчас подумал - может, добавить решение такого типа задач (где именно идет работа с множествами, типизированными константами) в FAQ?

Чем толще FAQ, тем лучше! smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.