System Center Configuration Manager 2016. Как получить список компьютеров Сергей Болдин SELECT dbo.System_DATA.Name0, dbo.System_DATA.SystemRole0, dbo.System_DATA.SystemType0, dbo.v_GS_OPERATING_SYSTEM.Caption0, dbo.v_GS_OPERATING_SYSTEM.Version0 FROM dbo.System_DATA LEFT OUTER JOIN dbo.v_GS_OPERATING_SYSTEM ON dbo.System_DATA.MachineID dbo.v_GS_OPERATING_SYSTEM.ResourceID WHERE (dbo.System_DATA.SystemRole0 NOT LIKE '%Server%') ORDER BY dbo.System_DATA.Name0 OS | where (Version == '10.0.17134') OS | where Version like '10%' OS | where Version like ‘%workstation%10%’) ----------------------------------------------------------------------------------------- Запуск современных программ на устаревшем дистрибутиве Linux Игорь Орещенков $ file /lib/ld-2.6.1.so $ file palemoon/palemoon $ ldd palemoon/palemoon $ env LD_LIBRARY_PATH=$HOME/usr/lib palemoon/palemoon $ strings /lib/ld-2.6.1.so | grep /lib $ tar jxf palemoon-28.1.0.linux-i686.tar.bz2 $ palemoon/palemoon $ file -L palemoon/*.so ./configure --prefix=$PREFIX; make; make install #!/bin/sh PREFIX=$HOME/usr PATH=$PREFIX/bin:$PATH PKG_CONFIG_PATH=$PREFIX/lib/pkgconfig LD_LIBRARY_PATH=$PREFIX/lib:/lib:/usr/lib export PKG_CONFIG_PATH LD_LIBRARY_PATH $ source build.env $ ln -s mpc-1.0.3 mpc $ ln -s mpfr-3.1.4 mpfr $ ln -s isl-0.18 isl $ ln -s gmp-6.1.0 gmp $ ../../gcc-4.8.2/configure --prefix=$PREFIX --enable-languages=c,c++ make; make install $ HEADERS=$HOME/work/kernel-2.6.38.8-headers $ make headers_install arch=i686 INSTALL_HDR_PATH=$HEADERS $ ../../glibc-2.16.0/configure --prefix=$HOME/glibc-2.16 i686-pc-linux CFLAGS='-O2 -march=i686' --with-headers=$HEADERS/include --enable-kernel=2.6.22 $ make $ env LANGUAGE=C LC_ALL=C make install $strings $HOME/glibc-2.16/lib/ld-2.16.so | grep /lib $HOME/glibc-2.16/lib/ /lib /usr/lib /usr/lib/vmware-tools/lib32/libgio-2.0.so.0 $ $HOME/usr/sbin/ldconfig $ env LD_LIBRARY_PATH=$HOME/glib-2.16/lib palemoon/palemoon $HOME/glibc-2.16/lib/ld-linux.so.2 --library-path $HOME/glibc-2.16/lib:$HOME/usr/lib palemoon/palemoon ./configure --prefix=$PREFIX; make; make install $ $HOME/glibc-2.16/lib/ld-linux.so.2 --library-path $HOME/glibc-2.16/lib:$HOME/usr/lib palemoon/palemoon & /sbin/ldconfig CFLAGS='-Wl,-rpath,ПУТЬ' CFLAGS='-L Путь1 -L Путь2' $ $HOME/usr/lib/ld-linux.so.2 --list $HOME/usr/bin/xz $ strings $HOME/usr/bin/xz | grep lib $ ./configure --prefix=$HOME/usr LDFLAGS='-Wl,-rpath,/lib' $ ldd $HOME/usr/bin/xz $ strings $HOME/usr/bin/xz | grep lib $ $HOME/usr/bin/ldd $HOME/usr/lib/libffi.so $ ./configure --prefix=$PREFIX LDFLAGS='-L/lib -L/usr/lib' ----------------------------------------------------------------------------------------- Программная реализация решения головоломки «Господин S и господин P» по Арсаку в 1С Кирилл Ткаченко Перем ВЕРХ_ГРАН; Перем ПростыеЧисла; Процедура Инициализация() Перем Решето; Перем А, Б; ВЕРХ_ГРАН = 99; Решето = Новый Массив(); ПростыеЧисла = Новый Массив(); Для А = 0 По ВЕРХ_ГРАН Цикл Решето.Добавить(Истина); КонецЦикла; Для А = 2 По ВЕРХ_ГРАН Цикл Если Решето[А] Тогда Б = А + А; Пока Б <= ВЕРХ_ГРАН Цикл Решето[Б] = Ложь; Б = Б + А; КонецЦикла; КонецЕсли; КонецЦикла; Для А = 2 По ВЕРХ_ГРАН Цикл Если Решето[А] Тогда ПростыеЧисла.Добавить(А); КонецЕсли; КонецЦикла; КонецПроцедуры Функция Простое(А) Возврат ПростыеЧисла.Найти(А) <> Неопределено; КонецФункции Функция УсловиеI(Сум) Перем А; Для А = 2 По Цел(Сум / 2) Цикл Если Простое(А) И Простое(Сум - А) Тогда Возврат Ложь; КонецЕсли; КонецЦикла; Возврат Истина; КонецФункции Функция УсловиеII(Произв) Перем А, Б; Перем Количество; Количество = 0; Для А = 2 По Цел(Sqrt(Произв)) Цикл Если Произв % А = 0 Тогда Б = Цел(Произв / А); Если (2 <= Б) И (Б <= ВЕРХ_ГРАН) ↵ И УсловиеI(А + Б) Тогда Количество = Количество + 1; КонецЕсли; КонецЕсли; КонецЦикла; Возврат Количество = 1; КонецФункции Функция УсловиеIII(Сум) Перем А; Перем НайденноеА; Перем Количество; НайденноеА = 0; Количество = 0; Если УсловиеI(Сум) Тогда Для А = 2 По Цел(Сум / 2) Цикл Если УсловиеII(А * (Сум - А)) Тогда НайденноеА = А; Количество = Количество + 1; КонецЕсли; КонецЦикла; КонецЕсли; Возврат ?(Количество = 1, НайденноеА, 0); КонецФункции Процедура Решение() Перем Сум; Перем А; Перем Рез; Для Сум = 2 По ВЕРХ_ГРАН Цикл А = УсловиеIII(Сум); Если А > 0 Тогда Рез = "" + А + ", " + (Сум - А); Сообщить(Рез); КонецЕсли; КонецЦикла; КонецПроцедуры Процедура Главная() Инициализация(); Решение(); КонецПроцедуры Главная(); ----------------------------------------------------------------------------------------- Простейший рекурсивный алгоритм с возвратом и эвристикой решения задачи о ходе коня Кирилл Ткаченко цел N = 8 цел NN цел Ndydx = 8 цел таб dy[1:Ndydx] цел таб dx[1:Ndydx] цел таб доска[1:N, 1:N] цел кодСимволаA1 цел лучшийВесНач алг SAMAG нач Инициализация доска[1, 1] := 1; если Решить(2, 1, 1) то ПечатьДоски; иначе вывод "Нет решений.", нс; все кон алг Инициализация нач цел y, x; NN := N * N; кодСимволаA1 := код("a") - 1; dy[1] := 2; dy[2] := 1; dy[3] := -1; dy[4] := -2; dy[5] := -2; dy[6] := -1; dy[7] := 1; dy[8] := 2; dx[1] := 1; dx[2] := 2; dx[3] := 2; dx[4] := 1; dx[5] := -1; dx[6] := -2; dx[7] := -2; dx[8] := -1; лучшийВесНач := (Ndydx + 1) * (Ndydx + 1); нц для y от 1 до N нц для x от 1 до N доска[y, x] := 0; кц кц кон алг ПечатьДоски нач цел y, x; нц для y от N до 1 шаг -1 вывод y, " "; нц для x от 1 до N вывод доска[y, x]:4; кц вывод нс; кц вывод " "; нц для x от 1 до N вывод " ", символ(кодСимволаA1 + x); кц вывод нс; кон алг лог МожноХодить(цел y, цел x) нач знач := (1 <= y) и (y <= N) и (1 <= x) и (x <= N) ↵ и (доска[y, x] = 0); кон алг цел ЛучшийХод(цел y, цел x) нач цел лучшееНапр, лучшийВес; цел напр, напр2, вес; цел ny, nx; лучшееНапр := -1; лучшийВес := лучшийВесНач; нц для напр от 1 до Ndydx ny := y + dy[напр]; nx := x + dx[напр]; если МожноХодить(ny, nx) то вес := 0; нц для напр2 от 1 до Ndydx если МожноХодить(ny + dy[напр2], nx + dx[напр2]) то вес := вес + 1; все кц если вес < лучшийВес то лучшееНапр := напр; лучшийВес := вес; все все кц знач := лучшееНапр; кон алг лог Решить(цел номерХода, цел y, цел x) нач цел напр; цел ny, nx; если номерХода > NN то знач := да; выход; все напр := ЛучшийХод(y, x); ny := y + dy[напр]; nx := x + dx[напр]; если МожноХодить(ny, nx) то доска[ny, nx] := номерХода; если Решить(номерХода + 1, ny, nx) то знач := да; выход; иначе доска[ny, nx] := 0; все все знач := нет; кон -----------------------------------------------------------------------------------------