ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Andrew Starsh                        2:5071/59      27 Nov 2002  18:38:18
 To : Denis Novokshonov
 Subject : Re^3: Выбоpки
 -------------------------------------------------------------------------------- 
 

 
                      Приветствую Вас, 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.
 
 --- Hу очень голый GoldED+/386 1.1.5
  * Origin: Страшный-бородатый... (2:5071/59)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Выбоpки   Denis Novokshonov   16 Nov 2002 02:15:22   Re: Выбоpки   Andrew Starsh   20 Nov 2002 03:25:01   Выбоpки   Denis Novokshonov   20 Nov 2002 23:04:29   Re: Выбоpки   Andrew Starsh   22 Nov 2002 09:37:01   Выбоpки   Denis Novokshonov   23 Nov 2002 16:08:04   Re: Выбоpки   Andrew Starsh   24 Nov 2002 16:31:59   Re^2: Выбоpки   Andrew Starsh   25 Nov 2002 17:37:33   Выбоpки   Denis Novokshonov   26 Nov 2002 00:13:41   Выбоpки   Denis Novokshonov   25 Nov 2002 15:29:27   Re: Выбоpки   Andrew Starsh   26 Nov 2002 09:34:13   Re^2: Выбоpки   Andrew Starsh   27 Nov 2002 15:46:22   Re^3: Выбоpки   Andrew Starsh   27 Nov 2002 16:02:08   Re^3: Выбоpки   Andrew Starsh   27 Nov 2002 18:38:18   Re^4: Выбоpки   Andrew Starsh   28 Nov 2002 15:42:44   Выбоpки   Denis Novokshonov   28 Nov 2002 23:02:34   Re: Выбоpки   Viktor Karev   29 Nov 2002 18:30:43   Re: Выбоpки   Viktor Karev   02 Dec 2002 11:41:19   Re: Выбоpки   Andrew Starsh   30 Nov 2002 05:07:36   Выбоpки   Denis Novokshonov   30 Nov 2002 18:30:12   Re: Выбоpки   Andrew Starsh   01 Dec 2002 12:19:09   Выбоpки   Denis Novokshonov   02 Dec 2003 01:36:41   Re: Выбоpки   Andrew Starsh   30 Nov 2002 11:25:29   Выбоpки   Denis Novokshonov   27 Nov 2002 23:30:35   Re: Выбоpки   Mike Girkin   28 Nov 2002 10:06:49   Re^2: Выбоpки   Andrew Starsh   28 Nov 2002 18:15:46   Re: Выбоpки   Andrew Starsh   28 Nov 2002 16:27:58