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, которая определяет, является ли треугольник с заданными вершинами равносторонним:

perlCopy code
program EquilateralTriangle;

var
  x1, y1, x2, y2, x3, y3: real;

begin
  writeln('Введите координаты вершин треугольника:');
  readln(x1, y1, x2, y2, x3, y3);
  
  if (sqrt(sqr(x1 - x2) + sqr(y1 - y2)) = sqrt(sqr(x2 - x3) + sqr(y2 - y3))) and
     (sqrt(sqr(x2 - x3) + sqr(y2 - y3)) = sqrt(sqr(x3 - x1) + sqr(y3 - y1))) then
    writeln('Треугольник равносторонний')
  else
    writeln('Треугольник не равносторонний');
  
  readln;
end.

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