Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi/Pascal, Алгоритм]из 10 в 8 систему и обрат

Автор: WhiteRaven 20.10.2008, 16:27

Если кому не сложно помогите написать алгоритм перевода из 10-ой СС в 8-ю и обратно в Delphi или Pascal

Автор: Akina 20.10.2008, 16:40

Алгоритм? делим целочисленно на 8 в десятичной СС, остаток - это очередная цифра.
Обратно - делим целочисленно на 12 в восьмеричной СС, остаток - это очередная цифра.

Автор: WhiteRaven 20.10.2008, 17:01

Алгоритм это неудачно подобраное слово.
Действия я знал. Но я не знаю как это реализовать в Delphi (Pascal).

Автор: Akina 20.10.2008, 18:14

Цитата(WhiteRaven @ 20.10.2008, 18:01

)

Действия я знал. Но я не знаю как это реализовать в Delphi (Pascal).

А что тогда в Алгоритмах? пиши в ЦП. Ну или в Дельфи для начинающих - все одно в ЦП выбросят.

Автор: maxim1000 20.10.2008, 23:21

ну вот и сократим путь smile

переношу из Алгоритмов

Автор: dsx 23.10.2008, 14:04

Ну вот пример перевода из 10-й в 16-ю:

Код


function dec2hex(value: dword): string[8];
const
  hexdigit = '0123456789ABCDEF';
begin
  while value != 0 do
  begin
    dec2hex := hexdigit[succ(value and $F)];
    value := value shr 4;
  end;
  if dec2hex = '' then dec2hex := '0';
end;

http://algolist.manual.ru/maths/teornum/count_sys.php.

Переделать для своих нужд не составит труда.