Question

Дано 2 треугольника. Координаты вершин с клавиатуры В программе должно быть первая процедура, вторая функция.В процедуре должно считать стороны треугольников(по формуле нахождение сторон через координаты), всё это должно быть выражено через одну переменную!!! (не знаю в цикле это как то чтоб через одну переменную и по двум точкам находить все стороны треугольников) в функции периметры треугольников. В программе сумму периметров. Помогите плиз.

Answer 1

Var
    p: real;
    a1, b1, c1: real;
    a2, b2, c2: real;

function SideLength(a1, a2, b1, b2: real): real;
begin
    SideLength := sqrt(sqr(a1 - b1) + sqr(a2 - b2));
end;

function Perimeter(a1, a2, b1, b2, c1, c2: real): real;
var
    a, b, c: real;
begin
    a := SideLength(a1, a2, b1, b2);
    b := SideLength(c1, c2, b1, b2);
    c := SideLength(a1, a2, c1, c2);
    Perimeter := a + b + c;
end;

begin
    writeln('Первый треугольник.');
    readln(a1, a2, b1, b2, c1, c2);
    p := Perimeter(a1, a2, b1, b2, c1, c2);
    
    writeln('Второй треугольник.');
    readln(a1, a2, b1, b2, c1, c2);
    
    writeln(p + Perimeter(a1, a2, b1, b2, c1, c2));
end.

Answer 2

Конечно, так нормальные люди не пишут, но это ради выполнения корявых требований процедуры и функции.

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
  Point=record
  x,y:real
  end;

function Len(A,B:Point):=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y));

procedure Sides(A,B,C:Point; var la,lb,lc:real);
begin
  la:=Len(B,C); lb:=Len(A,C); lc:=Len(A,B)
end;

function Perim(a,b,c:real):=a+b+c;

begin
  var a,b,c:Point;
  var l1,l2,l3:real;
  for var i:=1 to 2 do begin
    Writeln('Вводите парами координаты каждой  вершины треугольника;');
    Read(a.x,a.y,b.x,b.y,c.x,c.y);
    Sides(a,b,c,l1,l2,l3);
    Writeln('Периметр треугольника ',Perim(l1,l2,l3))
    end
end.

Answer 3

Для решения данной задачи, вам потребуется написать программу на языке программирования, которая будет считывать координаты вершин двух треугольников и вычислять их периметры.

Процедура для вычисления сторон треугольников

В процедуре вы можете использовать формулу для нахождения длин сторон треугольника по координатам его вершин. Однако, поскольку вы хотите выразить все через одну переменную, вам потребуется использовать циклы и условные операторы для обработки каждой пары вершин и вычисления длины стороны.

Вот пример кода на языке Python, который может помочь вам реализовать данную процедуру:

import math

def calculate_side_length(x1, y1, x2, y2):
    side_length = math.sqrt((x2 - x1)2 + (y2 - y1)2)
    return side_length

def calculate_triangle_perimeter(x1, y1, x2, y2, x3, y3):
    side1 = calculate_side_length(x1, y1, x2, y2)
    side2 = calculate_side_length(x2, y2, x3, y3)
    side3 = calculate_side_length(x3, y3, x1, y1)
    perimeter = side1 + side2 + side3
    return perimeter

# Пример использования процедуры
x1 = float(input("Введите координату x первой вершины первого треугольника: "))
y1 = float(input("Введите координату y первой вершины первого треугольника: "))
x2 = float(input("Введите координату x второй вершины первого треугольника: "))
y2 = float(input("Введите координату y второй вершины первого треугольника: "))
x3 = float(input("Введите координату x третьей вершины первого треугольника: "))
y3 = float(input("Введите координату y третьей вершины первого треугольника: "))

perimeter1 = calculate_triangle_perimeter(x1, y1, x2, y2, x3, y3)

# Повторите аналогичные шаги для второго треугольника

print("Сумма периметров двух треугольников:", perimeter1 + perimeter2)

Функция для вычисления периметра треугольника

Для вычисления периметра треугольника, вы можете использовать функцию `calculate_triangle_perimeter`, которую мы определили в процедуре выше. Функция принимает координаты трех вершин треугольника и возвращает его периметр.

Пример использования программы

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

Например, если вам нужно ввести координаты вершин первого треугольника: (0, 0), (3, 0), (0, 4), а вершин второго треугольника: (0, 0), (5, 0), (0, 12), то вы должны будете ввести следующие значения:

Введите координату x первой вершины первого треугольника: 0
Введите координату y первой вершины первого треугольника: 0
Введите координату x второй вершины первого треугольника: 3
Введите координату y второй вершины первого треугольника: 0
Введите координату x третьей вершины первого треугольника: 0
Введите координату y третьей вершины первого треугольника: 4
Введите координату x первой вершины второго треугольника: 0
Введите координату y первой вершины второго треугольника: 0
Введите координату x второй вершины второго треугольника: 5
Введите координату y второй вершины второго треугольника: 0
Введите координату x третьей вершины второго треугольника: 0
Введите координату y третьей вершины второго треугольника: 12

Результатом выполнения программы будет вывод суммы периметров двух треугольников.

Примечание: Вам может потребоваться адаптировать код для своего языка программирования или среды разработки.