Advertisement
believe_me

Untitled

Oct 27th, 2021
231
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 0.42 KB | None | 0 0
  1. begin;
  2. case UserWayOfInput = 2: begin;
  3. InputNumberOfLines();
  4. InputNumberOfColumns();
  5. Matrix = inputMatrixFromConsole(Matrix, NumberOfLines, NumberOfColumns);
  6. end;
  7. end;
  8. case UserWayOfInputOfInput = 2:
  9.  
  10. Path = InputPathToFile();
  11. reveiveNumberOfLinesFromFile(Path);
  12. reveiveNumberOfColumnsFromFile(Path);
  13. Matrix = reveiveMatrixFromFile(Path, NumberOfLines,
  14. NumberOfColumns, Matrix);
  15. end;
  16. RecieveMatrix := Matrix;
  17. end;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement