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

Absal(A,1,n);

{Ќе®¤Ё¬ Ў"Ё¦йЁов®зЄгўбв. Є®"мжҐ}

T:=Poisknt(A,t1,t2);

{‡ЇЁб뢥¬ аббв®п­ЁҐ ®вв®зЄЁ ¤® ®в१Єў"Ґўл© Є®­Ґж}

For i:=o1 to o2-1 do

A[i].r:=R_TO(A[T],A[i],A[i+1]);

A[o2].r:=R_TO(A[T],A[O2],A[O1]);

{€йҐ¬ ­г¦­л© ®в१®Є}

j:=t1-1;

Repeat

{§ЇгбвЁ¬ бзҐвзЁЄЇ®ўв®аҐ­Ё©}

j:=j+1;

{€йҐ¬ Ў"Ё¦йЁ© ®в१®Є}

O:=O1;

while A[O].r<0 do O:=O+1;

For i:=O1 to O2 do

if (A[i].r>0) and (A[i].r<A[O].r) then O:=i;

{[O,O+1] Ў"Ё¦йЁ© ®в१®Є}

{ЋЇаҐ¤Ґ"塞 ­"ЁзЁҐЇ"®еЁеваҐгЈ®"м­ЁЄ®ў}

if O=O2 then Ok:=O1 else Ok:=O+1;

Cleardevice;

setcolor(blue);

postr(A,o1,o2);

PieSlice(Round(A[o1].x), Round(A[o1].y), 0, 360, 5);

PieSlice(Round(A[o2].x), Round(A[o2].y), 0, 360, 5);

PieSlice(Round(A[t].x), Round(A[t].y), 0, 360, 3);

setcolor(15);

lin(A[t],A[o]);lin(A[t],A[ok]);

setcolor(4);