Lab_2.4

Program Lab_2_4;

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

Uses
    System.SysUtils;

Type
    TMatrix = Array Of Array Of Integer;
    TArr = Array Of Integer;

Procedure WriteTask();
Begin
    Writeln('Данная программа находит седловую точку квадратной матрицы');
End;

Function FileInputPath(IsFileForRead: Boolean): String;
Var
    Path: String;
    IsCorrect: Boolean;
    F: TextFile;
Begin
    If (IsFileForRead) Then
        Write ('Введите путь к файлу для чтения: ')
    Else
        Write ('Введите путь к файлу для записи: ');
    Repeat
        IsCorrect := True;
        Readln(Path);
        AssignFile(F, Path);
        If Not(FileExists(Path)) Then
        Begin
            IsCorrect := False;
            Writeln ('Файл не найден. Повторите попытку...');
        End;
    Until (IsCorrect);
    FileInputPath := Path;
End;

Function FileInputMatrixOrder(Path: String): Integer;
Const
    MAX_ORDER = 10;
    MIN_ORDER = 2;
Var
    MatrixOrder: Integer;
    F: TextFile;
    IsCorrect, IsFileForRead: Boolean;
Begin
    IsFileForRead := True;
    Repeat
        IsCorrect := True;
        AssignFile(F, Path);
        Try
            Reset(F);
        Except
            Write ('Не удалось открыть файл. ');
            IsCorrect := False;
        End;
        If (IsCorrect) Then
            Try
                Readln (F, MatrixOrder);
            Except
                Write ('Некорректно введённый порядок матрицы. ');
                IsCorrect := False;
            End;
        If (IsCorrect) And ((MatrixOrder < MIN_ORDER) Or (MatrixOrder > MAX_ORDER)) Then
        Begin
            Write ('Порядок матрицы неверного диапазона! ');
            IsCorrect := False;
        End;
        If Not(IsCorrect) Then
        Begin
            Writeln('Повторите попытку...');
            Path := FileInputPath(IsFileForRead);
        End;
    Until (IsCorrect);
    CloseFile(F);
    FileInputMatrixOrder := MatrixOrder;
End;

Function FileMatrixInput(Path: String; Order: Integer): TMatrix;
Var
    Matrix: TMatrix;
    I, J: Integer;
    F: TextFile;
    IsCorrect, IsFileForRead: Boolean;
Begin
    IsFileForRead := True;
    SetLength(Matrix, Order, Order);
    Repeat
        IsCorrect := True;
        AssignFile(F, Path);
        Reset(F);
        Readln(F);
        I := 0;
        While (IsCorrect) And (I < Order) Do
        Begin
            J := 0;
            While (IsCorrect) And (J < Order) Do
            Begin
                Try
                    Read(F, Matrix[I][J]);
                Except
                    Writeln('Ошибка! Найдено некорректное значение элемента матрицы');
                    IsCorrect := False;
                    Dec(I);
                End;
                Inc(J);
            End;
            Inc(I);
        End;
        If Not(IsCorrect) Then
        Begin
            Writeln('Проверьте правильность введённых данных и повторите попытку...');
            Path := FileInputPath(IsFileForRead);
            AssignFile(F, Path);
        End;
    Until (IsCorrect);
    CloseFile(F);
    FileMatrixInput := Matrix;
End;

Function ConsoleInputMatrixOrder(): Integer;
Const
    MIN_ORDER = 2;
    MAX_ORDER = 10;
Var
    Order: Integer;
    IsCorrect: Boolean;
Begin
    Repeat
        Writeln ('Введите порядок квадратной матрицы');
        IsCorrect := True;
        Try
            Readln (Order);
        Except
            Writeln ('Ошибка ввода! Повторите попытку...');
            IsCorrect := False;
        End;
        If ((IsCorrect) And ((Order < MIN_ORDER) Or (Order > MAX_ORDER))) Then
        Begin
            Writeln ('Ошибка ввода! Проверьте, входит ли введённое значение в допустимый диапазон и повторите попытку...');
            IsCorrect := False;
        End;
    Until (IsCorrect);
    ConsoleInputMatrixOrder := Order;
End;

Function ConsoleMatrixCreation(Order: Integer): TMatrix;
Const
    MIN_ELEMENT = -2147483648;
    MAX_ELEMENT = 2147483648;
Var
    I, J: Integer;
    IsCorrect: Boolean;
    Matrix: TMatrix;
Begin
    SetLength (Matrix, Order, Order);
    For I := 0 To High(Matrix) Do
        For J := 0 To High(Matrix) Do
            Repeat
                Writeln ('Введите ', (J + 1), ' элемент ', (I + 1), ' строки');
                IsCorrect := True;
                Try
                    Readln (Matrix[I][J]);
                Except
                    Writeln ('Ошибка ввода! Повторите попытку...');
                    IsCorrect := False;
                End;
                If ((IsCorrect) And ((Matrix[I][J] < MIN_ELEMENT) Or (Matrix[I][J] > MAX_ELEMENT))) Then
                Begin
                    Writeln ('Ошибка ввода! Введено число неверного диапазона');
                    IsCorrect := False;
                End;
            Until (IsCorrect);
    ConsoleMatrixCreation := Matrix;
End;

Procedure ConsolMatrixOutput(Matrix: TMatrix);
Var
    I, J: Integer;
Begin
    Writeln ('Исходная матрица:');
    For I := 0 To High(Matrix) Do
    Begin
        For J := 0 To High(Matrix) Do
            Write (Matrix[I][J], ' ');
        Writeln;
    End;
