Известны координаты точек треугольника по этим данным нужно найти площадь треугольника паскаль

NecChanel NecChanel    3   27.09.2019 16:30    0

Ответы
АлисаAprel АлисаAprel  08.10.2020 23:00

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var (Ax, Ay) := ReadReal2('Координаты x и y точки А:');

 var (Bx, By) := ReadReal2('Координаты x и y точки B:');

 var (Cx, Cy) := ReadReal2('Координаты x и y точки C:');

 var S := 0.5 * Abs((Ax - Cx) * (By - Cy) - (Bx - Cx) * (Ay - Cy));

 Println('Площадь треугольника равна', S)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика