10-ая и 16-ая системы счислений Опции

[kosiak]

Просмотрел в форуме программы о системах счислений попытался некоторые использовать, но ничего не получилось видно ума пока нехватает так, что прошу Вас помочь написать прогу по переводу чисел из 10-ой в 16-ую систему счислений и наоборот с использованием CASE чтобы самому выбирать из какой системы в какую переводить.(ввод чисел с клавы). P.S. заранее благодарен.

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

[volvo]

FAQ: Общие вопросы по математике есть 2 процедуры по переводу в/из 10 систему счисления...

С использованием этих 2-х функций делаешь что-то типа:

{ Здесь - те самые 2 функции }

var
  _from: longint;
  n_10: longint;
  n_16: string;

begin
  write('Из: '); readln(_from);
  writeln('в: ', 26 - _from);

  write('Введите число ');
  if _from = 10 then begin
    write('в 10 с/с: '); readln(n_10);
    writeln(' = ', fromdec(n_10, 16), ' (16)')
  end
  else begin
    write('в 16 с/с: '); readln(n_16);
    writeln(' = ', todec(n_16, 16), ' (10)')
  end;

end.

[kosiak]

Спасибо ОГРОМНОЕ!!, все получилось прграмма работает правильно.