Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Нужна помощь завтра сдавать задачи! Pascal ABC
Даны два треугольника ABC и DEF с координатами вершин (Ax,Ay), (Bx,By), (Cx,Cy), (Dx,Dy), (Ex,Ey), (Fx,Fy). Составьте алгоритм или программу, определяющую, какой из треугольников имеет большую площадь.

Ответ оставил Гость

Без проверки полагаем, что по заданным координатам точек можно построить треугольники.

//PascalABC.Net 3.0, сборка 1111
type
  Point=record
  x,y:double
  end;

function TriangleSquare(A,B,C:Point):double;
begin
  Result:=0.5*abs(A.x*(B.y-C.y)+B.x*(C.y-A.y)+C.x*(A.y-B.y))
end;

procedure GetPoint(c:char; var A:Point);
begin
  Write(Введите координаты точки ,c,: );
  Readln(A.x,A.y)
end;

var
  A:array[A..F] of Point;
  i:A..F;
  s1,s2:double;
begin
  for i:=A to F do GetPoint(i,A[i]);
  s1:=TriangleSquare(A[A],A[B],A[C]);
  s2:=TriangleSquare(A[D],A[E],A[F]);
  if s1>s2 then Writeln(Площадь первого треугольника больше)
  else
    if s2>s1 then Writeln(Площадь второго треугольника больше)
    else Writeln(Площади треугольников равны)
end.

Тестовое решение:
Введите координаты точки A: -4 3.7
Введите координаты точки B: -6.3 0
Введите координаты точки C: 10.2 5.93
Введите координаты точки D: 7.143 8.1
Введите координаты точки E: -6 -3
Введите координаты точки F: 7.4 -5.7
Площадь второго треугольника больше