Разработка информационной системы с применением динамических структур данных. Назначение и область применения разрабатываемой программы по регистрации больных в поликлинике. Структурная схема фрагмента информационной системы, таблица имен и списков.
Содержание Задание Назначение и область применения разрабатываемой программы Постановка задачи Структурная схема фрагмента информационной системы Таблица имён Инструкция по работе с программой Заключение Литература Приложение 1(листинг программного кода) Задание Разработать информационную систему с применением динамических структур данных. Для решения поставленной задачи рекомендуется использовать динамические структуры (списки, деревья, очереди, стеки и т.п.) в том случае, если для решения поставленной задачи их использование окажется более целесообразным. Данная программа предназначена для автоматизации ведения учета пациентов а поликлинике. Основные возможности и характеристики программы Программа позволяет создавать, упорядоченный по алфавиту, список пациентов, содержащий ФИО , год рождения и название отделения в которое направлен больной. TPPacient = ^TPacient; //указатель на тип Tpacient TPacient = record name:string[20]; //ФИО date:string[4]; //год рождения vr:string[20]; //врач next:TPPacient; //следующий элемент списка head: TPPacient; // голова списка node: TPPacient; //новый узел списка curr: TPPacient; //текущий узел списка pre: TPPacient; //предыдущий( относительно curr) узел списка new(node); //создание нового элемента списка node^.name:= Edit1.Text; //ФИО node^.date:= Edit2.Text; //Год рождения node^.vr:= ListBox1.Items[listBox1.ItemIndex];//врач procedure Button1Click(Sender: TObject);//добавление пациента в список procedure Button2Click(Sender: TObject);//вывод списка пациентов procedure Button3Click(Sender: TObject);//удаление из списка Инструкция по работе с программой При запуске программы появляется форма (рис.
Вы можете ЗАГРУЗИТЬ и ПОВЫСИТЬ уникальность своей работы
