Lab_2.1

Program Lab_2_1;

{$APPTYPE CONSOLE}
{$R *.res}

Uses
    System.SysUtils;

Const
    MAX_VERTEX_NUMBER = 20;
    MIN_VERTEX_NUMBER = 3;
    MAX_COORDINATE = 100;
    MIN_COORDINATE = -100;
Var
    VertexNumber, I: Integer;
    PolygonSide, MinPolygonSide: Real;
    ArrOfX, ArrOfY: Array Of Integer;
    IsCorrect: Boolean;
Begin
    Writeln ('Данная программа находит длину саммой короткой стороны многоугольника с заданными координатами вершин');
    Writeln ('Диапазон количества вершин многоугольника: от ', MIN_VERTEX_NUMBER, ' до ', MAX_VERTEX_NUMBER);
    Repeat
        IsCorrect := True;
        Writeln ('Введите количество вершин многоугольника');
        Try
            Readln (VertexNumber);
        Except
            Writeln ('Введены некорректные данные');
            IsCorrect := False;
        End;
        If ((IsCorrect) And ((VertexNumber < MIN_VERTEX_NUMBER) Or (VertexNumber > MAX_VERTEX_NUMBER))) Then
        Begin
            Writeln ('Введено  число неверного диапазона');
            IsCorrect := False;
        End;
    Until (IsCorrect);
    SetLength (ArrOfX, VertexNumber);
    SetLength (ArrOfY, VertexNumber);
    Writeln ('Далее необходимо ввести координаты вершин многоугольника');
    Writeln ('Диапазон вводимых значений: от ', MIN_COORDINATE, ' до ', MAX_COORDINATE);
    I := 0;
    While (I < VertexNumber) Do
    Begin
        Repeat
            IsCorrect := True;
            Writeln ('Введите X-координату ', I + 1, ' вершины многоугольника');
            Try
                Readln(ArrOfX[I]);
            Except
                Writeln ('Введены некорректные данные');
                IsCorrect := False;
            End;
            If ((IsCorrect) And ((ArrOfX[I] < MIN_COORDINATE) Or (ArrOfX[I] > MAX_COORDINATE))) Then
            Begin
                Writeln ('Введено  число неверного диапазона');
                IsCorrect := False;
            End;
        Until (IsCorrect);
        Repeat
            IsCorrect := True;
            Writeln ('Введите Y-координату ', I + 1, ' вершины многоугольника');
            Try
                Readln (ArrOfY[I]);
            Except
                Writeln ('Введены некорректные данные');
                IsCorrect := False;
            End;
            If ((IsCorrect) And ((ArrOfY[I] < MIN_COORDINATE) Or (ArrOfY[I] > MAX_COORDINATE))) Then
            Begin
                Writeln ('Введено  число неверного диапазона');
                IsCorrect := False;
            End;
        Until (IsCorrect);
        Inc (I);
    End;
    Dec (VertexNumber);
    MinPolygonSide := Sqrt(2 * Sqr(MAX_COORDINATE - MIN_COORDINATE));
    For I := 0 To VertexNumber Do
    Begin
        If (I <> VertexNumber) Then
            PolygonSide := Sqrt(Sqr(Abs(ArrOfX[I + 1] - ArrOfX[I])) + Sqr(abs(arrOfY[I + 1] - ArrOfY[I])))
        Else
            PolygonSide := Sqrt(Sqr(Abs(arrOfX[0] - ArrOfX[I])) + Sqr(Abs(ArrOfY[0] - ArrOfY[I])));
        If (PolygonSide < MinPolygonSide) Then
            MinPolygonSide := PolygonSide;
    End;
    Writeln ('Длина самой короткой стороны - ', MinPolygonSide:3:1);
    Readln;
End.