Содержание
- 2. Алгоритм генерирования перестановок Общее число перестановок из k элементов равно k! (действительно, на первое место можем
- 3. Пусть k=3 Пример. Составить программу генерирующую все перестановки из первых k натуральных чисел. К вводит пользователь.
- 4. type stroka=string[10]; Var k:integer; procedure perest(n:integer; s:stroka); {n-элемент, который будет вставляться в строку. На данный момент,
- 5. else {В строке меньше n символов} for i:=1 to n do {Вставляем символ n в строку
- 6. Алгоритм генерирования множества всех подмножеств Допустим, что у нас есть множество S, состоящее из элементов a1,
- 7. Для примера возьмем N = 3. Запишем все числа от 0 до 2N - 1 =
- 8. var kol:longint; n,i:integer; a:array [1..100] of integer; {Массив из элементов множества (тип может быть любым)} procedure
- 9. if x mod 2=1 then write(a[p],' '); {Находим значение цифры в двоичной записи числа путем нахождения
- 10. writeln(‘Vvedite el. mnojestva’); for i:= 1 to n do read(a[i]); kol:=1 shl n; {Операция shl (побитовый
- 11. Алгоритмы генерирования m-элементных множеств Сочетание — это выбор из n предметов нескольких (m), причем порядок не
- 12. Первое сочетание — это первые m натуральных чисел. Затем, начиная с последнего элемента, увеличиваем его на
- 13. Var s: Array[1 .. 10] of integer; {массив для хранения текущего сочетания} n,m,i,j: integer; begin writeln(‘Vvedite
- 14. while (i>0) and (s[i]=n-m+i) do i:=i-1; {Пока не исчерпаны все элементы сочетания и i-й элемент принимает
- 15. Алгоритмы генерирования разбиения множества Разбиение множества — это представление его в виде объединения произвольного количества попарно
- 16. type mas=array [1..100] of integer; var n,i:integer; a,p:mas; procedure vivod(n:integer; var p:mas); var i,j,imax:integer; begin imax:=1;
- 17. write('{'); {Выводим на экран i-й блок} for j:=1 to n do {Просматриваем все элементы} if p[j]=i
- 18. for l := 1 to j do {Просматриваем все блоки} begin p[i] := l; {Ставим i-й
- 19. writeln(‘vvedite elementi mnoj’); for i:= 1 to n do read(a[i]); razb(1,1); readln; end.
- 21. Скачать презентацию