Например:
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 -