Преобразовать введенное число (в двоичной системе счисления) в десятичную

09.01.2014, 15:55. **Показов** 1248. **Ответов** 1

Студворк — интернет-сервис помощи студентам

Решать надо через

Delphi

1
2
3

if A[Length(A)-i]="1" then
S:=S+d 
D:=d*2

@droider · 09.01.2014, 16:20

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

if A[Length(A)-i]="1" then
S:=S+d
D:=d*2

1. Что это?
2. Раздел форума не тот.
3. Вариант решения задачи

Delphi

function bin2dec(s:string):integer;
var x, i:integer;
begin
  x :=0;
  for i :=1 to length(s) do
  begin
     x :=x+ord(s[i])-ord('0');
     if i<length(s) then x :=x*2;
  end;
 bin2dec :=x;
end;

	09.01.2014, 16:20

Опции темы