Advertisement
dxvmxnd

Untitled

Oct 28th, 2023
19
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.80 KB | None | 0 0
  1.  
  2. Repeat
  3. IsCorrect := True;
  4. Writeln('Введите путь файла: ');
  5. Try
  6. Readln(Path);
  7. AssignFile(TFile, Path);
  8. Reset(TFile);
  9. Except
  10. IsCorrect := False;
  11. Writeln('Неверный путь файла!');
  12. End;
  13.  
  14. Until IsCorrect;
  15. IsCorrect := True;
  16. Writeln('Запись размера матрицы...');
  17. Try
  18. Readln(TFile, ISize);
  19. Except
  20. IsCorrect := False;
  21. End;
  22. If ((ISize < 1) Or (IsCorrect = False)) Then
  23. Begin
  24. Writeln('Ошибка! Неверный ввод размера! Измените входные данные в input.txt, затем перезапустите программу.');
  25. End
  26. Else
  27. Begin
  28. Writeln('Количество строк: ', ISize);
  29.  
  30. IsCorrect := True;
  31. Try
  32. Readln(TFile, JSize);
  33. Except
  34. IsCorrect := False;
  35. End;
  36. If ((JSize < 1) Or (IsCorrect = False)) Then
  37. Begin
  38. Writeln('Ошибка! Неверный ввод размера! Измените входные данные в input.txt, затем перезапустите программу.');
  39. End
  40. Else
  41. Begin
  42.  
  43.  
  44. Writeln('Количество столбцов: ', JSize);
  45.  
  46. LengthI := Isize - 1;
  47. LengthJ := Jsize - 1;
  48. SetLength(Matrix, ISize, JSize);
  49.  
  50. Writeln('Введенная матрица: ');
  51.  
  52. For I := 0 To LengthI Do
  53. Begin
  54. For J := 0 To LengthJ Do
  55. Begin
  56. Try
  57. Read(TFile, Matrix[I][J])
  58. Except
  59. IsCorrect := False;
  60. Writeln(' Неверный ввод данных! Исправьте пункт ', I+1, ' ', J+1, ' пункт!');
  61. End;
  62. Write(Matrix[I][J], ' ');
  63. End;
  64. Writeln;
  65. End;
  66. If (IsCorrect = False) Then
  67. Writeln('Неверный ввод данных! Исправьте данные в файле и перезапустите программу.')
  68. Else
  69. Begin
  70. MaxSum := MatrixCout(Matrix, JSize, ISize);
  71. Append(TFile);
  72. Writeln(TFile, 'Максимальная сумма модулей элементов строки: ', MaxSum);
  73. Writeln('Максимальная сумма модулей элементов строки: ', MaxSum);
  74. Writeln('Данные записаны в файл.');
  75. End;
  76.  
  77.  
  78.  
  79. End;
  80. End;
  81.  
  82. CloseFile(TFile);
  83.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement