Курсовая работа: Простая замкнутая ломаная кривая

InitGraph(grDriver, grMode, '');

ErrCode:=GraphResult;

clrScr;

Sozd_t(A,n,m); {‡¤Ґ¬ Їа®Ё§ў®"м­® в®зЄЁ }

Rasst_TT(A,n);

{‘®§¤Ґ¬ ЇҐаўл© ваҐгЈ®"м­ЁЄ}

A[0]:=A[1];

Sdvyg(A,1,n);

A[n]:=A[0];

i:=PoiskNT(A,1,n-1);

A[0]:=A[i];{€йҐ¬ Ў"Ё¦йЁов®зЄгЄ T}

Sdvyg(A,i,n-1);

Sdvyg(A,n-1,n);

A[n]:=A[0];

i:=Poisknt(A,1,n-2);{€йҐ¬ 2-оЎ"Ё¦йоов®зЄгЄ T}

{Џа®ўҐаЁ¬ "Ґ¦в"Ё ­ ®¤­®© Їаאַ©}

While S_3(A[i],A[n-1],A[n]) do {!!!!}

begin A[i].r:=-A[i].r; i:=Poisknt(A,1,n-2) end;

A[0]:=A[i];

Sdvyg(A,i,n-2);

Sdvyg(A,n-2,n);

A[n]:=A[0];

textcolor(1);

t1:=1; t2:=n-3;

o1:=n-2; o2:=n;

ClearDevice;

Postr(A,o1,o2);

readkey;

sch:=3;