Задание:
Нужно создать маленькую программку по информатике (readln,write ln,var)+ Паскаль Даны координаты 3 х точек. Найти Площадьтреугольника.
Решение:
Решение через площадь паралеллограма.type point=record x, y: real; end; var a, b, c, v1, v2: point; vector: real; begin read (a.x, a.y, b.x, b.y, c.x, c.y); v1.x: =b.x — a.x; v2.x: =c.x — a.x; v1.y: =b.y — a.y; v2.y: =c.y — a.y; vector: =v1.x*v2.y — v2.x*v1.y; writeln (abs (vector / 2); end.
Знаете другой ответ?