Блог для маленьких школьников и их родителей
ШколаЛа

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

Автор:
Предмет: Информатика
Уровень: 5 - 9 класс

Два треугольника заданы координатами своих вершин определить радиусы окружностей вписанных в треугольник. (через Pascal)

пожалуйста

Ответов к вопросу: 1
  • mcernova57
    05.06.2024 | 22:15

    ===== PascalABC.NET =====
    function L(x1, y1, x2, y2: real) := Sqrt(Sqr(x2 — x1) + Sqr(y2 — y1));

    function r(xA, yA, xB, yB, xC, yC: real): real;
    begin
     var c := L(xA, yA, xB, yB);
     var a := L(xB, yB, xC, yC);
     var b := L(xA, yA, xC, yC);
     var p := (a + b + c) / 2;
     Result := Sqrt((p — a) * (p — b) * (p — c) / p)
    end;

    begin
     var xA, yA, xB, yB, xC, yC: real;
     loop 2 do
     begin
       Writeln(‘Введите координаты x и y каждой вершины треугольника’);
       Read(xA, yA, xB, yB, xC, yC);
       Writeln(‘Радиус вписанной окружности равен ‘, r(xA, yA, xB, yB, xC, yC))
     end
    end.

Ответить на вопрос:
:p :-p 8) 8-) :lol: =( :( :-( :8 ;) ;-) :(( :o:
Нажимая на кнопку я даю согласие на обработку персональных данных и принимаю политику конфиденциальности.