/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
TestSuite/CompilationSamples/CreateElementFromMatrix.pas
19 строк
359 B
Бондарев Иван
bug fix #671
28 янв 2018, 16:51
28 янв 2018, 16:51
64a33a0
Код
Авторство
О чём код?
{function GetElementFromMatrix(fname: string; i, j: integer): integer; begin assert((fname <> '') and (i > 0) and (j > 0)); try var f := OpenBinary&<integer>(fname); try var arr := f.Elements.ToArray; var size := round(sqrt(f.FileSize)); finally f.Close; end; except writeln('File Error'); end; end;} begin end.