Перевод десятичные числа в двоичные

[ProgDel]

Парни, я тут написал программу, которая переводит десятичные числа в двоичные, но вот программу которая будет делать наоборот написать немогу. Если интересно, то вот код моей программы

function KDN2(Op_1: integer):integer;
var f: integer;
begin
for f := 0 to Op_1 do begin
if (f mod 2 = 0) or (f mod 2 <> 0) then inc(c);
KDN2 := c;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
label 1;
begin
Button1.Enabled := false;
if edit1.Text = '' then exit;

Yu := KDN2(strtoint(edit1.Text));

Opr := strtoint(Edit1.Text);

1:if Opr < 1 then exit;

for h := yu downto 0 do begin

if Opr >= 1 then begin

res := opr mod 2;

if res = 0 then begin
label1.Caption := '0' + label1.Caption;
Res2 := opr / 2;
opr := trunc(Res2);
goto 1;
end;

if res <> 0 then begin
label1.Caption := '1' + label1.Caption;
Res2 := opr / 2;
opr := trunc(Res2);
goto 1;
end;

end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Clear;
Res := 0;
Res2 := 0;
yu := 0;
h := 0;
opr := 0;
KDN2(0);
label1.Caption := '';
Button1.Enabled := true;
end;

procedure TForm1.Press(Sender: TObject; var Key: Char);
begin
case key of
'0'..'9':;
#8:;
else key := chr(0);
end;
end;

end.

[maxflint]

Сообщение от ProgDel

Парни, я тут написал программу, которая переводит десятичные числа в двоичные, но вот программу которая будет делать наоборот написать немогу. Если интересно, то вот код моей программы

друг, не используй метки...

По задаче: если ты знаешь как переводить из двоичной в десятичную... то это не должно составить проблему...
берёшь строку st=101011 и просматриваешь её с конца
берёшь самую правую цифру и в результат заносишь res=res + 1*(2^0),
далее единицу удаляешь: st=10101
опять берёшь самую правую цифру и в результат заносишь res=res + 1*(2^1), (два уже в степени 1)
и так далее пока в строке есть что нить ещё...


ЗЫ если не получится, то напишу код позже...

[eoln]

Куча примеров в поиске. Из двоичной в десятичную

var
  s: string;
  x, i: integer;
begin
  s := '0010';
  x := 0;
  for i := 1 to length(s) do
    x := x * 2 + strtoint(s[i]);
  write(x);
  readln
end.

Заменяем 2 на 3 - будет из троичной... и так до 9
Можно ещё тут глянуть, там до 200-ричной системы ))