ПРИЛОЖЕНИЕ Л

Пример выполнения функциональной схемы программы

АИС «Медпункт»

Учетные записи для работы с БД

7. Подсистема мед. персонал

2. Подсистема мед. карта

3. Подсистема медосмотр

Электронный вариант прививочной карты

Регистрация выдаваемых справок

Осуществляет формирование отчетной статистики по базе

Осуществляет хранение и редактирование информации

4. Прививочная карта

5. Подсистема справки

6. Подсистема отчеты

8. Подсистема Учреждения

Дает возможность использовать в других целях

Позволяет редактировать внутреннюю структуру

Обеспечивает посещение студентом медпункта

9. Подсистема факультета и группы

1. Подсистема подключения устройства к БД

В данной подсистеме реальная форма просмотра информации

Настройка соединения при подключении MicrosoftSQL

10. Подсистема студент

ПРИЛОЖЕНИЕ М

Пример оформления блок-схемы алгоритма

м

Y

Конец

Нет

Да

Начало

X, Eps

Y:=X A1:=X i:=1

A2:=-1*X*X/(2*i*(2*i+1))

i:=i+1

Y:=Y+A2

E:=A1+A2

A1:=A2

|E|<Eps

Вычисления

Определение значения величины, влияющей на окончание процесса

Подготовка к следующей итерации

Проверка условия выхода из цикла

Присвоение начальных значений

ПРИЛОЖЕНИЕ Н

Пример оформления листинга программного модуля

Листинг 1 - Модуль ListOperations.pas

{===========================================================================}

{ Модуль ListOperations.раs}

{ гр. П-1 };

{ Разработчик: Иванов. И.В }

{ Модифицирован; 15 июня 2011 }

{------------------------------------------------------------------------------------}

{ модуль, в котором объявлена Структура списка

и реализованы функции работы с динамическим списком. }

{***********************************************************************************************}

unit listOperations;

Interface

Type

//Описание записи, хранящей данные о студенте

Туре_Info = Record

nom: integer; //номер зачетки, по нему мы будем искать студента

Famil: string[20]; //Фамилия

Name: string[20];//Имя

Otch: string[20]; //Отчество

Group: string[20]; //Группа

Ball: real; //средний бал S

tip: real; // размер стипендии

End;

Type_Next = ^Type_Elem; //указатель

//Описание элемента списка

Type_Elem= Record

Info: Type_Info; // Информация о студенте

Next: Type_Next; // Основной указатель на следующий элемент списка

SortNext: Type_Next; //Доп указатель. Используется для построения

отсортированного списка

//Фильтров и т.д.

End;

var

//указатели для работы со списком

Beg_Spis: Type_Next; //указатель на начало списка

Cur, Pred,Next: Type_Next; //указатель на текущий,предыдущий,следующий элементы списка

// стандартные функции для работы со списком

//процедура добавления элемента в список

Procedure addElem(InsRec: Type_lnfo);

//изменение даннхы элемента из списка

Procedure EcUtElem (oldNom:integer;newData: Type_Info);

//удаление элемента из списка

Procedure deleteElem(delNom:integer);

//Уничтожение списка полностью, освобождение памяти

Procedure DestroyList();

implementation

uses commonUnit;

//процедура добавления элемента в список

//добавление происходит в конец списка

//входной параметр InsRec - данные о вставляемой записи

Procedure addElem(InsRec: Type_lnfo);

var

NewElem: Type_Next;

Begin

//выделяем память под новый элемент и заполняем поля;

New (NewElem);

NewElem^.Infо:= InsRec;

NewElem^.Next:= Nil;

if Beg_Spis = nil then //вставляем в начало, так как список пустой

Begin_Spis:=NewElem

else begin

Cur:= Beg_Spis;

While(Cur^.Next<> Nil) do //движемся к концу списка

Cur:= Cur^.Next;

Cur^.Next: = NewElem; //добавляем элемент в хвост списка

end;

End;

//изменение данных элемента из списка

//входной параметр oldNom - старый номер зачетки

// newData - измененные данные

// не исключена ситуация, когда есть две зачетки с заданными номерами

Procedure EditElem(oldNom: integer; newData: Type__Info);

Begin

Cur:= Beg_Spis;

While Cur <> Nil do

begin

If Cur^.Info.nom = oldNom then // если нашли по старому номеру

зачетки

Cur^.Infо:= newData;

Cur:= Cur^.Next;

End;

End;

…

Дата добавления: 2015-07-15