двоичное число→десятичное

[astrozombie]

Люди добрые,помогите с програмкой,я сам че то не соображу,что бы придумать.Задание таково: составить подпрограму преобразования целого двоичного числа в десятичное,используя эту подпрограмму составить программу перевода двоичных чисел в десятичное
p.s. чето припоминаю...вроде есть такая команда dec или нет..

[crystalbit]

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

[SERG1980]

Попробуй так

function IntToBin(n:Integer):String;
 begin
  Result:='';
  while n<>0 do
  begin
   if n and 1=0 then Result:='0'+Result else Result:='1'+Result;
   n:=n shr 1;
  end;
 end;

[crystalbit]

SERG1980, ТС надо наоборот
как-то так:

function BinToDec(bin:string):integer;
var
  i,l:integer;
begin
  Result:=0;
  l:=Length(bin);
  for i:=l downto 1 do
    Result:=Result+Round(IntPower(2,l-i))*StrToInt(bin[i]);
end;

[SERG1980]

function BinToInt(BinStr:string):Integer;
 var i:integer;
 begin
  Result:=0;
  for i := 1 to Length(BinStr) do
  begin
   if not (BinStr[i]in['0','1']) then//проверка на правильность ввода
   begin
    Result:=0;
    exit;
   end;
   Result:=(Result shl 1)+(byte(BinStr[i])and 1);
  end;
 end;