Одномерный массив, определить точки являющиеся вершинами равнобедренного треугольника

@LeXeR93 · Регистрация: 16.04.2011

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

Народ, Помогите пожалуйста!!!
В одномерном массиве с четным количеством элементов (2N) находятся координаты N точек плоскости. Они располагаются в следующем порядке: x1, у1, х2, у2, x3, y3 и т.д.
Определить номера точек, которые могут являться вершинами равнобедренного треугольника.

можт кто хоть алгоритм подскажет, как я понимаю нужно проверить на равенство двух сторон, и если эти стороны равны вывести номера точек..

нашел на форуме такую прогу, но только под Паскаль может кто-нибудь хотя бы ее под С++ переделает?

Pascal

uses crt;
const t=0.00001;
function Dlina(x1,y1,x2,y2:real):real;
begin
Dlina:=sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
function Ravn(x1,y1,x2,y2,x3,y3:real):boolean;
begin
if (abs(Dlina(x1,y1,x2,y2)-Dlina(x1,y1,x3,y3))<t)
or (abs(Dlina(x1,y1,x2,y2)-Dlina(x2,y2,x3,y3))<t)
or (abs(Dlina(x1,y1,x3,y3)-Dlina(x2,y2,x3,y3))<t)
then Ravn:=true else Ravn:=false;
end;
var a:array[1..200] of real;
    n,i,j,k,p:integer;
begin
clrscr;
randomize;
repeat
write('Введите количество точек, не менее 3 n=');
readln(n);
until n>=3;
n:=n*2;
writeln('Массив координат точек:');
for i:=1 to n do
a[i]:=5*random;
write('X=');
for i:=1 to n-1 do
if odd(i) then write(a[i]:4:1);
writeln;
write('Y=');
for i:=2 to n do
if i mod 2=0 then write(a[i]:4:1);
writeln;
writeln('Вершины равнобедренных треугольников:');
p:=0;
for i:=1 to n-5 do
for j:=i+2 to n-3 do
for k:=j+2 to n-1 do
if Ravn(a[i],a[i+1],a[j],a[j+1],a[k],a[k+1])then
 begin
  p:=1;
  writeln(i,',',i+1,'  ',j,',',j+1,'  ',k,',',k+1);
 end;
if p=0 then write('Таких нет!');
readln
end.

Добавлено через 3 часа 10 минут
фух... разобрался сам, если кому нужно - пишите, поделюсь кодом))

	16.04.2011, 17:07