administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

SetRow и SetCol для последовательностей

Browse source
This commit is contained in:
miks1965 2018-07-17 22:54:18 +03:00
parent aa614f6e56
commit b0dc07a1ab
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
TestSuite/PowerConst.pas Normal file
View file

@ -0,0 +1,5 @@
const a = 2 ** 3;
begin
Assert(a = 8);
end.

6
bin/Lib/PABCSystem.pas
View file

@ -9376,6 +9376,9 @@ begin
Self[k, j] := a[j]
end;
/// Меняет строку k двумерного массива на другую строку
procedure SetRow<T>(Self: array [,] of T; k: integer; a: sequence of T); extensionmethod := Self.SetRow(k,a.ToArray);
/// Меняет столбец k двумерного массива на другой столбец
procedure SetCol<T>(Self: array [,] of T; k: integer; a: array of T); extensionmethod;
begin
@ -9385,6 +9388,9 @@ begin
Self[i, k] := a[i]
end;
/// Меняет столбец k двумерного массива на другой столбец
procedure SetCol<T>(Self: array [,] of T; k: integer; a: sequence of T); extensionmethod := Self.SetCol(k,a.ToArray);
/// Возвращает по заданному двумерному массиву последовательность (a[i,j],i,j)
function ElementsWithIndexes<T>(Self: array [,] of T): sequence of (T, integer, integer); extensionmethod;
begin