Untitled

HunteryS

Oct 30th, 2024

118

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Delphi 8.88 KB | None | 0 0

raw download clone embed print report

Program Laba2_3;
uses
System.SysUtils;
Type
TMatrix = Array Of Array Of Real;
Var
N: Integer;
Matrix: TMatrix;
Function GetNum(Min, Max: Integer): Integer;
Var
Num: Integer;
IsCorrect: Boolean;
Begin
Repeat
IsCorrect := True;
Try
Readln(Num);
Except
Write('Некорректный ввод! Введите значение еще раз: ');
IsCorrect := False;
End;
If IsCorrect And ((Num < Min) Or (Num > Max)) Then
Begin
Write('Недопустимое значение! Введите значение еще раз: ');
IsCorrect := False;
End;
Until IsCorrect;
GetNum := Num;
End;
Function CheckFile(Path: String; Var InputInt: Integer): Boolean;
Var
IsFileCorrect: Boolean;
InputFile: TextFile;
Const
MIN_N = 1;
MAX_N = 10;
Begin
IsFileCorrect := True;
If FileExists(Path) Then
Begin
AssignFile(InputFile, Path);
If (ExtractFileExt(Path) = '.txt') Then
Begin
IsFileCorrect := True;
Try
Reset(InputFile);
Except
Writeln('Не удалось открыть файл!');
IsFileCorrect := False;
End;
If IsFileCorrect Then
Begin
Try
Read(InputFile, InputInt);
Except
Writeln('Данные в файле представлены в неправильном формате!');
IsFileCorrect := False;
End;
End;
If IsFileCorrect And (EoF(InputFile)) Then
Begin
Writeln('Данные в файле представлены в неправильном формате!');
IsFileCorrect := False;
End;
If IsFileCorrect And ((InputInt < MIN_N) Or (InputInt > MAX_N)) Then
Begin
Writeln('Значение выходит за возможные пределы!');
IsFileCorrect := False;
End;
Try
CloseFile(InputFile);
Except
End;
End
Else
Begin
IsFileCorrect := False;
Writeln('Файла не типа txt!');
End;
End
Else
Begin
Writeln('Файла по данному пути не существует!');
IsFileCorrect := False;
End;
CheckFile := IsFileCorrect;
End;
Function InputN(): Integer;
Var
Choice, Num: Integer;
PathFile: String;
IsInputFromFileSuccessfully: Boolean;
Const
MIN_N = 1;
MAX_N = 10;
Begin
Write('Выберите вариант ввода:', #10, '1. Ввод из консоли', #10, '2. Ввод из файла',
#10, 'Использовать вариант: ');
Choice := GetNum(1, 2);
If Choice = 1 Then
Begin
Writeln('Введите порядок матрицы N от ', MIN_N, ' до ', MAX_N, ': ');
Num := GetNum(MIN_N, MAX_N);
End
Else
Begin
Writeln('Файл должен содержать значение порядка ');
Writeln('Порядок матрицы N (от ', MIN_N, ' до ', MAX_N, ')');
Repeat
Write('Введите путь к файлу с его расширением: ');
Readln(PathFile);
IsInputFromFileSuccessfully := CheckFile(PathFile, Num);
Until IsInputFromFileSuccessfully;
End;
InputN := Num;
End;
Procedure FillMatrixFromKeyboard(Var Matrix: TMatrix; N: Integer);
Var
I, J: Integer;
IsCorrect: Boolean;
Begin
SetLength(Matrix, N, N);
For I := 0 To High(Matrix) Do
Begin
For J := 0 To High(Matrix) Do
Begin
Write('Введите элемент [', I + 1, ',', J + 1, ']: ');
Repeat
IsCorrect := True;
Try
Readln(Matrix[I][J]);
Except
IsCorrect := False;
End;
If (Not IsCorrect) Or (Matrix[I][J] < -10000) Or (Matrix[I][J] > 10000) Then
Begin
IsCorrect := False;
Writeln('Файл содержит числа, выходящие за пределы ограничения, или некорректное значение');
End;
Until IsCorrect;
End;
End;
End;
Procedure FillMatrixFromFile(Var Matrix: TMatrix; N: Integer; FilePath: String);
Var
InputFile: TextFile;
I, J, Correct: Integer;
IsCorrect : Boolean;
Begin
SetLength(Matrix, N, N);
AssignFile(InputFile, FilePath);
Reset(InputFile);
For I := 0 To High(Matrix) Do
For J := 0 To High(Matrix) Do
Begin
Repeat
IsCorrect := True;
Try
Read(InputFile, Matrix[I][J]);
Except
IsCorrect := False;
End;
If (Not IsCorrect) Or (Matrix[I,J] < -10000) Or (Matrix[I,J] > 10000) Then
Begin
IsCorrect := False;
Writeln('Неверный ввод данных! Исправьте элемент матрицы с адресом ', I+1, ' и ', J+1, ' и перезапустите программу. Файл содержит числа, выходящие за пределы ограничения, или некорректное значение');
Correct := 0;
While (Correct = 0) Do
Readln;
End;
Until IsCorrect;
End;
CloseFile(InputFile);
End;
Function CountRowsWithSumGreaterThanOne(Const Matrix: TMatrix; N: Integer): Integer;
Var
I, J: Integer;
Sum: Real;
Begin
Result := 0;
For I := 0 To High(Matrix) Do
Begin
Sum := 0;
For J := 0 To High(Matrix) Do
Sum := Sum + Abs(Matrix[I][J]);
If Sum > 1 Then
Inc(Result);
End;
End;
Procedure OutputMatrix(Const Matrix: TMatrix; N: Integer);
Var
I, J: Integer;
Begin
Writeln('Матрица:');
For I := 0 To High(Matrix) Do
Begin
For J := 0 To High(Matrix) Do
Begin
Write(Matrix[I][J]:8:3);
End;
Writeln;
End;
End;
Procedure OutputResult(Const Matrix: TMatrix; N, Count: Integer);
Var
OutputFile: TextFile;
Path: String;
I, J: Integer;
IsFileCorrect : Boolean;
Begin
Write('Введите путь к выходному файлу: ');
Readln(Path);
AssignFile(OutputFile, Path);
IsFileCorrect := True;
If (ExtractFileExt(Path) = '.txt') Then
Begin
Writeln(OutputFile, 'Матрица:');
For I := 0 To High(Matrix) Do
Begin
For J := 0 To High(Matrix) Do
Begin
Write(OutputFile, Matrix[I][J]:8:3);
Writeln(OutputFile);
End;
End;
Writeln(OutputFile, 'Количество строк с суммой модулей элементов больше 1: ', Count);
CloseFile(OutputFile);
Writeln('Результат и матрица успешно записаны в файл ', Path);
End
Else
Begin
IsFileCorrect := False;
Writeln('Файл не типа txt!');
End;
Rewrite(OutputFile);
End;
Procedure ProcessMatrixTask;
Var
N, Count, InputChoice: Integer;
Matrix: TMatrix;
FilePath: String;
Begin
Writeln('Данная программа подсчитает количество строк в матрице, сумма модулей элементов которых больше 1.');
N := InputN;
Writeln('Выберите способ заполнения матрицы:', #10, '1. Заполнение из консоли', #10, '2. Заполнение из файла');
InputChoice := GetNum(1, 2);
If InputChoice = 1 Then
FillMatrixFromKeyboard(Matrix, N)
Else
Begin
Write('Введите путь к файлу с элементами матрицы(Должен содержать числа от -10 000 до 10 000): ');
Readln(FilePath);
FillMatrixFromFile(Matrix, N, FilePath);
End;
OutputMatrix(Matrix, N);
Count := CountRowsWithSumGreaterThanOne(Matrix, N);
Writeln('Количество строк с суммой модулей элементов больше 1: ', Count);
OutputResult(Matrix, N, Count);
End;
Begin
ProcessMatrixTask;
Readln;
End.

Add Comment

Please, Sign In to add comment