Заданы координаты трех вершин треугольника (x1, - вопрос №1461711112233 от unicorncolever 03.05.2023 04:57

Question

Информатика: Заданы координаты трех вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его периметр и площадь. продолжите программу на паскаль! program нахождение площади и периметра треугольника; var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, p, s: real; begin readln (x1, y1, x2, y2, x3, y3); d1: = sqrt (sqr(x2-x1) + sqr (y2-y1))

unicorncolever · Answer

Program Нахождение площади и периметра треугольника;

var x1, y1, x2, y2, x3, y3, a, b, c, p, d1, d2, d3, P,p, S: real;

Begin

readln (x1, y1, x2, y2, x3, y3);

d1:= sqrt (sqr(x2-x1) + sqr (y2-y1));

d2:= sqrt (sqr(x3-x2) + sqr (y3-y2));

d3:= sqrt (sqr(x1-x3) + sqr (y1-y3));

P:= d1+d2+d3;

p:=P/2;

S:= sqrt(p*(p-d1)*(p-d2)*(p-d3));

end.