Задача: В картотеке поликлиники значатся доктора и пациенты. С использованием типа: type личность=record фамилия:тип; инициалы:тип; г.рождения:тип; адрес:тип; end; Вывести на экран фамилии пациентов заданного специалиста.
Я понимаю так, что нужно создать массив пациентов с указанием больных органов и массив докторов с указанием органов которые они лечат. А потом по полю записи доктора органы которые он лечит сделать выборку пациентов у которых эти ограны больны. Правильно я понимаю? Чёт мудрено больно. И как это сделать? Кто знает помогите пожалуйста. Заранее благодарен за любую помощь или подсказку.
volvo
29.05.2006 1:06
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
29.05.2006 12:16
Спасибо за совет!!! Всё как я и предполагал, а тут даже более конкретно. Только вот я думаю, что вот в этом месте
specialist: string; { <--- название органа, который врач лечит }
нужно наверное указывать специальность специалиста (типа дерматолог), а после записать соответствие специалист=орган (дерматолог=кожа). Так я думаю будет правильнее. И вывод будет не "введите орган который лечит доктор", а "введите специалиста". Как Вы думаете?
volvo
29.05.2006 16:35
Да пожалуйста Хочешь сделать еще лучше? Делай так:
Type TWeakSet = (_koja, _glaz, _uho, _gorlo, _nos); { <-- перечисляешь все органы, доступные для лечения} TW = Set of TWeakSet;
Таким образом, уже есть соответствие между специализацией врача (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
29.05.2006 18:32
Во, здорово! ...Но тогда ввод problem и specialist по каждому пациенту и доктору нужно делать через перебор базового типа TWeakSet и TDocSet?
volvo
29.05.2006 19:02
Что значит "через перебор"?
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
30.05.2006 3:23
Цитата
Я вот сейчас подумал - может, добавить решение такого типа задач (где именно идет работа с множествами, типизированными константами) в FAQ?
Чем толще FAQ, тем лучше!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.