из двоичной в десятичную

← →
Novichek © (2003-05-11 14:54) [0]

люди!!!! подскажите как из двоичной в десятичную перевести

← →
Романов Р.В. © (2003-05-11 15:31) [1]

1. Калькулятором
2. Книжки читай

← →
Xoy (2003-05-11 15:32) [2]

Двоичное число имеет вид:

значение разряда: ...32 16 8 4 2 1
Число : ... X X X X X X

Где X = 0 или 1.

Т.Е. для перевода числа нужно сложить значение разрядов которым соответствуют единици.
Например 1011 = 8+2+1 = 11;

← →
Переяслов Григорий © (2003-05-11 17:12) [3]

Читай уроки Юрия Зотова в конференции "потрепаться"

← →
dtrn (2003-05-11 17:39) [4]

function BinToInt(Value: String): Extended;
var
i,Size: Integer;
begin
Result:=0;
Size:=Length(Value);
for i:=Size downto 1 do
if Copy(Value,i,1)="1" then
Result:=Result+IntPower(2,Size-I);
end;

← →
Polevi © (2003-05-11 19:45) [5]

function BinToInt(Value: String): Integer;
var
i: Integer;
begin
Result:=0;
for i:=1 to Length(Value) do
Inc(Result,(2 shl (Length(Value)-i))*(Byte(Value[i])-48));
end;

Ну, ващще! ;(*{?*}?%@Ё%?;№@%"";№

> dtrn (11.05.03 17:39)

> Copy(Value,i,1) - ?

Гораздо проще Value[i]

>Novichek © (11.05.03 14:54)
>люди!!!! подскажите как из двоичной в десятичную перевести

Из вашего вопроса неясно, хотите ли вы выполнить перевод данных из одной системы счисления в другую при помощи бумаги и карандаша, при помощи калькулятора, компьютера, или хотите написать соответствующую программу.
Если имеет место последнее, то укажите, пожалуйста, тип переменной, в которой хранятся данные и желаемый тип переменной-результата.

из двоичной в десятичную Найти похожие ветки