, очень надо. Имеются 3 высказывания

Question

Информатика: , очень надо. Имеются 3 высказывания

Саша12811 · Accepted Answer

Без проверки полагаем, что по заданным координатам точек можно построить треугольники. //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]);  ...

MOGZ ответил