Помощь - Поиск - Пользователи - Календарь
Полная версия: Степени двойки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Orlangur
Что то я не могу прошарить как решить вот такую задачу:
Написать программу, которая выводит таблицу степеней двойки (от нулей до десятой).
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 лучше, но мой понятнее wink.gif
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.


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

Спасибо всем за помощь... good.gif yes2.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.