Question

Заданы координаты трех Вершин треугольника (x1, y1), (х2, y2), (x3, y3). найти его площадь. НАЙТИ ПО ПРОГРАММЕ ПАСКАЛЬ! ПОДРОБНО ПОЖАЛУЙСТА

Answer 1

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.

Answer 2

Для нахождения площади треугольника по заданным координатам его трех вершин (x1, y1), (x2, y2), (x3, y3) вам понадобится использовать формулу Герона или формулу площади треугольника через координаты вершин.

Формула Герона:

1. Найдите длины сторон треугольника с помощью формулы расстояния между двумя точками в декартовой системе координат: - Длина стороны a: √((x2 - x1)^2 + (y2 - y1)^2) - Длина стороны b: √((x3 - x2)^2 + (y3 - y2)^2) - Длина стороны c: √((x1 - x3)^2 + (y1 - y3)^2)

2. Вычислите полупериметр треугольника (s) по формуле: s = (a + b + c) / 2.

3. Найдите площадь треугольника по формуле Герона: S = √(s * (s - a) * (s - b) * (s - c)).

Формула площади треугольника через координаты вершин:

1. Найдите площадь треугольника по формуле: S = 0.5 * |(x1 * (y2 - y3) + x2 * (y3 - y1) + x3 * (y1 - y2))|.

Теперь давайте реализуем это в программе на языке Pascal.

program TriangleArea;
var
  x1, y1, x2, y2, x3, y3: real;
  a, b, c, s, area: real;
begin
  writeln('Введите координаты вершин треугольника:');
  write('x1: ');
  readln(x1);
  write('y1: ');
  readln(y1);
  write('x2: ');
  readln(x2);
  write('y2: ');
  readln(y2);
  write('x3: ');
  readln(x3);
  write('y3: ');
  readln(y3);

// Находим длины сторон треугольника
  a := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
  b := sqrt(sqr(x3 - x2) + sqr(y3 - y2));
  c := sqrt(sqr(x1 - x3) + sqr(y1 - y3));

// Вычисляем полупериметр
  s := (a + b + c) / 2;

// Находим площадь треугольника по формуле Герона
  area := sqrt(s * (s - a) * (s - b) * (s - c));

writeln('Площадь треугольника: ', area:0:2);
end.

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

Примечание: Убедитесь, что ваша среда разработки поддерживает язык Pascal и правильно обрабатывает ввод-вывод.