End;

Function SmallestElementsInLine(Matrix: TMatrix; Order: Integer): TArr;
Var
    I, J, Min: Integer;
    MinIndexes: TArr;
Begin
    SetLength (MinIndexes, Order);
    For I := 0 To High(Matrix) Do
    Begin
        Min := Matrix[I][0];
        MinIndexes[I] := 0;
        For J := 1 To High(Matrix) Do
            If (Matrix[I][J] <= Min) Then
            Begin
                Min := Matrix[I][J];
                MinIndexes[I] := J;
            End;
    End;
    SmallestElementsInLine := MinIndexes;
End;

Function LargestElementsInColumn(Matrix: TMatrix; Order: Integer): TArr;
Var
    I, J, Max: Integer;
    MaxIndexes: TArr;
Begin
    SetLength (MaxIndexes, Order);
    For J := 0 To High(Matrix) Do
    Begin
        Max := Matrix[0][J];
        MaxIndexes[J] := 0;
        For I := 1 To High(Matrix) Do
            If (Matrix[I][J] >= Max) Then
            Begin
                Max := Matrix[I][J];
                MaxIndexes[J] := I;
            End;
    End;
    LargestElementsInColumn := MaxIndexes;
End;

Procedure FindingMatrixSaddlePoints(Matrix: TMatrix; IsConsoleAnswer: Boolean);
Var
    MaxElemIndexes, MinElemIndexes: TArr;
    I, J, Order, SaddlePoint: Integer;
    IsSaddlePoint, PathForRead, IsCorrect: Boolean;
    Path: String;
    F: TextFile;
Begin
    Order := High(Matrix) + 1;
    MinElemIndexes := SmallestElementsInLine(Matrix, Order);
    MaxElemIndexes := LargestElementsInColumn(Matrix, Order);
    For I := 0 To High(Matrix) Do
        For J := 0 To High(Matrix) Do
            If (MinElemIndexes[I] = J) And (MaxElemIndexes[J] = I) Then
            Begin
                SaddlePoint := Matrix[I][J];
                IsSaddlePoint := True;
            End;
    If (IsConsoleAnswer) Then
    Begin
        If (IsSaddlePoint) Then
            Write ('Седловая точка матрицы: ', SaddlePoint)
        Else
            Write ('Седловой точки нет');
    End
    Else
    Begin
        PathForRead := False;
        Repeat
            IsCorrect := True;
            Path := FileInputPath(PathForRead);
            AssignFile(F, Path);
            Try
                ReWrite(F);
            Except
                Writeln ('Не удалось открыть файл. Повторите попытку...');
                IsCorrect := False;
            End;
        Until (IsCorrect);
        If (IsSaddlePoint) Then
            Write (F, 'Седловая точка матрицы: ', SaddlePoint)
        Else
            Write (F, 'Седловой точки нет');
        CloseFile(F);
        Writeln ('Седловая точка матрицы записана в файл');
    End;
End;

Function FileChoice(): TMatrix;
Var
    Path: String;
    Matrix: TMatrix;
    Order: Integer;
    IsPathForRead: Boolean;
Begin
    IsPathForRead := True;
    Path := FileInputPath(IsPathForRead);
    Order := FileInputMatrixOrder(Path);
    SetLength(Matrix, Order, Order);
    Matrix := FileMatrixInput(Path, Order);
    FileChoice := Matrix;
End;

Function ConsoleChoice(): TMatrix;
Var
    Order, SaddlePoint: Integer;
    Matrix: TMatrix;
Begin
    Order := ConsoleInputMatrixOrder();
    Matrix := ConsoleMatrixCreation(Order);
    ConsolMatrixOutput(Matrix);
    ConsoleChoice := Matrix;
End;

Function ChooseOutputMethod(): Integer;
Var
    IsCorrect: Boolean;
    Choice: Integer;
Begin
    Repeat
        IsCorrect := True;
        Try
            Readln(Choice);
        Except
            Writeln ('Число введено некорректно. Повторите попытку...');
            IsCorrect := False;
        End;
        If (IsCorrect) And (Choice <> 1) And (Choice <> 2) Then
        Begin
            Writeln ('Введите либо 1, либо 2. Ваш выбор: ');
            IsCorrect := False;
        End;
    Until (IsCorrect);
    ChooseOutputMethod := Choice;
End;

Procedure Solution();
Var
    Path: String;
    Matrix: TMatrix;
    Choice: Integer;
    IsCorrect, IsConsoleAnswer, PathForRead: Boolean;
Begin
    IsConsoleAnswer := False;
    Writeln ('Введите число, чтобы выбрать способ решения задания: 1 - через консоль, 2 - через файл');
    Choice := ChooseOutputMethod();
    If (Choice = 1) Then
    Begin
        IsConsoleAnswer := True;
        Matrix := ConsoleChoice();
        FindingMatrixSaddlePoints(Matrix, IsConsoleAnswer);
    End
    Else
    Begin
        Matrix := FileChoice();
        Writeln ('Введите число, чтобы выбрать способ вывода решения задания: 1 - через консоль, 2 - через файл');
        Choice := ChooseOutputMethod();
        If (Choice = 1) Then
        Begin
            IsConsoleAnswer := True;
            FindingMatrixSaddlePoints(Matrix, IsConsoleAnswer);
        End
        Else
            FindingMatrixSaddlePoints(Matrix, IsConsoleAnswer);
    End;
End;

Begin
    WriteTask();
    Solution();
    Readln;
End.