Подскажите кто знает, как реализовать

[delphyok]

Здравствуйте!

Требуется решить задачу под названием замок. Суть простая, есть кодовый замок, в нем несколько чисел, я условно назвал их разрядами, каждое из которых может принимать несколько значений. Требуется посчитать максимальное количество сочетаний этих чисел, и вывести на экран эти сочетания. Вся сложность задачи заключается, в том, что количество разрядов и их значения задаются пользователем.
Например, имеется три числа: значение первого – от 1 до 3, второго – от 1 до 2, в третьем только одно значение. Как высчитать варианты я понял, нужно всего-лишь перемножить значения всех разрядов. Получается – 6 вариаций:
111
121
211
221
311
321
Когда известно сколько всего разрядов, вывести сочетания не проблема, но вот как сделать, чтобы результат зависел от пользователя ума не приложу. Набросал начало программы:

program zamok;
var
    a, x : array [1..1000] of integer;
    n,i,nras : integer;
    znach : longint;

begin
    write('Введите колличество разрядов числа: ');
    readln(nras);
  {Присваение значений каждому разряду}
    for i := 1 to nras do
     	begin
    	writeln('Введите значение ',i,'-го разряда: ');
        	readln(a[i])
     	end;
  {Подсчет колличества вариантов сочетаний}
	znach := 1;
	for i := 1 to nras do
    	znach := znach * a[i];
           writeln('Максимальное количество вариантов - ', znach);
           writeln('Вот они: ');
  {Вариант программы, с тремя разрядами}
    for x[1] := 1 to a[1] do
      for x[2] := 1 to a[2] do
        for x[3] := 1 to a[3] do
         writeln(x[1], x[2], x[3]);
readln{Чтобы прочесть результаты}

end.

В последнем цикле сделал вариант с тремя разрядами, как быть дальше не знаю, ведь чем больше разрядов, тем больше вложенных циклов, как же это можно описать программно, чтобы результат от пользователя зависел Подскажите кто знает

[DomiNick]

Может я как-то не правильно понял, но если нужны все сочетания...

Например, имеется три числа: значение первого – от 1 до 3, второго – от 1 до 2, в третьем только одно значение.

Почему так? Почему, например не учитывается сочетание "112"..?

[Sazary]

delphyok, Если нужно именно так, как вы написали (когда максимальное значение каждого последующего разряда на 1 меньше предыдущего), то так:

uses crt;
var
a : array[1..1000] of byte;
i,n,m : integer;
znach : longint;


function znfun(k : integer) : longint;
 var i,j,rz : integer;
 begin
 if k>n then
  begin
  znfun := 1;
  for j:=1 to k-1 do
   write(a[j]);
  writeln;
  exit;
  end;
 rz := 0;
 for i:=1 to m-k+1 do
  begin
  a[k]:=i;
  rz := rz + znfun(k+1);

  end;
 znfun := rz;
 end;

begin
clrscr;
write('Vvedite kolichestvo razryadov: ');
readln(n);
write('Vvedite kolichestvo znachenij 1-ogo razryada: ');
readln(m);
znach := znfun(1);
writeln;
writeln('Kolichestvo variantov: ',znach);
readln;
end.

А вообще логичнее было бы, если б значения каждого разряда не могли повторяться (123 - можно, 112 - нельзя) или если бы все разряды имели одинаковый максимум.

[DomiNick]

Sazary, просто он писал:

... задачу под названием замок. Суть простая, есть кодовый замок, в нем несколько чисел ...

В кодовых замках может быть комбинация 112...

[Sazary]

DomiNick Ну да.. Но, может быть, это какой-нибудь особенный замок собственной сборки

Собственно, для реального кодового замка, нужно исправить в цикле:

 for i:=1 to m-k+1 do
  begin
  a[k]:=i;
  rz := rz + znfun(k+1);

  end;

на

for i:=1 to m do
  begin
  a[k]:=i;
  rz := rz + znfun(k+1);

  end;

А вот если бы имелся в виду один из старых замков, которые ставили (и где-то еще ставят) на железных дверях (где нужно зажать 3 кнопки), то код такой:

uses crt;
var
a : array[1..1000] of byte;
i,n,m : integer;
znach : longint;
fl : boolean;


function znfun(k : integer) : longint;
 var i,j,rz : integer;
 begin
 if k>n then
  begin
  znfun := 1;
  for j:=1 to k-1 do
   write(a[j]);
  writeln;
  exit;
  end;
 rz := 0;
 for i:=1 to m do
  begin
  fl := true;
  for j:=1 to k-1 do
   if i = a[j] then
    begin
    fl := false;
    break;
    end;
  if fl then
   begin
   a[k]:=i;
   rz := rz + znfun(k+1);
   end;

  end;
 znfun := rz;
 end;

begin
clrscr;
write('Vvedite kolichestvo razryadov: ');
readln(n);
write('Vvedite kolichestvo znachenij razryada: ');
readln(m);
znach := znfun(1);
writeln;
writeln('Kolichestvo variantov: ',znach);
readln;
end.

[delphyok]

А вообще логичнее было бы, если б значения каждого разряда не могли повторяться (123 - можно, 112 - нельзя) или если бы все разряды имели одинаковый максимум.

В этом то вся и проблема, что значения выбираются пользователем. Т.е. может быть, скажем, и 10 и 20 разрядов, а в каждом из них сколько угодно значений, и в каждом разряде они могут отличаться, а могут и совпадать, все зависит от того что введет пользователь - хоть 1000, хоть 10000, на сколько хватит памяти. И варианты сочетаний этих значений должны последовательно перебираться друг с другом. Препод сказал, кто решит, тот освобождается от экзамена, пять - автоматом . Вот сижу думаю, как сделать.

В принципе, задача не полная, это только один из этапов, в дальнейшем нужно сделать с символами, цифры - это условно, скажем, значения каждого разряда могут быть и в символьном виде, например 2-е значение первого разряда - это знак #, а 3-е значение того же разряда - знак &, и т.д. и прога должна уметь выводить все возможные сочетания. Если уметь вывести значения хотя бы в цифровом виде, то сделать их в символьном я думаю, будет уже не проблема

[Sazary]

delphyok Ну тогда динамический массив значений каждого разряда. Пользователь вводит все возможные значения для каждого (мазохист наверное).
И цикл (нужно изменить)

 for i:=1 to m-k+1 do

Будет перебирать все значения текущего разряда.

[mutabor]

Вот, посмотрите, очень похожая задача
http://www.programmersforum.ru/showthread.php?t=6879

[delphyok]

Да, действительно, очень похожа Буду разбираться, плохо только, что дельфи не знаю.. (((