Help me to debug my program or give me some tests. Here is my code:

[code deleted]

Edited by moderator 24.11.2019 23:21

I made a mistake while working with Leftmost point. The part of program wich was not right should look like this:

LeftmostIndex:=1;
For I:=2 To N Do If P[I].X<P[LeftmostIndex].X Then LeftmostIndex:=I;

P[LeftMostIndex].Angle:=-2*Pi;
For I:=1 To N Do If I<>LeftMostIndex Then P[I].Angle:=GetAngle(P[LeftmostIndex],P[I]);
QSort(1,N);

LeftmostIndex is an integer variable.