Курсовая работа: Создание программы для определения вершин пирамиды с выпуклым основанием по данным точкам

-ptr(указатель на текущий элемент)

-Number(число элементов в записи)

Type

Coordinates=record {коориднаты}

x,y,z:real;

end;

P_Points=^point; {Описаниетипа Points}

point=record

data:Coordinates;

Next:P_Points;

end;

P_Descriptor=record {Дескриптор для работы со списком точек}

Start,Ptr:P_Points;

Number:Word;

end;

P_Vectors=^Vector; {Описаниетипа Vector}

Vector=record

data:Coordinates;

Next:P_Vectors;

end;

V_Descriptor=record {Дескриптор для работы со списком векторов}

V_Start,V_Ptr:P_Vectors;

V_Number:Word;

end;

Описаниемодуля

Спецификация подпрограмм для работы со списком

1.СпецификацияпроцедурыInitListOfPoint;

1) Procedure InitListOfPoint(var P:P_Descriptor);;

2) Назначение: инициализирует фикивный элемент списка;