Pascal срочно, плзззз...

← →
Rooman (2002-03-31 10:53) [6]

Кранты! Мастера как дети отвечать стали! Куда мир катится!
Ответ на вопрос: чтобы поменять биты в числе совершенно не надо его ни во что конвертировать. Делаешь так:

var i:longint;

...
i:=6000;
...
//изменение нулевого бита на противоположный:
i:=i xor 1;
//обнуление нулевого бита:
i:=i and not 1;
//присвоение нулевому биту единицы:
i:=i or 1;

//тоже самое для пятого бита, к примеру
//изменение пятого бита на противоположный:
i:=i xor 32;
//обнуление пятого бита:
i:=i and not 32;
//присвоение пятому биту единицы:
i:=i or 32;

Число, которое будет у тебя вместо 1 или 32 вычисляется по формуле: число = 2 в степени номер_бита;

Pascal срочно, плзззз... Найти похожие ветки