Текущая версия на 15:16, 3 марта 2020

ASCANNA - это программа из справочника R266

ASCAN по выбранному измерению многомерного массива. (!) Возвращает МАССИВ индексов, найденных совпадений

ASCANNA( Массив, значение, измерение по которому искать )

Смотрите также

@@ Строка 2: / Строка 2: @@
   [[ASCAN]] по выбранному измерению многомерного массива. (!) Возвращает МАССИВ индексов, найденных совпадений
 [[ASCANNA]]( Массив, значение, измерение по которому искать )
-= Текст =
- // [[ASCANNA]](arr, cmp, [nn] )
- // (!) Возвращает МАССИВ индексов, найденных совпадений
- parameters  arr, cmp, nn:=1
- if [[Empty]](arr);  return(0);  end
- local  ii, imax:=Len(arr), is_blk:=Valtype(cmp)='B'
- result:={}
- for ii:=1 to imax
-   if is_blk
-     if Eval(cmp,arr[ii,nn],ii);  AADD(result,ii);  end
-   else
-     if arr[ii,nn] == cmp;  AADD(result,ii);  end
-   endif
- next
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]