перевод в дусятичную систему исчисления

[gylayko]

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

var n, nm, chislo, S:integer;
    massif, massif2: array[1..16] of integer;
Begin
 clrscr;
writeln('vvedite chislo');  
readln (chislo);

while chislo>0 do 
begin
inc(nm);
massif[nm]:=chislo mod 10;
chislo:=chislo div 10;
end;

for i:=1 to nm do 
begin
massif2[i]:=massif[nm-i+1];
end; {тут просто делим число на цифры и кидаем их в массив, тут все работает}

for j:=1 to nm do
begin
inc(nm); inc(st);
S:=S+massif2[nm]*exp(ln(massif2[nm])*(st-1)); {теперь пытаюсь применить формулу и вот в этой строке какая-то проблема и ничего не работает!}
end;

writeln('summa',S);
readln;
end.

в чем ошибка? помогите!

[Stilet]

for j:=1 to nm do
begin
inc(nm);

Это что за?!
Ты в цикле на каждой итерации раздвигаешь его пределы???
Убери сейчас же.

[gylayko]

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

Это что за?!
Ты в цикле на каждой итерации раздвигаешь его пределы???
Убери сейчас же.

inc(nm) убрал, теперь выдает ошибку проверки диапазона!

[Stilet]

uses     math,
  SysUtils;
var i,p,x:integer;s:Extended;
begin
 x:=123;s:=0;p:=8;i:=1;
 while (x<>0) do begin
  s:=s+(x mod 10)*Power(p,i);
  inc(i);
  x:=x div 10;
 end;
 write(s:10:0);readln;
end.

Пойдеть?

[gylayko]

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

uses     math,
  SysUtils;
var i,p,x:integer;s:Extended;
begin
 x:=123;s:=0;p:=8;i:=1;
 while (x<>0) do begin
  s:=s+(x mod 10)*Power(p,i);
  inc(i);
  x:=x div 10;
 end;
 write(s:10:0);readln;
end.

Пойдеть?

в принципе принцип понятен, спасибо огромное! но в результате постоянно получается не то, что в реальности.

uses crt, math;
var i,x,p:integer; s:real;
Begin
clrscr;
writeln('vvedite chislo');
readln (x);
writeln('vvedite osnonanie');
readln(p);

s:=0;i:=1;
 while (x<>0) do 
  begin
   s:=s+(x mod 10)*Power(p,i);
   inc(i);
   x:=x div 10;
 end;

writeln('chislo v 10 sisteme=',S:10:0);
readln;
end.

что опять не так?

[Stilet]

А ты пройдись трассировкой и узнаешь.

[gylayko]

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

А ты пройдись трассировкой и узнаешь.

все! там у меня в модуле math были проблемы, так что я сделал степень как обычно и строку

x:=123;s:=0;p:=8;i:=1;

убрал вообще. таким образом все значения стали равны нулю по умолчанию и все заработало!

[Stilet]

там у меня в модуле math были проблемы, так что я сделал степень как обычно и строку

Если не секрет что за проблемы?

убрал вообще. таким образом все значения стали равны нулю по умолчанию и все заработало!

Ну если у тебя предполагается ввод с клавы то да. Я же просто дал пример.