Question

Программа Pascal. Даны координаты 3 точек x1,x2,x3, y1,y2,y3, которые представляют собой вершины треугольника. Вычислить а) Длины сторон треугольника б)Площадь треугольника

Answer 1

Var
 X1,Y1,X2,Y2,X3,Y3:real;
 A,B,C:real;

Begin
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(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.

Answer 2

Для решения этой задачи вам понадобится использовать формулы для вычисления длин сторон треугольника и площади треугольника. Вот подробное описание программы на языке Pascal:

1. Начните с объявления переменных. Вам понадобятся переменные для координат вершин треугольника (x1, y1, x2, y2, x3, y3), а также переменные для длин сторон треугольника (a, b, c) и площади треугольника (s).

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

2. Считайте значения координат вершин треугольника с помощью функции ReadLn().

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

3. Вычислите длины сторон треугольника с помощью формулы для расстояния между двумя точками. Для вычисления квадратного корня используйте функцию Sqrt().

a := Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1));
b := Sqrt(Sqr(x3 - x2) + Sqr(y3 - y2));
c := Sqrt(Sqr(x1 - x3) + Sqr(y1 - y3));

4. Вычислите площадь треугольника с помощью формулы Герона.

s := 0.5 * Sqrt((a + b + c) * (a + b - c) * (a + c - b) * (b + c - a));

5. Выведите результаты на экран с помощью функции WriteLn().

WriteLn('Длины сторон треугольника: ');
WriteLn('a = ', a);
WriteLn('b = ', b);
WriteLn('c = ', c);

WriteLn('Площадь треугольника: ', s);

6. Завершите программу с помощью функции ReadLn().

ReadLn;

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