Перевод из десятичной системы счисления в любую другую

@Titanum · Регистрация: 25.10.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте. Мне нужно на Делфи написать код перевода из десятиричной системы счисления в любую другую.

Вот суть алгоритма:
b=2; v=1; i=0;
В то время когда будет b>0, возникает цикл, где a возвращает остаток от деления b,
и a:=(a-m)/b, i:=i+m*v.
Если а=0, тогда v=0,
иначе v=v*10.
Заканчивается цикл и возвращается значение i.

У меня получился бредовый код, выдающий ошибку, связанную с типами данных.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure algoritm;
begin
b:=2;
v:=1;
i:=0;
while (v>0) do
begin
  m:=a mod b;
  a:=(a-m)/b;
  i:=i+m*v;
  if a=0 then v:=0
  else v:=v*10
  end;
end;
return(i);
 
end.

@daslex · 21.03.2012, 01:13

В консоли перевод можно сделать так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const a:array[0..15] of char=('0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F');
 
var uk, n, m, i, k: integer;
    rez:string;
    b:array[1..30]  of byte;
 
Begin
write('Chislo = '); readln(n);
write('Sistema = '); readln(m);
uk:=0; rez:='';
while n>0 do
  begin
    inc(uk);
    b[uk]:=n mod m;
    n:=n div m;
  end;
 
writeln;
 
for i:=uk downto 1 do
  rez:=rez+a[b[i]];
 
writeln('Rezultat perevoda = ', rez);
readln;
end.

@Titanum · 21.03.2012, 01:46 **[ТС]**

daslex, спасибо большое )) Но тут код немного другой. Мне нужно, чтобы процедура соответствовала именно этому алгоритму:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
b=2; 
v=1; 
i=0;
While b>0 do
begin
m = a mod b,
a:=(a-m)/b, 
i:=i+m*v.
Если а=0, тогда v=0, 
Иначе v=v*10.
Заканчивается цикл 
и возвращается значение i.

Psilon · 21.03.2012, 07:51

Titanum, и как вы собрались переводить без типа string (при переводе надо клеить друг к другу, то есть конкатацию проводить, а не складывать в арифметическом смысле), и делать процедуру без параметров с одними глобалами это глупо (особенно для переменной цикла). Если хотите - на днях тут была решена эта задача стековым методом.

@Titanum · 21.03.2012, 11:17 **[ТС]**

daslex и Psilon спасибо. Вообще мне нужно сделать именно тот алгоритм. Я так поняла, что это перевод из десятиричной системы счисления. Может это и не перевод из десятиричной системы счисления...

Psilon · 21.03.2012, 14:48

Titanum, есть алгоритм, позволяющий перевести в СС из меньшего кол-ва элементов, про алгоритм про перевод в более обширную СС не слышал ничего (из 16 в 10 легко, из 10 в 16 не получится).

@Titanum · 21.03.2012, 14:59 **[ТС]**

Psilon, ну в данном примере это перевод из 10? Например из 10 в 2 можно же?

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

Psilon Master of Orion 6102 / 4958 / 905 Регистрация: 10.07.2011 Сообщений: 14,522 Записей в блоге: 5
	21.03.2012, 07:51
	Titanum, и как вы собрались переводить без типа string (при переводе надо клеить друг к другу, то есть конкатацию проводить, а не складывать в арифметическом смысле), и делать процедуру без параметров с одними глобалами это глупо (особенно для переменной цикла). Если хотите - на днях тут была решена эта задача стековым методом. 1

@Titanum 1 / 1 / 2 Регистрация: 25.10.2011 Сообщений: 360
	21.03.2012, 11:17 [ТС]
	daslex и Psilon спасибо. Вообще мне нужно сделать именно тот алгоритм. Я так поняла, что это перевод из десятиричной системы счисления. Может это и не перевод из десятиричной системы счисления... 0

Psilon Master of Orion 6102 / 4958 / 905 Регистрация: 10.07.2011 Сообщений: 14,522 Записей в блоге: 5
	21.03.2012, 14:48
	Titanum, есть алгоритм, позволяющий перевести в СС из меньшего кол-ва элементов, про алгоритм про перевод в более обширную СС не слышал ничего (из 16 в 10 легко, из 10 в 16 не получится). 1

@Titanum 1 / 1 / 2 Регистрация: 25.10.2011 Сообщений: 360
	21.03.2012, 14:59 [ТС]
	Psilon, ну в данном примере это перевод из 10? Например из 10 в 2 можно же? 0