Множество

[Карась]

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

Идея со строками хорошая, только алгоритм надо подправить, а то 28-й элемент = 911, а у вас он выпадает. Вместо него 2111, хотя 29 = 2000.

ага, заметил вчера это, но снова открывать Делфи было уже лень

Нужно: if z = 10 Then

Вот так всегда, только более-менее интересная задачка, так сразу Дельфи.

Работает быстро, только окно сразу после завершения скрывается...... (

[puporev]

To Карась. Доделал на досуге квой код для первых 20 элементов. Считает действительно очень быстро, открываешь файл, уже все посчитано и написано. А окно потому и скрывается, что идет запись в файл.
Вот доделанный код.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var d_ch_0, d_ch_1,d_ch_2, d_ch_3: String;
    i, n, p,z : integer;
    mas : array [1..500] of string;
    f : Text;
Begin
d_ch_0 := '00'; d_ch_1 := '11'; d_ch_2 := '0'; d_ch_3 := '1';p :=3;z := 1;
Writeln ('Go?'); Write ('n=');
Readln (n);
Assign(f,'Out.txt');
Rewrite(f);
For i := 1 To n Do
  Begin
    if i<=11 then mas[i]:=inttostr(i-1);
    if i=12 then mas[i]:='22';
    if (i>=13)and (i<=19) then
       begin
         if (i mod 2 = 0) Then
         mas[i] := IntToStr(p) + d_ch_3;
         if i mod 2 = 1 Then
         mas[i] := IntToStr(p) + d_ch_2;
         p:=p+1;
       end;
    if i>=20 then
       begin
         if (i mod 2 = 1) Then
         mas[i] := IntToStr(z) + d_ch_0;
         if i mod 2 = 0 Then
         mas[i] := IntToStr(z) + d_ch_1;
         z := z + 1;
         if z = 10 Then
      Begin
        z := 2;
        d_ch_0 := d_ch_0 + '0';
        d_ch_1 := d_ch_1 + '1';
      End;
    end;
   Writeln(f, '#', i,'   ', mas[i]);
  End;
Close(f);
Writeln('Massiv zapolnen!');
Writeln('Save, Jmi <Enter>');
Readln;

end.