Re^3: Выбоpки

From

Andrew Starsh (2:5071/59)

To

Denis Novokshonov

Date

2002-11-27T17:38:18Z

Area

RU.ALGORITHMS

                     Приветствую Вас, Denis!

27 ноября 2002 года в 14:46 Andrew Starsh --> Denis Novokshonov

 AS> Оказалось неожиданно пpосто:

 AS> === Text:=New(pBufStream,Init('keygen.pas',stOpenRead,1024)); ===
 AS> program keygen;
[_Skip_]
 AS> === Dispose(Text,Done); ===

А вот pабота кусками:

=== Text:=New(pBufStream,Init('keygen1.pas',stOpenRead,1024)); ===
program keygen;
uses crt;
var
  chisl,n:byte;
  F:text;
  start,kol:longint;

Procedure Izm(s:string;ur:byte);
var
  c:byte;

  begin
    if ur<=n then
    begin
      if kol>0 then
      for c:=49 to chisl do if Pos(chr(c),s)=0 then Izm(s+chr(c),ur+1);
    end
    else
    begin
      if start>0 then
      begin
        start:=start-1;
      end
      else
      begin
        Writeln(F,s);
        kol:=kol-1;
      end;
    end;
  end;

BEGIN
  n:=2;
  while n>1 do
  begin
    writeln('Введите N (1<n<15), выход - 0');
    readln(n);
    chisl:=n+48;
    if n>1 then
    begin
      writeln('Сколько штук пропустить?');
      readln(start);
      writeln('Сколько штук вывести?');
      readln(kol);
      Assign(F, 'com.txt');
      Rewrite(F);
      Izm('',1);
      Close(F);
    end;
  end;
END.
=== Dispose(Text,Done); ===

                           С кучей пожеланий - Andrew.

--- Ну очень голый GoldED+/386 1.1.5
 * Origin: Страшный-бородатый... (2:5071/59)