Заданы координаты трех Вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его площадь. НАЙТИ ПО ПРОГРАММЕ ПАСКАЛЬ! ПОДРОБНО ПОЖАЛУЙСТА
Заданы координаты трех Вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его площадь.
НАЙТИ ПО ПРОГРАММЕ ПАСКАЛЬ! ПОДРОБНО ПОЖАЛУЙСТА
Гость
Ответ(ы) на вопрос:
ГостьVar
S,X1,X2,X3,Y1,Y2,Y3:real;
Begin
Write('(x1, y1) = ');Read(X1,Y1);
Write('(x2, y2) = ');Read(X2,Y2);
Write('(x3, y3) = ');Read(X3,Y3);
S:=Abs(1/2*((X1-X3)*(Y2-Y3) - (X2-X3)*(Y1-Y3)));
WriteLn('S = ',S);
End.
Не нашли ответ?
Похожие вопросы