Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Вниз

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

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

2dymka - булева алгебра нужна здесь для понимания сути. Алгоритм, основаный на булевой алгебре, работает много эффективнее, чем возиться со строками, имхо:)

Обмен битами можно сделать так:

Например, меняем нулевой и первый биты местами:

var i,j,k:longint;
...
i:=254;
//обмен 0 и 1 битов местами
j:=i and 1;//выделили нулевой бит
k:=i and 2;//выделили первый бит
if k>0 then i:=i or 1 else i:=i and not 1;
if j>0 then i:=i or 2 else i:=i and not 2;

---

Страницы: 1 2 вся ветка

Форум: "Основная";
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.011 c