Question

Составить блок-схему и программу. Условие задачи: Даны координаты вершин треугольника. Определить является ли треугольник равносторонним.

Answer 1

type point = record
            x,y: real;
     end;
var i: integer;
    a,b,c: real;
    pts: array[1..3] of point;
begin
  writeln('координаты точек - через пробел');
  for i:=1 to 3 do
  begin
    writeln('x',i,'  ','y',i);
    readln(pts[i].x,pts[i].y);
  end;
  a:=sqr(pts[1].x)+sqr(pts[1].y);
  b:=sqr(pts[2].x)+sqr(pts[2].y);
  c:=sqr(pts[3].x)+sqr(pts[3].y);
  if (a=b) and (a=c) then
  writeln('треугольник равносторонний')
  else  writeln('треугольник НЕ равносторонний');
end.