Системы исчисления, из 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]

Ну, с учетом исправления (относительно букв), это может выглядеть несколько иначе:

{ добавляем переменные: }
var
  count, position: integer;
  s: string;

{ Это - "алфавит" систем счисления }
const
  alpha: string = '0123456789ABCDEFGHIJKLMNOPQSRTUVWXYZ';

  writeln('Vvedite sistemu is4isleniya');
  readln(ss);
  writeln('Vvedite kol-vo 4isel');
  readln(m);
  writeln('Vvedite chisla');
  for i:=1 to m do begin
    repeat
      count := 0; { считаем, сколько введенных символов попадают в алфавите ДО номера с/с }
      writeln('enter number #', i);
      readln(s);
      for j := 1 to length(s) do begin
        position := pred(pos(upcase(s[j]), alpha));
        if (position < ss) and (position > 0) then inc(count);
      end;
    until count = length(s); { если все символы - допустимы, то выходим }
    st[i] := s; { и запоминаем введенную строку }
  end;
...

Добавлено через 1 мин.

потому что число должно не быть именно меньше, а оно не должно быть равно ss.

То есть 13 тебе нельзя переводить, а 14 - можно? Странно... Обычно именно меньше...

Update:
Чтобы не было разночтений: вводится строка, и проверяется на наличие в ней "запрещенных" для заданной системы счисления символов: для с/с с основанием 16 разрешены символы '0' .. 'F', для с/с с основанием 18 - символы '0' .. 'H', для с/с с основанием 7 - символы '0' .. '6'.

Попытка ввести основание с/с = 7 и строку 128, к примеру, будет считаться ошибкой ввода, ибо "8" недопустимо при основании = 7... То же самое произойдет при попытке ввода основания = 16 и строки 12FK, "K" - это перебор...

Сообщение отредактировано: volvo - 13.09.2007 0:21

[Sensitive]

То есть 13 тебе нельзя переводить, а 14 - можно? Странно... Обычно именно меньше...

Препод объяснял именно так... что 13 нельзя, а 14 уже можно... вот я начинаю думать-не ошибся ли препод с примером.