{* Задача426 *}

REM basic

' Вычислить периметр треугольника и площадь,если даны координаты вершин (x1;y1)(x2;y2)(x3;y3)


CLS
INPUT"vvedite koordinaty  x 1 tochki ", x1
INPUT"vvedite koordinaty  y 1 tochki ", y1
INPUT"vvedite koordinaty  x 2 tochki ", x2
INPUT"vvedite koordinaty  y 2 tochki ", y2
INPUT"vvedite koordinaty  x 3 tochki ", x3
INPUT"vvedite koordinaty  y 3 tochki ", y3
d1=SQR((x1-x2)^2+(y1-y2)^2)
d2=SQR((x1-x3)^2+(y1-y3)^2)
d3=SQR((x2-x3)^2+(y2-y3)^2)
p=d1+d2+d3
s=SQR(p/2*(p/2-d1)*(p/2-d2)*(p/2-d3))
PRINT"perimetr=";p
PRINT"ploshad=";s
End