Реферат Програма для створення двозв'язних кільцевих списків

Тема: Курсовые обзорные

рмації в таблиці з даними

Для відображення списку мешканців за певним атрибуту на формі є кнопка В«Заповнити списокВ» і таблиця для відображення інформації. Якщо вибрати потрібний атрибут і натиснути на дану кнопку, таблиця заповниться потрібною інформацією (Малюнок 19). <В

Малюнок 19 - Висновок отриманого списку

ВИСНОВОК

В ході курсової роботи мною було розроблено додаток для створення двозв'язних кільцевих списків.

Як виявилося, зв'язані списки - це найбільш відповідна структура для динамічних даних, тому що вони можуть мати змінну кількість елементів. Витрати продуктивності при роботі зі списками незначні порівняно з тією економією пам'яті і гнучкістю, які вони надають. p> користувача інтерфейс програми максимально простий і зручний. Тестування програми показало, що вона повністю працездатна і відповідає поставленим вимогам. br/>

ДОДАТОК

// UnitFourthPlex.pas// UnitFourthPlex;

interfac

uses Grids;

TMember = record: string [32];: string [32];: string [32];: string [32];;

TNodePtr = ^ TNode;

TNode = record: TMember;

NextFirst: TNodePtr;: TNodePtr;: TNodePtr;: TNodePtr;;

TPlex = class: TNodePtr;: TNodePtr;: TNodePtr;: TNodePtr;

fCount: integer;

fNumberPointer: integer;

procedure SwapLinks (left, right: integer); AddToSecondList (newNode: TNodePtr); AddToThirdList (newNode: TNodePtr); AddToFourthList (newNode: TNodePtr); RemoveFromSecondList (node: TNodePtr); RemoveFromThirdList (node: TNodePtr); RemoveFromFourthList (node: TNodePtr);

public

function Get_pointer (Node: TNodePtr): TNodePtr; Get_head: TNodePtr; Set_return_pointer (attribute: integer);

procedure Print_to_Grid (Grid: TStringGrid); GetI (index: integer): TNodePtr;

procedure Add (value: TMember); AddToIndex (Value: TMember; Index: integer); Del (index: integer); Sort (attribute: integer); Clear;

property Count: integer read fCount;;

implementation

uses SysUtils;

function TPlex.Get_pointer (node: TNodePtr): TNodePtr;

case fNumberPointer of

: result: = Node.NextFirst;

: result: = Node.NextSecond;

: result: = Node.NextThird;