Использование списков указателей на примере приложения DemoList

Национальный Технический Университет Украины

Киевский Политехнический Институт

ММИФ

Лабораторная работа

Пример использования списка указателей

Киев 2008

Рассмотрим использование списков указателей на примере приложения DemoList. При щелчке мышью на форме приложения отображается точка, которой присваивается порядковый номер. Одновременно координаты и номер точки записываются в соответствующие свойства создаваемого экземпляра класса TMypixel. Указатель на этот объект передается в новый элемент списка pixList.

В результате после очистки формы всю последовательность точек можно восстановить, использовав указатели на объекты точек из списка.

Список точек можно отсортировать по координате X в порядке возрастания.

Класс TMyPixel обеспечивает хранение координат точки и ее порядковый номер в серии. Эти параметры передаются в конструктор класса. Метод setPixel обеспечивает отрисовку точки на канве формы (см. гл. 10).

Экземпляр класса создается для каждой новой точки при щелчке кнопкой мыши в методе-обработчике FormMouseDown. Здесь же указатель на новый объект сохраняется в создаваемом при помощи метода Add элементе списка PixList. Таким образом, программа "запоминает" расположение и порядок следования точек.

Метод-обработчик ListBtnClick обеспечивает отображение точек. Для этого в цикле текущий указатель списка передается в переменную объектного типа curPixel, т. е. в этой переменной по очереди "побывают" все созданные объекты, указатели на которые хранятся в списке.

Это сделано для того, чтобы получить доступ к свойствам объектов (непосредственно через указатель этого сделать нельзя). Второй способ приведения типа рассмотрен в методе-обработчике SortBtnClick.

Перед вторичным отображением точек необходимо очистить поверхность формы. Эту операцию выполняет метод-обработчик clearBtnClick.

Список точек можно отсортировать по координате X в порядке возрастания. Для этого в методе-обработчике SortBtnClick вызывается метод Sort списка PixList. В параметре метода (переменная процедурного типа) передается функция PixCompare, которая обеспечивает инкапсулированный в методе Sort механизм перебора элементов списка алгоритмом принятия решения о старшинстве двух соседних элементов.

Если функция возвращает положительное число, то элемент item1 больше элемента item2. Если результат отрицательный, то item1 меньше, чем item2. Если элементы равны, функция должна возвращать ноль.

В нашем случае сравнивались координаты X двух точек. В результате такой сортировки по возрастанию объекты оказались расположены так, что первый элемент списка указывает на объект с минимальной координатой X, а последний -- на объект с максимальной координатой X.

После сортировки осталось заново пронумеровать все точки. Это делает цикл в методе-обработчике SortBtnclick. Обратите внимание на примененный в этом случае способ приведения типа, обеспечивающий обращение к свойствам экземпляров класса TMypixel.

Метод-обработчик DeiBtnClick обеспечивает полную очистку списка pixList.

Условие задачи:

Описать процедуру или функцию, которая!

а) проверяет на равенство списки L1 и L2;

Код програмы:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

type Nodepoint=^Node;

Node=record

count:integer;

list:nodepoint;

end;

function kil(cur4:nodepoint):integer;

var k:integer;

begin

k:=1;

while cur4<>nil do begin

cur4:=cur4^.list;

k:=k+1;

end;

kil:=k;

end;

function Por(q1,q2:nodepoint):boolean;

var bol:boolean;

begin

bol:=true;

if kil(q1)<>kil(q2) then begin

por:=false;

exit;

end;

while (q1<>nil) and (q2<>nil) do begin

if q1^.count<>q2^.count then

bol:=false;

{if (q1=nil) and (q2<>nil) then begin

Por:=false;

exit;

end else

if (q2=nil) and (q1<>nil) then begin

Por:=false;

exit;

end; }

q1:=q1^.list;

q2:=q2^.list;

end;

Por:=bol;

end;

procedure Vuvodsp(head:nodepoint);

begin

while head<>nil do begin

writeln(head^.count);

head:=head^.list;

end

end;

procedure del(var p:nodepoint);

var r:nodepoint;

begin

while (p<>nil) do begin

r:=p;

p:=p^.list;

dispose(r);

end;

end;

function Vvodsp(l:integer):nodepoint;

var cur1,firs:nodepoint;j:integer;

begin

New(cur1);

firs:=cur1;

writeln('Vedit spisok');

readln(cur1^.count);

for j:=1 to l-1 do begin

new(cur1^.list);

readln(cur1^.list^.count);

cur1:=cur1^.list;

cur1^.list:=nil;

end;

Vvodsp:=firs;

end;

var cur,l1,l2:nodepoint;n:integer;

begin

writeln('Vedit kilkist elementiv pershogo spusku');

readln(n);

L1:=Vvodsp(n);

readln;

writeln;

writeln('Vedit kilkist elementiv drugogo spusku');

readln(n);

L2:=Vvodsp(n);

readln;

writeln;

cur:=L1;

Vuvodsp(cur);

readln;

writeln;

cur:=L2;

Vuvodsp(cur);

readln;

if por(L1,L2) then writeln('Tak,l1= L2') else

writeln('Ni,l1<> L2');

readln;

del(L1);

del(L2);

end.

Вид программи:

Список литературы:

Тurbo Pascal 7.0 Изд. М. 1999

Пильщиков В.Н. «Сборник упражнений по языку Тurbo Pascal 7.0» М., Наука 1989г.

Wikipedia.com Интернет-енциклопедия

Епанешников В.И. «Программирование в среде Turbo Pascal 7.0» М. 2001