Question

Даны действительные числа x1,y1,x2,y2,x3,y3. Выясните является треугольник с такими вершинами равносторонний. Помогите!! Pascal

Answer 1

Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]=st[2]) and (st[2]=st[3]) then write('треугольник равносторонний') else write('треугольник не равносторонний');
end.

Answer 2

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

В Pascal коде это можно сделать следующим образом:

pascalCopy code
function Distance(x1, y1, x2, y2: Double): Double;
begin
  Result := Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1));
end;

function IsEquilateral(x1, y1, x2, y2, x3, y3: Double): Boolean;
var
  side1, side2, side3: Double;
begin
  // Вычисляем длины всех сторон треугольника
  side1 := Distance(x1, y1, x2, y2);
  side2 := Distance(x2, y2, x3, y3);
  side3 := Distance(x3, y3, x1, y1);

  // Проверяем, равны ли все стороны треугольника
  Result := (side1 = side2) and (side2 = side3);
end;

Пример использования:

pascalCopy code
var
  x1, y1, x2, y2, x3, y3: Double;
  equilateral: Boolean;
begin
  // Задаем координаты вершин треугольника
  x1 := 0.0;
  y1 := 0.0;
  x2 := 1.0;
  y2 := 0.0;
  x3 := 0.5;
  y3 := Sqrt(3) / 2.0;

  // Проверяем, является ли треугольник равносторонним
  equilateral := IsEquilateral(x1, y1, x2, y2, x3, y3);

  // Выводим результат
  if equilateral then
    WriteLn('Треугольник является равносторонним.')
  else
    WriteLn('Треугольник не является равносторонним.');
end.

В этом примере мы задали координаты трех вершин треугольника и вызвали функцию IsEquilateral, чтобы определить, является ли треугольник равносторонним. Результат будет выведен на экран.