1. Треугольник задан координатами вершин. Напишите программу вычисления его периметра и площади. Вычисление длин сторон оформить с помощью процедуры.

Объяснение:

-

чтобы подсчитать длину одной стороны необходимо 4 числа

X2,Y2

X1,Y1,X2,Y2,X3,Y3 - входные параметры

B

А,В,С - промежуточные параметры P,S - выходные периметр, площадь

P1 - полупериметр

X1,Y1 C X3,Y3

- формула для подсчёта длины:

A=/(x2-xl)*(x2 -xl) +(y2 - yl)*(y2-yl)

Какая функция в Паскале означает корень квадратный? - SQRT означает возведение в квадрат - SQR

периметр находим по формуле Р= A+B+С

формула для нахождения площади: S= Pl*(Pl - A)*(Pl - B)*(Pl -C)

сколько раз будем обращаться к процедуре? - 3 раза

Пример решения задачи на языке Паскаль:

```
program TrianglePerimeterAndArea;

var
X1, Y1, X2, Y2, X3, Y3: real;
A, B, C, P, S: real;

procedure CalculateSideLengths;
begin
A := sqrt(sqr(X2 - X1) + sqr(Y2 - Y1));
B := sqrt(sqr(X3 - X2) + sqr(Y3 - Y2));
C := sqrt(sqr(X1 - X3) + sqr(Y1 - Y3));
end;

begin
writeln('Enter the coordinates of the triangle vertices:');
readln(X1, Y1, X2, Y2, X3, Y3);

CalculateSideLengths;

P := A + B + C;
writeln('Perimeter: ', P:0:2);

S := sqrt(P/2 * (P/2 - A) * (P/2 - B) * (P/2 - C));
writeln('Area: ', S:0:2);
end.
```

В этом примере мы сначала считываем координаты вершин, затем вызываем процедуру `CalculateSideLengths`, которая вычисляет длины сторон с помощью формулы, указанной в задании. Затем мы вычисляем периметр и площадь с помощью соответствующих формул и выводим результаты на экран. Мы обращаемся к процедуре `CalculateSideLengths` только один раз, так как она вычисляет все три стороны.