Помогите написать программу перевода числа из двоичной системы в десятичную с ...

Question

Помогите
написать программу перевода числа из двоичной системы в десятичную с
использованием функции возведения в степень. Я написала, но у меня
где-то ошибка.

b:=0;
m:=length(max)-1;
j:=m;

for i:=1 to m do

begin

val(max[i],p,code);

while j>=0 do

p:=p*step(2,j);

b:=b+p;
j:=j-1;

writeln(b);

end;

Поясняю,
что тут и как. Эта мини-задача, входящая в решение одной масштабной
задачищи. Дана строка max, в которой записано двоичное число. Функция
step(x,y:integer):integer
возводит число x в степень y. Помогите найти и исправить ошибку,
только, пожалуйста, не надо писать СОВЕРШЕННО ДРУГОЙ способ решения. Заранее благодарю))

Comments

Я плохо разбираюсь в чужом коде, написала по-своему только... Хотела в личку Вам скинуть, но никак: закрыто:(

---

спасибо, но мне уже объяснили мой косяк)))

Answer 1

Begin
 
  max := '1010';
  b := 0;
  m := length(max);
  j := m - 1;
 
  for i := 1 to m do
 
  begin
   
    val(max[i], p, code);
   
    {while j >= 0 do}
   
    p := p * step(2, j);
   
    b := b + p;
    j := j - 1;
   
    writeln(b);
   
  end;
end.

Comments

ну не всегда- не всегда, :D я частенько поправляю учителей - и, угадайте, кто оказывается прав?

---

Учитель?:)

---

Завуч?

---

Директор? х_х

---

не надо, мне так понятнее

---

единственный минус вашей профессии - это то, что не на кого злость вылить. Можно правда пинать системник, бить по клаве, выкидывать мышь в окно, когда ошибку не можешь найти в коде, но слишком это дороговато выходит впоследствии. А вот учителю повезлооо))