Форум
Последние изображения
Регистрация
Вход
Процедура последовательности из 0 и 1 длины n:
Таким методом можно подсчитывать количество вариантов, искать оптимальное решение и генерировать объекты.
- Код:
Var a:array[1..maxN] of integer;
Procedure Gen(n, k: integer);
Var i: integer;
Begin
if k = n + 1 then
begin
For i := 1 to n do write(a[i]);
exit;
end else
begin
a[k] := 0;
gen(n, k + 1);
a[k] := 1;
gen(n, k + 1);
end;
End;
Таким методом можно подсчитывать количество вариантов, искать оптимальное решение и генерировать объекты.
» требуется несколько JS разработчиков
» Защита приложения от взлома
» Ищите программиста или дизайнера?
» Создание и продвижение сайтов, их развитие.
» Исходники для студентов + скайп-консультации,помощь в написании программ
» IT- технологии для развития бизнеса
» Стенли Кубрик "С Широко закрытыми Глазами"
» Каталог популярных хостинг компаний