Задача ** Pascal Даны координаты 3х вершин треугольника, найти длины всех его сторон и...

Question

Задача на Pascal Даны координаты 3х вершин треугольника, найти длины всех его сторон и площадь если треугольник существует помогите пожалуйста

Answer 1

Код в комментарии ниже:

Comments

uses crt;
var
ax, bx, cx, ay, by, cy : integer;
s, p, ab, bc, ac : real;
begin
write('Введите x точки A: ');
readln(ax);
write('Введите y точки A: ');
readln(ay);
write('Введите x точки B: ');
readln(bx);
write('Введите y точки B: ');
readln(by);
write('Введите x точки C: ');
readln(cx);
write('Введите y точки C: ');
readln(cy);

---

ab := sqrt(sqr(ax - bx) + sqr(ay - by));
bc := sqrt(sqr(bx - cx) + sqr(by - cy));
ac := sqrt(sqr(ax - cx) + sqr(ay - cy));
writeln('Длина AB=', ab);
writeln('Длина BC=', bc);
writeln('Длина AC=', ac);
write('Ответ: ');
if ((ab + bc > ac) and (ab + ac > bc) and (bc + ac > ab)) then
begin
p := (ab + bc + ac)/2;
s := sqrt(p * (p - ab) * (p - bc) * (p - ac));
writeln('S = ', s);
end
else
writeln('Треугольник не существует!');
readkey();
end.