Возвести 2 в степень |
ОГЛАВЛЕНИЕ    HOME  MAIL |
Чтобы возвести 2 в нужную степень можно создать цикл:a := 1; for i := 1 to 20 a := a * 2; Можно воспользоваться функциями Power, IntPower или LdExp из модуля Math, но есть способ быстрее. Можно сдвигать двоичные порядки на N порядков. Это приводит к умножению или делению числа на 2 в степени N. При этом обязательно работать с целочисленным типом. procedure TForm1.Button1Click(Sender: TObject); var Res, Exponent: integer; begin Exponent := 10; Res := 10 shl Exponent; Form1.Caption := IntToStr(Res) + #32; Res := Res shr Exponent; Form1.Caption := Form1.Caption + IntToStr(Res); end; email: delphi4all@narod.ru |