Перевод чисел, Обучение переводу Опции

[DeIYIoN]

Помогите пожалуста..полный завал...
Мне нужно написать обучающую программу по переводу чисел...
Она должна обучать переводу пользователя...
Совсем не знаю как это сделать..
Буду очень благодарен!!!

[Lapp]

Я долго думал, как "обучать", и придумал нечто совсем простое. Но мне кажется, что основная идея тут соблюдена. Программа не дописана, поскольку я решил, что надо спросить, пойдет ли такой стиль.

type
var
  a: string;
  b,v: LongInt;
  d: integer;
  c: char;
  i,n: integer;
  Good: boolean;
  Digs: set of char;

function DigVal(c: char): integer;
begin
  if c<#58 then DigVal:=Ord©-48 else DigVal:=Ord©-54
end;

begin
  Write('Введите основание исходной системы счисления (от 1 до 37): ');
  ReadLn(b);
  if b>9 then d:=9 else d:=b-1;
  WriteLn('В системе с основанием ',b,' для ввода числа вы можете использовать');
  Write('цифры от 0 до ',d);
  if b=11 then Write(' и латинскую букву A')
  else if b>11 then Write(' и латинские буквы от A до ',Chr(b+54));
  WriteLn;
  if b>10 then WriteLn('при этом буквы имеют такие числовыме значения:');
  for i:=10 to b-1 do WriteLn(Chr(i+55),' = ',i);
  WriteLn;

  Digs:=[];
  for c:='0' to Chr(d+48) do Include(Digs,c);
  for c:='A' to Chr(b+54) do Include(Digs,c);

  repeat
    Write('Введите число для перевода: ');
    ReadLn(a);
    for i:=1 to Length(a) do a[i]:=UpCase(a[i]);
    Good:=true;
    for i:=1 to Length(a) do Good:=Good and (a[i] in Digs);
    if not Good then WriteLn('Вы ввели неправильный символ. Повторите ввод.');
  until Good;
  n:=Length(a);

  WriteLn('Теперь переведем число в машинное представление.');
  WriteLn('Для этого воспользуемся формулой:');
  WriteLn('m = a[0] + a[1]*b + a[2]*b^2 + a[3]*b^3 + ... + a[n]*b^n');
  WriteLn('Здесь символ ^ означает возведение в степень,');
  WriteLn('цифры в числе пронумерованы справа налево.');
  WriteLn;
  WriteLn('В нашем случае это будет выглядеть так:');
  for i:=1 to n do begin
    if i>1 then Write(' + ');
    Write(DigVal(a[n-i+1]));
    if i>1 then Write('*',b);
    if i>2 then Write('^',i-1);
  end;

  v:=DigVal(a[1]);
  for i:=2 to n do v:=v*b+DigVal(a[i]);

  WriteLn;
  WriteLn('Произведя вычисления, получим:');
  WriteLn(v);
  WriteLn('- тут использована десятичная запись.');

  WriteLn('Теперь введите основание системы счисления,');
  Write('в которую вы хотите преревести ваше число (от 1 до 37): ');
  ReadLn(b);
  WriteLn;
  WriteLn('Перевод будем осуществлять в цикле...');

  ReadLn
end.

Естественно, всяких красивостей можно добавить. Типа чистить экран, разноцветность всякая..