Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Repeat
- IsCorrect := True;
- Writeln('Введите путь файла: ');
- Try
- Readln(Path);
- AssignFile(TFile, Path);
- Reset(TFile);
- Except
- IsCorrect := False;
- Writeln('Неверный путь файла!');
- End;
- Until IsCorrect;
- IsCorrect := True;
- Writeln('Запись размера матрицы...');
- Try
- Readln(TFile, ISize);
- Except
- IsCorrect := False;
- End;
- If ((ISize < 1) Or (IsCorrect = False)) Then
- Begin
- Writeln('Ошибка! Неверный ввод размера! Измените входные данные в input.txt, затем перезапустите программу.');
- End
- Else
- Begin
- Writeln('Количество строк: ', ISize);
- IsCorrect := True;
- Try
- Readln(TFile, JSize);
- Except
- IsCorrect := False;
- End;
- If ((JSize < 1) Or (IsCorrect = False)) Then
- Begin
- Writeln('Ошибка! Неверный ввод размера! Измените входные данные в input.txt, затем перезапустите программу.');
- End
- Else
- Begin
- Writeln('Количество столбцов: ', JSize);
- LengthI := Isize - 1;
- LengthJ := Jsize - 1;
- SetLength(Matrix, ISize, JSize);
- Writeln('Введенная матрица: ');
- For I := 0 To LengthI Do
- Begin
- For J := 0 To LengthJ Do
- Begin
- Try
- Read(TFile, Matrix[I][J])
- Except
- IsCorrect := False;
- Writeln(' Неверный ввод данных! Исправьте пункт ', I+1, ' ', J+1, ' пункт!');
- End;
- Write(Matrix[I][J], ' ');
- End;
- Writeln;
- End;
- If (IsCorrect = False) Then
- Writeln('Неверный ввод данных! Исправьте данные в файле и перезапустите программу.')
- Else
- Begin
- MaxSum := MatrixCout(Matrix, JSize, ISize);
- Append(TFile);
- Writeln(TFile, 'Максимальная сумма модулей элементов строки: ', MaxSum);
- Writeln('Максимальная сумма модулей элементов строки: ', MaxSum);
- Writeln('Данные записаны в файл.');
- End;
- End;
- End;
- CloseFile(TFile);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement