Кому интересно предлагаю задачку =)

[Sergey2]

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

тонко намекаю :
2^10 = 1024 ... Ваша функция выдаст такой результат?!

да. Только в двоичной системе счисления, которую никто не оговаривал.

[TAVulator]

как такой вариант решения?

const
 maxn = maxint;
type
 list = array [0..maxn] of integer;
var
 a: list;

procedure add (k: byte);
var
 buf, i: integer;
begin
 buf := 0;
 for i := 1 to a[0] do
  begin
   a[maxn - i + 1] := a[maxn - i + 1] * k + buf;
   buf := a[maxn - i + 1] div 1000;
   a[maxn - i + 1] := a[maxn - i + 1] mod 1000
  end;
 if buf > 0 then
  begin
   inc (a[0]);
   a[maxn - a[0] + 1] := buf
  end
end;

procedure write_ans ();
var
 i: integer;
 s: string[3];
begin
 for i := a[0] downto 1 do
  if i = a[0] then write (a[maxn - i + 1])
  else
   begin
    str (a[maxn - i + 1], s);
    while length (s) <> 3 do s := '0' + s;
     write (s)
   end
end;

var
 n: integer;
begin
 write('Введите степень числа 2: ');
 readln (n);
 a[0] := 1;
 a[maxn] := 1;
 while n > 1 do
  begin
   add (4);
   dec (n, 2)
  end;
 if n = 1 then add (2);
 write_ans ();
end.

[BaronTreep]

как такой вариант решения?

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

[TAVulator]

что значит "на лету"?

[TwiX]

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

как такой вариант решения?

Вот и мой:

procedure TForm1.Button1Click(Sender: TObject);
var
  res:array[0..100000] of Word;
  power,mem,i,j: Integer;
  result:string;
begin
  power:=StrToInt(edit1.Text);
  for i:=0 to 100000 do REs[i]:=0;
  res[1]:=1;
  res[0]:=1;
  mem:=0;
  for i:=1 to power do
  begin
    j:=1;
    while j <= res[0] do
    begin
      res[j]:=res[j]*2+mem;
      mem:=0;
      if res[j] >9 then
        begin
          res[j]:=res[j]-10;
          mem:=1;
        end;
      if (mem=1) and (j = res[0]) then res[0]:=res[0]+1;
      Inc(j);
    end;
  end;
  result:='';
  for i:=1 to res[0] do result:=result + IntToStr(res[res[0]+1-i]);
  //button1.Caption:=result;
  ShowMessage(result);
end;

[TAVulator]

TwiX, я писал на паскале (Turbo Pascal). там тип String ограничен 255 символами ))

[BaronTreep]

что значит "на лету"?

Ну вот при обычном алгоритме перевода считается остаток от деления всего числа на основание - если число большое, то остаток нужно реализовывать как функцию в длинной арифметике. На лету - то есть по-битам, или не оперируя всем числом (похоже тут старый вопрос про логарифмическую и экспотенциальную сложность )

[Sergey2]

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

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

Можно из двоичной в восмеричьную:
(10011110100111101)2=(10.011.110.10 0.111.101)2=(236475)8

[Serge_Bliznykov]

TAVulator, решение отличное!
Вот только под TurboPascal оно не компилируется!
Вы под чем его проверяли? Под Дельфи? Под FreePascal?
почему не идёт под TP
1) type
list = array [0..maxint] of integer;
тип данных слишком большой (в DOS паскале ни одна структура не может быть больше 64 кб)
Данная программа компилируется только при
maxn = 32423;

2) procedure write_ans ();
пустые параметры в процедуре/функции не допускаются. ну тут достаточно просто скобочки убрать.

[TAVulator]

Serge_Bliznykov, признаюсь - писал в Free Pascal :-)