Определение замкнутости.. не знаю как кратко объяснить)

@Chronos · Регистрация: 22.04.2011

Author24 — интернет-сервис помощи студентам

вот задача: В землю вбивается несколько колышков. Двое по очереди связываеют бечёвками пары колышков. Выигрвает тот, при ходе которого обраовалась замкнутая ломанная составленная из бечёвок.

вот код, который рисует колышки(точки) и бечевки(линии), ещё защиту от дураков никакую не делал - потом. (пс: если будете запускать, что бы выйти из цикла просто белиберду введите - оно кританёт)

Pascal

uses crt,graph;
var n,xc,yc,r,i,x,y,x1,x2,y1,y2,k1,k2:integer;
    u,du:real;
begin
clrscr;
write('Skolko kolishkov budet?');
readln(n);
x:=0;
initgraph(x,y,'');
xc:=320;
yc:=240;
r:=yc-40;
du:=pi/(n-1);
u:=pi;
while 1=1 do
    begin
    u:=pi;
    for i:=1 to n do
     begin
      x:=xc+round(r*cos(u));
      y:=yc-round(r*sin(u));
      putpixel(x,y,white);
      u:=u-du;
     end;
 
    writeln('kakoy kolishek vi hotite soedinit?');
    readln(k1);
    writeln('s kakim kolishkom vi hotite soedinit?');
    readln(k2);
 
    u:=pi;
    for i:=1 to k1 do
     begin
     x:=xc+round(r*cos(u));
     y:=yc-round(r*sin(u));
     u:=u-du;
     end;
    x1:=x;
    y1:=y;
 
    u:=pi;
    for i:=1 to k2 do
     begin
     x:=xc+round(r*cos(u));
     y:=yc-round(r*sin(u));
     u:=u-du;
     end;
    x2:=x;
    y2:=y;
 
    line(x1,y1,x2,y2);
 
    end;
readln
end.

вопрос: как реализовать проверку есть ли замкнутая система линий или нет? (по плану если есть, то break, поэтому цикл бесконечный)

Добавлено через 4 часа 1 минуту
это нереально/очень сложно или просто никто не взялся?..

	27.04.2011, 22:54