Вопрос школьника по предмету Информатика
Заданы координаты трех Вершин треугольника (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.
Похожие вопросы от пользователей
1)В моём положении,следовало,быть откровенным,не касаясь внутренних сторон дела .