перевод из 10-чной в бинарную систему.

[Osi@]

спасибо что решили помочь! суть вот в чём: пишу генератор псевдослучайных последовательностей чисел, работать он будет в двоичной системе. а беда в том что я не знаю, как задать числам двоичный формат для выполнения мат. операции в delphi 7. мммммм... сам не понял что написал...
проще: кто знает, подскажите как заставить delphi 7 воспринимать и делать операции с вводимым пользователем двоичным кодом.
надо полагать, решения у этой задачи нет?
заранее спасибо.

[MadDog__]

вот чувак я сделал на С++ и АSMе
переведи на Делфи т.к я не знаю его

я его преобразовал в целочисленный тип
либо оставляй его как есть массив
или если надо их фактические значение mas[i]=mas[i]-0x30;



#include <iostream>
#include <string.h>
int main()
{
int answ=0, tmp;
char mas[256];
std::cin.get(mas, 256); функция считывания символов
tmp=strlen(mas); функция подсчета символов до встречи нулевого символа
for(int i=0; i<tmp; i++)
{
if(mas[i]==0x31)
__asm
{
mov eax, 0xFFFFFFFF;
shld answ, eax, 1;
}
else
__asm
{
xor eax, eax;
shld answ, eax, 1;
}
}
std::cout<<answ;
return 0;
}

удачи

[mihali4]

Есть такие стандартные функции:
HexToBin - преобразование из 10-й в двоичную и
обратно BinToHex...
Поможет?

[Virtson]

[OFF]
mihali4, Привет !!
[/OFF]

[zetrix]

{OFF} ААА! Здорово mihali4!! {/OFF}
Inttohex потом hextobin. Можно и сделать прогу такую, чтоб переводила как на уроке информатики ты переводишь

[mihali4]

[OFF]
Всем-всем привет !!
[/OFF]

[Surgeon]

Если я правильно понял нужна функция типа
StringToBinary(SourceString:string) :integer; преобразующая 1 и 0 из исходной строки в двоичное число?
предлагаю такой вариант:
var
i,ssLen,BinNumber,CurrentDigit:inte ger;
buf:string;//можно и не стринг а char
цикл перебора всех символов исходной строки
ssLen:=(Length(SourceString)-1);//длина строки
BinNumber:=0;
for i:=0 to (Length(SourceString)-1) do
begin
buf:=SourceString[ssLen-i]; //забираем в буфер крайний символ справа
CurrentDigit:= IntToStr(buf); //получаем либо 1 либо 0 (можно добавить проверку вводимых символов)
BinNumber:= BinNumber shl 1; // сдвигаем формируемое число на 1 бит влево (аналогично умножению на 2)
BinNumber:=BinNumber or CurrentDigit; // выполняем логическую операцию "or" между собираемым числом и добавляемым двоичным разрядом. Объеъдинение идет в старшем бите формируемого числа. После shl там должен быть 0.
end;
BinNumber должно в итоге содержать целое число, преобразованное из введенного текста. Типы byte/integer/word и др. это ж и есть двоичные значения.
Если где-то ошибся исправьте.

[MadDog__]

BinNumber:= BinNumber shl 1; на сколько я понял ты тут просто сдвигаешь число на 1 бит т.е умнажаешь на 2

я сдвигом задвигал 1 или 0 в переменную answ последовательно в зависимости от значения в типа char.

к примеру число ввел я число в двоичной системе
10010101
его строчный вид 0x31, 0x30, 0x30, 0x31, 0x30, 0x31, 0x30, 0x31
вычислил длину строки 8 символов
в цикле задвигаю в переменную по 1 биту

номер цикла)
1. answ = 1 mov eax, 0xFFFFFFFF;
shld answ, eax, 1; т.е задвигаем в answ 1

2. answ = 10 xor eax, eax; обнуление регистра eax
shld answ, eax, 1; т.е задвигаем в answ 0

3. answ = 100 xor eax, eax;
shld answ, eax, 1;

4. answ = 1001 mov eax, 0xFFFFFFFF;
shld answ, eax, 1;

5. answ = 10010 xor eax, eax;
shld answ, eax, 1;

6. answ = 100101 mov eax, 0xFFFFFFFF;
shld answ, eax, 1;

7. answ = 1001010 xor eax, eax;
shld answ, eax, 1;

8. answ = 10010101 mov eax, 0xFFFFFFFF;
shld answ, eax, 1;

в результате answ содержит число 149

т.е на каждом шаге цикла я запихивал в answ 1 или 0 взависимости от значения char

[Surgeon]

BinNumber:= BinNumber shl 1; на сколько я понял ты тут просто сдвигаешь число на 1 бит т.е умнажаешь на 2

я сдвигом задвигал 1 или 0 в переменную answ последовательно в зависимости от значения в типа char.

т.е на каждом шаге цикла я запихивал в answ 1 или 0 взависимости от значения char

Предложил те же яйца, только в профиль (на OP).
-----
@Osi@ - ты нашел что искал?

[MadDog__]

да так и ано и есть