Найти все последовательности натуральных чисел в диапазоне

@PANIC666 · Регистрация: 06.08.2009

Author24 — интернет-сервис помощи студентам

Генератор
Имя входного файла input.txt
Имя выходного файла output.txt
Максимальное время работы на одном тесте 1 секунда
Ограничение по памяти 64 Мб

Даны два натуральных числа N и K. Требуется вывести в файл все цепочки x1,x2,...,xN такие, что xi – натуральное и 1 ≤ xi ≤ K.
Формат входных данных
Во входном файле записаны натуральные числа N и K (N, K ≤ 6).
Формат выходных данных
В выходной файл выведите все требуемые цепочки в произвольном порядке – по одной на строке. Никакая цепочка не должна встречаться более одного раза.
Пример
input.txt output.txt
2 3 1 1
продолжение output.txt
1 2
1 3
2 1
2 2
2 3
3 1
3 2
3 3

Добавлено через 29 секунд
нужна помощь

@conn · 27.10.2009, 14:22

вот для консоли код, под работу с файлами переделайте:

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Sequence = array [byte] of byte;
var
  N,K,i : byte;
  X : Sequence;
  Yes : boolean;
procedure Next(var X:Sequence;var Yes:boolean);
var
  i:byte;
begin
  i:=N;
  while (i>0)and(X[i]=K) do begin X[i]:=1;dec(i) end;
  if i>0 then
    begin
      inc(X[i]);
      Yes:=true
    end
  else
    Yes:=false
end;
 
begin
  write('N,K=');readln(N,K);
  for i:=1 to N do X[i]:=1;
  repeat
    for i:=1 to N do write(X[i]);writeln;
    Next(X,Yes)
  until not Yes;
  readln;
end.

27.10.2009, 15:49

А как подключить файловый тип?

Заранее спасибо за ответ!

@conn · 27.10.2009, 16:24

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  Sequence = array [byte] of byte;
var
  f1, f2 : text;
  N,K,i : byte;
  X : Sequence;
  Yes : boolean;
procedure Next(var X:Sequence;var Yes:boolean);
var
  i:byte;
begin
  i:=N;
  while (i>0)and(X[i]=K) do begin X[i]:=1;dec(i) end;
  if i>0 then
    begin
      inc(X[i]);
      Yes:=true
    end
  else
    Yes:=false
end;
 
begin
  Assign(f1, 'c:\input.txt');
  Assign(f2, 'c:\output.txt');
  reset(f1);
  rewrite(f2);
  readln(f1,N,K);
  for i:=1 to N do X[i]:=1;
  repeat
    for i:=1 to N do write(f2,X[i]);writeln(f2);
    Next(X,Yes)
  until not Yes;
  readln;
  Close(f1);
  Close(f2);
end.

27.10.2009, 17:49

Спасибо большое!
Теперь буду знать...

@Diplomate · 25.04.2014, 19:40

Сообщение от conn

Delphi

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  Sequence = array [byte] of byte;
var
  f1, f2 : text;
  N,K,i : byte;
  X : Sequence;
  Yes : boolean;
procedure Next(var X:Sequence;var Yes:boolean);
var
  i:byte;
begin
  i:=N;
  while (i>0)and(X[i]=K) do begin X[i]:=1;dec(i) end;
  if i>0 then
    begin
      inc(X[i]);
      Yes:=true
    end
  else
    Yes:=false
end;
 
begin
  Assign(f1, 'c:\input.txt');
  Assign(f2, 'c:\output.txt');
  reset(f1);
  rewrite(f2);
  readln(f1,N,K);
  for i:=1 to N do X[i]:=1;
  repeat
    for i:=1 to N do write(f2,X[i]);writeln(f2);
    Next(X,Yes)
  until not Yes;
  readln;
  Close(f1);
  Close(f2);
end.

А Вы проверяли работоспособность этой программы? Сейчас думаю над этой задачей, и мне кажется, что у Вас полный бред.

@PANIC666 1 / 1 / 0 Регистрация: 06.08.2009 Сообщений: 19
		1
	Найти все последовательности натуральных чисел в диапазоне 27.10.2009, 11:12. Показов 3081. Ответов 5 Метки нет (Все метки) Генератор Имя входного файла input.txt Имя выходного файла output.txt Максимальное время работы на одном тесте 1 секунда Ограничение по памяти 64 Мб Даны два натуральных числа N и K. Требуется вывести в файл все цепочки x1,x2,...,xN такие, что xi – натуральное и 1 ≤ xi ≤ K. Формат входных данных Во входном файле записаны натуральные числа N и K (N, K ≤ 6). Формат выходных данных В выходной файл выведите все требуемые цепочки в произвольном порядке – по одной на строке. Никакая цепочка не должна встречаться более одного раза. Пример input.txt output.txt 2 3 1 1 продолжение output.txt 1 2 1 3 2 1 2 2 2 3 3 1 3 2 3 3 Добавлено через 29 секунд нужна помощь 0

Reaper_Man
	27.10.2009, 15:49	3
	А как подключить файловый тип? Заранее спасибо за ответ!

Reaper_Man
	27.10.2009, 17:49	5
	Спасибо большое! Теперь буду знать...

	25.04.2014, 19:40