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

Вниз

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

← →
dymka   (2002-03-31 11:24) [12]

2Rooman - а никто и не спорит... :).
Но вдруг ему захочется все-таки перевести в двоичную строку :)
меняем i и j бит местами:


var
TempChar: char;
...
TempChar := BitStr[i];
BitStr[i] := BitStr[j];
BitStr[j] := TempChar;

Ну здесь еще такая фишка - нулевой бит это первый символ :)

---

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

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

Наверх

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