Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Степени двойки

Автор: Orlangur 3.12.2005 2:40

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

Автор: volvo 3.12.2005 3:00

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

Автор: Orlangur 3.12.2005 3:21

Цитата

($0001 shl i)

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

Автор: GoodWind 3.12.2005 7:01

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


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 3.12.2005 11:40

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

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

Автор: Orlangur 3.12.2005 14:09

Цитата

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.

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

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