Системы счисления

[glupayastudentka]

Заданы основание системы счисления p(p<14) и строка s, представляющая собой запись числа в этой системе счисления. Осуществить перевод заданного числа в систему с основанием 10.

[Sazary]

uses crt;
var 
p : byte;
s : string;

function getDecDigit(c : char) : byte;
begin
if c in ['0'..'9'] then
 getDecDigit := ord(c)-48
else getDecDigit := ord(UpCase(c))-55;
end;

function getDec(p : byte; s : string) : longint;
var
i : integer;
res,t : longint;
begin
res := 0;
t := 1;
for i:=length(s) downto 1 do
 begin
 res := res + getDecDigit(s[i])*t;
 t := t*p;
 end;
getDec := res;
end;

begin
clrscr;
write('Enter base: ');
readln(p);
writeln('Enter a number: ');
readln(s);
writeln(getDec(p,s));

readln 
end.

Теперь вопрос на засыпку: сами думать-то когда начнем?

[glupayastudentka]

спасибо за помощь! все работает. а можно пояснить решение?.. я в паскале вобще ни бум-бум.. ну если только чуть-чуть.. а задачки здать нужно.. вот..

[Sazary]

А вы учитесь и будете тогда "бум-бум".

Поясняю функции:

Переводит одну цифру, записанную в p-ичной системе счисления в десятичную систему.

function getDecDigit(c : char) : byte;
begin
if c in ['0'..'9'] then   // если это цифра от 0 до 9
 getDecDigit := ord(c)-48  // то просто возвращаем эту цифру
else getDecDigit := ord(UpCase(c))-55;  // иначе, если это буква, то возвращаем ее код - 55
 // (код буквы 'A' = 65, то есть для этой буквы вернет 10
end;

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

function getDec(p : byte; s : string) : longint;
var
i : integer;
res,t : longint;  // результат пишем в res
begin
res := 0;   // изначально в результате ноль
t := 1;     // тут храним p в нужной степени. Изначально степень = 0
for i:=length(s) downto 1 do  // перебираем цифры справа налево
 begin
 res := res + getDecDigit(s[i])*t;  // прибавляем к результату <цифра>*p^<номер символа в строке>
 t := t*p;
 end;
getDec := res;
end;

На всякий случай напомню алгоритм перевода:
берем самую правую цифру и умножаем ее на основание системы (p) в степени, равной номеру этой цифры в числе (начиная с нуля), то есть, на единицу (p^0 = 1). Затем прибавляем к этому следующую цифру, умноженную
на p в степени 1. И так далее..