Опубликовано 26.01.2018 по предмету Информатика от Гость

На координатной плоскости заданы три точки может ли существовать треугольник с такими вершинами . Помогите пожалуйста составить программу

Ответ оставил Гость

Пусть даны координаты трёх точек на плоскости. Если они могут быть вершинами остроугольного треугольника, вычислите его площадь.
program prog11;

var
x1, y1, x2, y2, x3, y3: real;
a, b, c, s, p: real;

begin
writeln(Введите координаты а);readln(x1, y1);
writeln(Введите координаты b);readln(x1, y1);
writeln(Введите координаты c);readln(x3, y3);

a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
b := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
c := sqrt(sqr(x3 - x1) + sqr(y3 - y1));
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
if (a < b + c) and (b < a + c) and (c < a + b) then begin
writeln(Треугольник существует. )
end
else
writeln(Треугольник не существует. );

if(((a * a + b * b - c * c) / (2 * b * c)) > 0) and
(((b * b + c * c - a * a) / (2 * a * c)) > 0) and
(((c * c + a * a - b * b) / (2 * a * b)) > 0) then
begin
writeln(Треугольник остроугольный);

writeln(Площадь треугольника = , s);
end
else writeln(Треугольник неостроугольный);