Степени двойки, Как? Опции

[Orlangur]

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

Сообщение отредактировано: Orlangur - 3.12.2005 6:40

[volvo]

var i: integer;
begin
  for i := 0 to 10 do
    writeln('2^', i:2, ' = ', ($0001 shl i))
end.

[Orlangur]

($0001 shl i)

Это как понять?

[GoodWind]

простой (но не лучший) вариант:

var x,i:integer;
begin
  writeln('2 ^ 0= 1');
  x:=2;
  for i:=1 to 10 do
    begin
       writeln('2^', i:2, ' = ', x);
       x:=x*2;
    end;
end. 
  

конечно вариант Volvo лучше, но мой понятнее

[klem4]

вот так еще можно :

var
   i : integer;
begin
   clrscr;
   for i := 0 to 10 do writeln('2^',i,' = ',exp(i*ln(2)):3:0);
end.

[Orlangur]

var x,i:integer;
begin
  writeln('2 ^ 0= 1');
  x:=2;
  for i:=1 to 10 do
    begin
      writeln('2^', i:2, ' = ', x);
      x:=x*2;
    end;
end.

Точно!!!
Я как раз примерно таким методом и хотел решить (удваивать результат), но так и не смог.

Спасибо всем за помощь...

Сообщение отредактировано: Orlangur - 3.12.2005 18:10