Системы исчисления, из 10-тичной в другую и наоборот Опции

[Sensitive]

Задание такое: Программа должна преобразовывать 10 в q и q в 10. q в 10 с помощью полимиальной записи чисел, а 10 в q с помощью алгоритма "Обратное деление". Исходные данные вводить по типу string, результат выводить склеяным стрингом. В теоретических вопросах уже побывала, и всё почитала.
Вот что получилось:

uses crt;

function fromdec(n,osnov:longint):string;
var
s:string;
const
digit:string[16]='0123456789ABCDEF';
begin
s:=' ';
repeat
s:=digit[(n mod osnov)+1]+s;
n:=n div osnov;
until n=0;
fromdec:=s;
end;
var s:string;
    i,m,code:integer;
    ss:integer;
    st,a:array[1..50] of string;
    p,b:array[1..50] of integer;
begin
clrscr;
writeln('Vvedite sistemu is4isleniya');
readln(ss);
writeln('Vvedite kol-vo 4isel');
readln(m);
writeln('Vvedite chisla');
for i:=1 to m do
begin
readln(st[i]);
end;
for i:=1 to m do
begin
val(st[i],p[i],code);
end;
for i:=1 to 43 do write('-');writeln;
writeln('|','ishodnie':10,'|','polu4ennie':20,'|');
for i:=1 to 43 do write('-');writeln;
for i:=1 to m do writeln(st[i]:10,fromdec(p[i],ss):20);
for i:=1 to 43 do write('-');writeln;
readln;
end.

Из 10-тичной системы переводит. А мне еще нужно, чтоб получившиеся числа (не в десятичной системе) переводились обратно в десятичную. (как бы сразу и для проверки перевода).
Функцию видела, вот эту:

Function ToDec(n:string; radix:longint):longint;
var m,i:longint;
const digit:string[16]='0123456789ABCDEF';
begin
m:=0;
while (n[1]='0') and (length(n)>1) do delete(n,1,1);
for i:=1 to length(n) do m:=m*radix+pos(n[i],digit)-1;
ToDec:=m;
end;

Но не знаю, как реализовать, чтоб полученные числа переводились обратно. Подскажите пожалуйста.

[volvo]

не понимаю как можно сделать

Переходом к длинной арифметике...

В Drkb есть модуль hugeints для работы с длинными целыми... С его помощью функция перевода числа заданного строкой в другую систему счисления выглядит примерно так:

uses hugeints;

function FromDec(n: string; radix:longint):string;
var
  s, s_mod, s_div: string;
  h_div, h_mod,
  h_n, h_radix: hugeint;

  code, i_mod: integer;

const
  digit: string[16] = '0123456789ABCDEF';

begin
  fillchar(h_n, sizeof(h_n), 0);
  string2hugeint(n, h_n);
  integer2hugeint(radix, h_radix);

  s := '';
  repeat
    hugeint_mod(h_n, h_radix, h_mod);
    hugeint2string(h_mod, s_mod);
    val(s_mod, i_mod, code);
    s := digit[i_mod + 1] + s;
    hugeint_div(h_n, h_radix, h_n);
  until hugeint_zero(h_n);
  FromDec := s;
end;

var r: string;
begin
  r := fromdec('5234567890', 16);
  writeln('result = ', r);
end.

Не правда ли, не очень сильно отличается от изначального варианта? Зато реализует то, что тебе нужно... Кстати, этот вариант еще далеко не окончательный, я просто оставил модуль без изменений. А если заменить процедуры преобразования типов на функции, то все будет еще проще...

[Sensitive]

Volvo,спасибо за помощь. Буду разбираться с модулем-не совсем всё понятно...но я постараюсь:)

Сообщение отредактировано: Sensitive - 15.09.2007 15:33

[Sensitive]

Вот сидела разбиралась... потом начала писать функцию обратного перевода ToDec.
Вот что получилось...посмотрите плиз где ошибка, не переводит правильно...

uses crt,hugeints;

Function ToDec(n:string; radix:longint):string;
var s_m,s_position,s_mul:string;
    h_n, h_radix,h_mul,h_position,h_m: hugeint;
    i,position,m:longint;
const digit:string[16]='0123456789ABCDEF';
begin
  fillchar(h_n, sizeof(h_n), 0);
  integer2hugeint(radix, h_radix);
  m:=0;
while (n[1]='0') and (length(n)>1) do delete(n,1,1);
for i:=1 to length(n) do position:=pos(n[i],digit)-1;
integer2hugeint(position,h_position);
integer2hugeint(m,h_m);
hugeint_mul(h_m,h_radix,h_mul);
HugeInt_Add(h_mul,h_position,h_m);
hugeint2string(h_m,s_m);
ToDec:=s_m;
end;
var r,s,d: string;
    ss:longint;
begin
clrscr;
writeln('Vvedite sistemu is4isleniya:');
readln(ss);
writeln('Vvedite 4islo:');
readln(s);
  r := fromdec(s, ss);
  writeln('result = ', r);
  d:=todec(r,ss);
  writeln('result = ', d);
readln;
end.