9. Напишите функцию, вычисляющую длину отрезка по координатам его концов. Напишите программу, вычисляющую периметр треугольника по координатам его вершин с помощью этой функции.
Ответ
Вот пример программы на Паскале, которая вычисляет длину отрезка по координатам его концов с помощью функции distance, и затем вычисляет периметр треугольника по координатам его вершин:
program TrianglePerimeter;
uses
Math; // Импортируем модуль Math для использования функции Sqrt
type
Point = record
x, y: real;
end;
function distance(p1, p2: Point): real;
begin
distance := Sqrt(Sqr(p2.x - p1.x) + Sqr(p2.y - p1.y));
end;
var
p1, p2, p3: Point;
side1, side2, side3, perimeter: real;
begin
writeln('Введите координаты вершины 1:');
readln(p1.x, p1.y);
writeln('Введите координаты вершины 2:');
readln(p2.x, p2.y);
writeln('Введите координаты вершины 3:');
readln(p3.x, p3.y);
side1 := distance(p1, p2);
side2 := distance(p2, p3);
side3 := distance(p3, p1);
perimeter := side1 + side2 + side3;
writeln('Периметр треугольника:');
writeln(perimeter);
end.В этой программе мы определяем тип Point, который представляет координаты точки как пару действительных чисел x и y.
Затем мы определяем функцию distance, которая принимает две точки (p1 и p2) и использует формулу расстояния между двумя точками на плоскости, основанной на теореме Пифагора: sqrt((p2.x — p1.x)^2 + (p2.y — p1.y)^2).
Затем мы объявляем переменные p1, p2 и p3 типа Point, которые представляют вершины треугольника.
После этого мы запрашиваем у пользователя ввод координат вершин треугольника.
Затем мы вычисляем длины сторон треугольника, используя функцию distance для вычисления расстояний между точками.
Затем мы вычисляем периметр треугольника, складывая длины всех сторон.
В конце мы выводим значение периметра треугольника.
Пример работы программы:
Введите координаты вершины 1:
0 0
Введите координаты вершины 2:
0 1
Введите координаты вершины 3:
1 0
Периметр треугольника:
3.414213562373095