Комбинации, Комбинации Опции

[alecsandr]

Не подскажите, как найти все комбинации фактариала числа? (Пример:4!= 1234, его комбинации, 1243,1342,1324 и т.д.)

[TarasBer]

> фактариала

Шо цэ таке?

[alecsandr]

Фактариал он и в африке факториал

[TarasBer]

Фактариал он и в африке факториал

Перечитай эту фразу ещё раз.
Между прочим, в десятой версии оперы спеллчекер стоит по умолчанию. Так что поставь себе последнюю версию оперы, поможет.

[alecsandr]

Пример: Факториал 4!=1*2*3*4=24, понятно?

[TarasBer]

Ага, всё-таки фактОриал.
Следующий вопрос: что такое комбинации факториала?

[alecsandr]

Нужна не комбинация факториала, а комбинация из цифр которые входят в факториал. Пример: 4!=1234, комбинация из 1234, 1342,1324 и т.д. Ясно?

[volvo]

Ты уже определись,

Пример:4!= 1234

, или все-таки

Пример: Факториал 4!=1*2*3*4=24

?

А вообще, ты же читал вот эту тему: Комбинаторика (не надо говорить, что нет, ты в ней свой вопрос задавал - он удален, задавай его где положено, а не в FAQ-е), там есть алгоритм генерации перестановок N элементного множества... Чем он тебя не устроил?

[alecsandr]

когда я добавляю, очистку экрана(clrscr) и readkey он пишет
"ERROR 3: неизвестный идентфикатор"

 Program perms;
var
  i, j, h, n, k: integer;
  a:array[0 .. 100] of integer;  { массив для хранения перестановки }

{процедура вывода полученной перестановки}
procedure output;
var i: integer;
begin
  writeln;
  for i:=1 to n do write(a[i],' ');
end;

begin
clrscr;
  write('количество элементов перестановки: '); readln(n);
  fillchar(a, sizeof(a), 0);

  { ввод элементов начальной перестановки }
  for i:=1 to n do a[i]:=i;

  repeat
    output;  { вывод текущей перестановки }
    i:=n;
    while a[i-1]>a[i] do dec(i); { поиск скачка }
    j:=i-1;
    h:=a[j];
    while a[i+1]>h do inc(i); { поиск первого меньшего элемента }
    a[j]:=a[i];  a[i]:=h;
    i:=j+1; k:=n;
    while i<k do begin { перестановка ”хвоста” }
       h:=a[i]; a[i]:=a[k]; a[k]:=h;
       inc(i); dec(k)
    end
  until j=0;
  readkey;
end. 

[TarasBer]

А в помощь заглянуть, и узнать, что для цэлэрэсэкэрэ надо юзес цээрте - я должен?

[alecsandr]

А почему не хочет записывать в файл?

[TarasBer]

Покажи код, которым ты пытаешься обратиться к файлу.

[Rian]

комбинации фактоиала?...
эт так что ли?
для n=3
n(n-1)(n-2)

[alecsandr]

Program perms;
uses crt;
var
  i, j, h, n, k: integer;
  a:array[0 .. 100] of integer;  { ìàññèâ äëÿ õðàíåíèÿ ïåðåñòàíîâêè }
 out,:text;
{ïðîöåäóðà âûâîäà ïîëó÷åííîé ïåðåñòàíîâêè}
procedure output;
var i: integer;
begin
  writeln;
  for i:=1 to n do write(a[i],' ');
end;

begin
clrscr;
assign(out,'c:\ out.txt');
rewrite (out);
  write('êîëè÷åñòâî ýëåìåíòîâ ïåðåñòàíîâêè: '); readln(n);
  fillchar(a, sizeof(a), 0);
  { ââîä ýëåìåíòîâ íà÷àëüíîé ïåðåñòàíîâêè }
  for i:=1 to n do a[i]:=i;
  repeat
    output;  { âûâîä òåêóùåé ïåðåñòàíîâêè }
    i:=n;
    while a[i-1]>a[i] do dec(i); { ïîèñê ñêà÷êà }
    j:=i-1;
    h:=a[j];
    while a[i+1]>h do inc(i); { ïîèñê ïåðâîãî ìåíüøåãî ýëåìåíòà }
    a[j]:=a[i];  a[i]:=h;
    i:=j+1; k:=n;
    while i<k do begin { ïåðåñòàíîâêà ”õâîñòà” }
       h:=a[i]; a[i]:=a[k]; a[k]:=h;
       inc(i); dec(k);
       write(out,'kombinacii');
    end
  until j=0;
    close(out);
end. 

она останавливается на выделенной строчке

[TarasBer]

Во-первых, ты выводишь не в файл out, а на экран.
Во-вторых, в чём эта остановка выражается? Зависает, или показывает ошибку?

[volvo]

в чём эта остановка выражается?

С пробелом в названии файла? В невозможности его создать и аварийной остановке, как пить дать...

[alecsandr]

VOLVO как сделать чтобы твоя задача в "Комбинаторика" записывала в файл а не на экран? Она не хочет записывать(

Program perms;
uses crt;
var
  i, j, h, n, k: integer;
  a:array[0 .. 100] of integer;  { массив для хранения перестановки }
 out:text;
{процедура вывода полученной перестановки}
procedure output;
var i: integer;
begin
  writeln;
  for i:=1 to n do write(a[i],' ');
end;

begin
clrscr;
assign(out,'c:\out.txt');
rewrite (out);
  write('количество элементов перестановки: '); readln(n);
  fillchar(a, sizeof(a), 0);
  { ввод элементов начальной перестановки }
  for i:=1 to n do a[i]:=i;
  repeat
    output;  { вывод текущей перестановки }
    i:=n;
    while a[i-1]>a[i] do dec(i); { поиск скачка }
    j:=i-1;
    h:=a[j];
    while a[i+1]>h do inc(i); { поиск первого меньшего элемента }
    a[j]:=a[i];  a[i]:=h;
    i:=j+1; k:=n;
    while i<k do begin { перестановка ”хвоста” }
       h:=a[i]; a[i]:=a[k]; a[k]:=h;
       inc(i); dec(k);
       write(out);
    end
  until j=0;
    close(out);
end.

[volvo]

Она не хочет записывать(

А ты попроси, как следует:

{процедура вывода полученной перестановки}
procedure output;
var i: integer;
begin
  writeln(out); { <--- }
  for i:=1 to n do write(out, a[i],' '); { <--- }
end;

, тогда будет запись в файл... Кстати, я бы не рекомендовал бросать файлы в корень диска С:... Во-первых, у тебя элементарно может не быть прав на запись туда, а во-вторых - это просто глупо, зачем писать что-то в корень системного диска? Пиши в ту же папку, где лежит твой EXE-шник:

clrscr;
assign(out,'out.txt');
rewrite (out);