Три точки на плоскости заданы координатами, определить, существует ли треугольник с такими вершинами (использовать тип record для описания координат Нужно написать в Delphi 7
Три точки на плоскости заданы координатами, определить, существует ли треугольник с такими вершинами (использовать тип record для описания координат Нужно написать в Delphi 7
double d1=x1*x1+y1*y1;
double d2=x2*x2+y2*y2;
double d3=x3*x3+y3*y3;
if(d1<d2 && d1<d3)cout<<x1<<','<<y1<<endl;
else if(d3<d2 && d3<d1)cout<<x3<<','<<y3<<endl;
else cout<<x2<<','<<y2<<endl;
Объяснение: