Расчёт периметра прямоугольника по координатам вершин

&НаКлиенте
Процедура РассчитатьПериметр(Команда) // Вычислить 
    // Сбрасываем значения при повторном вызове процедуры
    Объект.Периметр = 0;
    ОчиститьСообщения();   
    // Устанавливаем переменные для читабельности кода
    АХ = Объект.АХ;           // Координата X вершины A
    АY = Объект.АY;             // Координата Y вершины A
    ВХ = Объект.ВХ;           // Координата X вершины B
    ВY = Объект.ВY;             // Координата Y вершины B
    СХ = Объект.СХ;           // Координата X вершины C
    СY = Объект.СY;             // Координата Y вершины C
    DX = Объект.DX;           // Координата X вершины D
    DY = Объект.DY;           // Координата Y вершины D
    Периметр = Объект.Периметр;      // Результат расчёта 
    // Проверка заполнения координат
    Если АХ = Неопределено Или АY = Неопределено
        Или ВХ = Неопределено Или ВY = Неопределено
        Или СХ = Неопределено Или СY = Неопределено
        Или DX = Неопределено Или DY = Неопределено Тогда
        Сообщить("Необходимо заполнить координаты всех вершин (A, B, C, D)!");
        Возврат;
    КонецЕсли;
    // Вычисляем длины всех сторон по формуле расстояния между точками
    СторонаAB = Sqrt((ВХ - АХ) * (ВХ - АХ) + (ВY - АY) * (ВY - АY));
    СторонаBC = Sqrt((СХ - ВХ) * (СХ - ВХ) + (СY - ВY) * (СY - ВY));
    СторонаCD = Sqrt((DX - СХ) * (DX - СХ) + (DY - СY) * (DY - СY));
    СторонаDA = Sqrt((АХ - DX) * (АХ - DX) + (АY - DY) * (АY - DY));
    // Проверяем, что это прямоугольник: противоположные стороны равны
    Если Окр(СторонаAB, 6) <> Окр(СторонаCD, 6)
        Или Окр(СторонаBC, 6) <> Окр(СторонаDA, 6) Тогда 
        Сообщить("Ошибка: фигура не является прямоугольником (противоположные стороны не равны)");
        Возврат;
    КонецЕсли;
    // Дополнительно проверяем перпендикулярность
    ВекторAB_X = ВХ - АХ;
    ВекторAB_Y = ВY - АY;
    ВекторAD_X = DX - АХ;
    ВекторAD_Y = DY - АY;
    СкалярноеПроизведение = ВекторAB_X * ВекторAD_X + ВекторAB_Y * ВекторAD_Y;
    Если Окр(СкалярноеПроизведение, 6) <> 0 Тогда
        Сообщить("Ошибка: фигура не является прямоугольником (углы не прямые)");
        Возврат;
    КонецЕсли;
    // Расчёт периметра
    Периметр = СторонаAB + СторонаBC + СторонаCD + СторонаDA;
    Объект.Периметр = Периметр;
КонецПроцедуры