Равнобедренные треугольники., Сколько равнобедренных треугольников получатся из N точек. Опции

[DarkWishmaster]

Вообщем дано N точек и их координаты:
Например:
N:=4
0 0
2 2
-2 2
2 -2 Сколько равнобедренных треугольников получатся если их соеденить?
Я попробовал так:
берем 1 точку и 2, мерим растояние(D), потом идём по другим точкам и мерим растояние от 1 до каждой точки, если совподает с (D) то inc(Count);
Потом 1 точка и 3 точка, мерим растояние и. т
Потом уже 2 и 3 точка, и.т
Всё равно бред получается, может у вас есть какие нибудь идеи.

  File  Edit  Search  Run  Compile  Debug  Tools  Options  Window  Help

║writeln(N);                                                                   
║for i:=1 to N do                                                              
║ writeln(x[i],',',y[i]);                                                      
║  i:=0;                                                                       
║             while i<N-2 do begin                                             
║                 inc(i);   k:=0;                                              
║                  while k<N-2 do begin                                        
║                    inc(k);    j:=0;                                          
║                                                                              
║                     dx:=abs(x[i]-x[i+k]);                                    
║                     dy:=abs(y[i]-y[i+k]);                                    
║                     while j<N-k-i do begin                                   
║                         inc(j);                                              
║                        if (dx=abs(x[i]-x[i+k+j]))                            
║                         and (dy=abs(y[i]-y[i+k+j])) then                     
║                          inc(M);                                             
║                   end;                                                       
║                 end;                                                         
║              end;                                                            

Сообщение отредактировано: DarkWishmaster - 10.02.2011 19:14

[volvo]

Повторяю вопрос Lapp-а: что заставляет тебя НЕ считать AOB равнобедренным треугольником?

[DarkWishmaster]

Повторяю вопрос Lapp-а: что заставляет тебя НЕ считать AOB равнобедренным треугольником?

Наверно потому что у АОВ нету 3 углов. Но википедия подсказала что "он называется вырожденным." так что извините, спасибо!

[Lapp]

Наверно потому что у АОВ нету 3 углов. Но википедия подсказала что "он называется вырожденным." так что извините, спасибо!

Тот случай, когда программа оказалась умнее своего создателя )). Кстати, не такой уж и редкий на самом деле, у меня так бывало не раз.

(volvo, спасибо))