EL),
First: = nil;
End;
_Добавленіе елемента в список:
Procedure Create_New_Elem (var p: EL); (p); ^: inf1: = StrToInt (Edit1.text); ^: inf2: = Edit2.text; ^: next: = nil;; _Empty_List (first); _New_Elem (p1);: = p1; _New_Elem (p2); ^. next: = p2
3_Подсчет кількості елементів у списку:
Function Count_El (first: EL): integer;: integer;: EL; first = nil then k: = 0: = 1;: = first; q ^. next <> nil do : = k +1;: = q * next;;;;: = k;;
Аналогічно записується процедура: 1. виводу списку на екран;
. пошук усередині списку ...
_Вставка елемента в початок списку:
Procedure ins_Bea_List (p: EL; var first: EL); first = nil then: = p; ^. next: = nil;; ^. next: = first;: = p;
End;
End;
_Добавленіе елемента в кінець списку:
Procedure ins_End_List (p: EL; var first: EL);: EL; first = nil then: = p; ^. next: = nil;;: = first; q ^. next <> ; nil do = q ^. next; ^. next: = p; ^. next: = nil;;
End;
_Добавленіе елемента в середину списку (після i-того елемента):
В
ins_After_i (p: EL; first: EL; i: integer);, q: EL;, n: integer;: = Count_EL (first); (i <1) or (i> n ) then; ( i, задано не коректне );;; i = 1 then: = first;: = t ^. next; ^. next: = p; ^. next: = q;; i = n then: = p;: = first; q ^. next <> nil do: = q ^. next; ^. next: = p;;; : = first;: = 1; k // в t: = i, a в q: = i +1 ^. next: = p; ^. next: = q;;
End;
В
7_Удаленіе першого елемента у списку:
Procedure Del_Beg_List (var first: EL);: EL; first <> nil then: = first; p ^. next = nil then (p);: = nil;;: = first; : = first ^. next, (p),;
End;
End;
В
_Удаленіе останнього елемента у списку:
Procedure Del_End_List (var first: EL);, g: EL; first = nil then exit; first ^. next = nil then: = first; (t);: = nil;;: = first;: = first; q ^. next <> nil do: = q;: = q ^. next;;
// t - передостанній, q - останній.
Dispose (q); ^. next: = nil;;
End;
В
9_Удаленіе i-того елемента з середини списку:
Procedure Del (var first: EL; i: integer);, q: EL;, n: integer; first = nil then exit;: = count_EL (first); (i <1) or (i> n) then ( I задано не коректне );;;
If i = 1 then
Begin
// видалення першого елемента в списку (процедура вище)
End; i = n then
// видалення останнього елемента в списку (процедура вище)
End;: = first;: = nil;: = 1; k // (i-1): = q, (i): = t, (i +1): = k ^. next: = k; (t);;
End;
В
10_Удаленіе всього списку:
Del_List (var first: EL);; q: EL; first = nil then exit;: = first;: = nil; q <> nil do: = q;: = q ^. next; (p);;: = nil;;
Крім лінійних структур, за допомогою покажчиків можна реалізувати не лінійні структури (дерева). p align="justify"> Найпростішим бачимо дерев, є бінарні (двійкові) дерева (кінцеве безліч елементів, які або порожні, або містять одні елементи (корінь дерева), а інші елементи діляться на два не перетинаються підмножини, кожне з який саме є бінарним деревом (ці підмножини - ліві та праві піддерева вихідного дерева)). br/>В В
np: ^ node; = record;: string;: np;: np;;
Графіка в Delphi
Delphi дозволяє використовувати графічні можливості операційної системи Windows. В операційній системі Windows графічні можливості надає графічний інтерфейс Win32. зокрема інтерфейс відомий як GDI. Інтерфейс GDI використовується в системі Win32 для малювання та розмальовки зображень. До появи Delphi для програмування графіки в середовищі Windows необхідно було безпосередньо працювати з функціями і процедурами GDI. У Delphi існує об'єкт TCanvas (полотно), який інкапсулює і спрощує використання функцій та інструментів (методів) GDI. p align="justify"> Подання малюнка в De...
