Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Program L2_3_D;
- Uses
- System.SysUtils;
- Type
- TArray = Array of Array of Integer;
- Var
- IsCorrect : Boolean;
- Procedure TaskEssence();
- Begin
- Writeln('Данная программа находит наибольшую сумму модулей элементов строк матрицы.');
- End;
- Function PathChoice() : String;
- Var
- TFile : TextFile;
- Path : String;
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите путь файла: ');
- Try
- Readln(Path);
- AssignFile(TFile, Path);
- Reset(TFile);
- Except
- IsCorrect := False;
- Writeln('Неверный путь файла!');
- End;
- Until IsCorrect;
- Writeln('Файл успешно открыт!');
- PathChoice := Path;
- CloseFile(TFile);
- End;
- Function SizeRowFile(Path : String; var TFile : TextFile) : Integer;
- Var
- SizeI, Correct : Integer;
- Begin
- AssignFile(TFile, Path);
- Reset(TFile);
- IsCorrect := True;
- Writeln('Запись количества строк...');
- Try
- Readln(TFile, SizeI);
- Except
- IsCorrect := False;
- End;
- If ((SizeI < 1) Or (IsCorrect = False)) Then
- Begin
- Writeln('Ошибка! Неверный ввод размера! Измените входные данные в файле, затем перезапустите программу.');
- Correct := 0;
- While (Correct = 0) Do
- Readln;
- End;
- Writeln('Количество строк: ', SizeI);
- CloseFile(TFile);
- SizeRowFile := SizeI;
- End;
- Function SizeColumnFile(Path : String; var TFile : TextFile) : Integer;
- Var
- SizeJ, Correct : Integer;
- Begin
- AssignFile(TFile, Path);
- Reset(TFile);
- IsCorrect := True;
- Writeln('Запись количества столбцов...');
- Try
- Readln(TFile, SizeJ);
- Except
- IsCorrect := False;
- End;
- If ((SizeJ < 1) Or (IsCorrect = False)) Then
- Begin
- Writeln('Ошибка! Неверный ввод размера! Измените входные данные в файле, затем перезапустите программу.');
- Correct := 0;
- While (Correct = 0) Do
- Readln;
- End;
- Writeln('Количество столбцов: ', SizeJ);
- CloseFile(TFile);
- SizeColumnFile := SizeJ;
- End;
- Function MatrixReadFile(Path : String; SizeI, SizeJ : Integer; var TFile : TextFile; Matrix : TArray) : TArray;
- Var
- I, J, Correct : Integer;
- Line : String;
- Begin
- AssignFile(TFile, Path);
- Reset(TFile);
- Dec(SizeI);
- Dec(SizeJ);
- IsCorrect := True;
- Readln(TFile, Line);
- Readln(TFile, Line);
- Writeln('Запись матрицы...');
- For I := 0 To (SizeI) Do
- Begin
- For J := 0 To (SizeJ) Do
- Begin
- Try
- Read(TFile, Matrix[I][J])
- Except
- IsCorrect := False;
- Writeln(' Неверный ввод данных! Исправьте элемент матрицы с адресом', I+1, ' ', J+1, ' и перезапустите программу');
- Correct := 0;
- While (Correct = 0) Do
- Readln;
- End;
- Write(Matrix[I][J], ' ');
- End;
- Writeln;
- End;
- CloseFile(TFile);
- MatrixReadFile := Matrix;
- End;
- Function MatrixCout(const Arr : TArray; JSize, ISize : Integer) : Integer;
- Var
- Sum, MaxSum, I, J : Integer;
- Begin
- Sum := 0;
- MaxSum := 0;
- Dec(ISize);
- Dec(JSize);
- For I := 0 To ISize Do
- Begin
- For J := 0 To JSize Do
- Begin
- Sum := Sum + Abs(Arr[I][J]);
- End;
- If (Sum > MaxSum) Then
- MaxSum := Sum;
- Sum := 0;
- End;
- MatrixCout := MaxSum;
- End;
- Procedure Output(Result : Integer);
- Var
- TFile : TextFile;
- Path : String;
- Begin
- Writeln('Максимальное количество единиц, идущих подряд: ', Result);
- Repeat
- IsCorrect := True;
- Writeln('Введите путь файла для вывода: ');
- Try
- Readln(Path);
- AssignFile(TFile, Path);
- Reset(TFile);
- Except
- IsCorrect := False;
- Writeln('Неверный путь файла!');
- End;
- Until IsCorrect;
- Append(TFile);
- Writeln(TFile);
- Writeln(TFile, 'Максимальное количество единиц, идущих подряд: ', Result);
- CloseFile(TFile);
- Writeln('Данные записаны в файл.');
- Readln;
- End;
- Procedure FromFile;
- Var
- Path : String;
- SizeI, SizeJ, MaxRes : Integer;
- TFile : TextFile;
- Matrix : TArray;
- Begin
- Writeln('При записи данных из файла, учтите, что на первой строке написано количество строк матрицы, на второй - количество столбцов, а далее с новой строки прописывается сама матрица.');
- Path := PathChoice();
- SizeI := SizeRowFile(Path, TFile);
- SizeJ := SizeColumnFile(Path, TFile);
- SetLength(Matrix, SIzeI, SizeJ);
- Matrix := MatrixReadFile(Path, SizeI, SizeJ, TFile, Matrix);
- MaxRes := MatrixCout(Matrix, SizeJ, SizeI);
- Output(MaxRes);
- End;
- Function SizeRowConsole() : Integer;
- Var
- IsCorrect : Boolean;
- SizeI : Integer;
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите количество строк в матрице');
- Try
- Readln(SizeI);
- Except
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- If (SizeI < 1) Then
- Begin
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- Until IsCorrect;
- SizeRowConsole := SizeI;
- End;
- Function SizeColumnConsole : Integer;
- Var
- IsCorrect : Boolean;
- SizeJ : Integer;
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите количество столбцов в матрице');
- Try
- Readln(SizeJ);
- Except
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- If (SizeJ < 1) Then
- Begin
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- Until IsCorrect;
- SizeColumnConsole := SizeJ;
- End;
- Function MatrixReadConsole(SizeI, SizeJ : Integer; Matrix : TArray) : TArray;
- Var
- IsCorrect : Boolean;
- I, J : Integer;
- Begin
- Dec(SizeI);
- Dec(SizeJ);
- For I := 0 To SizeI Do
- Begin
- For J := 0 To SizeJ Do
- Begin
- Repeat
- IsCorrect := True;
- Writeln('Введите элемент с индексом ', I+1,',', J+1);
- Try
- Readln(Matrix[I][J]);
- Except
- IsCorrect := False;
- Writeln('Неверный тип данных');
- End;
- Until IsCorrect;
- Write(Matrix[I][J], ' ');
- End;
- Writeln;
- End;
- MatrixReadConsole := Matrix;
- End;
- Procedure FromConsole;
- Var
- SizeI, SizeJ, MaxSum : Integer;
- Matrix : TArray;
- Begin
- SizeI := SizeRowConsole;
- SizeJ := SizeColumnConsole;
- SetLength(Matrix, SizeI, SizeJ);
- Matrix := MatrixReadConsole(SizeI, SizeJ, Matrix);
- MaxSum := MatrixCout(Matrix, SizeI, SizeJ);
- Output(MaxSum);
- End;
- Procedure SourceChoice();
- Var
- ChoiceNumber : Integer;
- Begin
- Writeln('Выберите, откуда будут вводиться данные:');
- Repeat
- IsCorrect := True;
- Writeln('Введите 0, если с консоли; введите 1, если с файла.');
- Try
- Readln(ChoiceNumber);
- Except
- IsCorrect := False;
- End;
- If ((IsCorrect = False) Or ((ChoiceNumber <> 1) And (ChoiceNumber <> 0))) Then
- Begin
- Writeln('Неверный ввод данных!');
- IsCorrect := False;
- End;
- Until IsCorrect;
- If (ChoiceNumber = 0) Then
- FromConsole()
- Else
- FromFile();
- End;
- Begin
- TaskEssence();
- SourceChoice();
- End.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement