Перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ

@Mroflian · Регистрация: 03.06.2010

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

"перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ"
Вот такую бяку задали в колледже на практике народ плиз напишшите алглритм выполнения этой бяки!!! А то я чёт сооброзить немогу.

@Puporev · 17.06.2014, 12:42

А это?
https://www.cyberforum.ru/post784614.html
Если нужны нули впереди, то я написал как сделать, если и после этого не можешь, армия тебя ждет,хоть рада и не будет.

@студент1235 · 17.06.2014, 12:46

вот такую картинку она мне дала

@Puporev · 17.06.2014, 12:53

Это совсем другая задача, не имеющая отношения к этой теме

Двоично-десятичный код (англ. binary-coded decimal), BCD, 8421-BCD — форма записи рациональных чисел, когда каждый десятичный разряд числа записывается в виде его четырёхбитного двоичного кода.

Например, десятичное число 31110 будет записано в двоичной системе счисления в двоичном коде как 1 0011 01112, а в двоично-десятичном коде как 0011 0001 0001BCD.

Добавлено через 1 минуту
Создаешь массив константу тетрад и вместо каждой десятичной цифры пишешь соответствующую тетраду.

@студент1235 · 17.06.2014, 12:54

ладно спасибо и на этом

@Puporev · 17.06.2014, 13:07

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button1Click(Sender: TObject);
{тетрады для перевода 2 в 10 и обратно}
const tetr:array[0..9] of string[4]=('0000','0001','0010','0011','0100',
                                     '0101','0110','0111','1000','1001');
var n:integer;
    s:string;
begin
n:=strtoint(Edit1.Text);
s:='';
while n>0 do
 begin
  s:=tetr[n mod 10]+s;
  n:=n div 10
 end;
Edit2.Text:=s
end;

@студент1235 · 17.06.2014, 13:11

спасибо огромное выручил, а то седня написал и сдал ей 4 задания, а она такую пакость сделала.

@ProMaths · 26.11.2014, 15:42

Объясните, что за слова непонятные "Bin" и "Oct" в прогах у Demon-red???

@Puporev · 26.11.2014, 15:49

Да просто обозначения что бы понятно было Bin двоичная, Oct восьмеричная.. Dec десятичная... почитай как называются цифры в латыни и в греческом...

@DarkVoice · 12.05.2017, 09:12

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function TForm1.Bin(x: Integer): string;
const t: array[0..1] of char = ('0','1');
var res: string;
d:0..1;
begin
res:='';
while (x<>0) do
begin
d:=x mod 2;
res:=t[d]+res;
x:=x div 2;
end;
Bin:=res;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=StrToInt(Label2.Caption);
Label1.Caption:=(Bin(a));

не могли бы подсказать пожалуйста, почему он выдает ошибку на а(а:=StrTоInt)?

@Puporev · 12.05.2017, 09:15

Наверное потому что а не объявлена.

Delphi
1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
begin
a:=StrToInt(Label2.Caption);
Label1.Caption:=(Bin(a));

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

@Mroflian 2 / 2 / 0 Регистрация: 03.06.2010 Сообщений: 16

	Перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ 06.06.2010, 21:45. Показов 34758. Ответов 29 Метки нет (Все метки) "перевод чисел из ДЕСЯТИЧНОЙ системы счисления в ВОСЬМИРИЧНУЮ и ДВОИЧНУЮ" Вот такую бяку задали в колледже на практике народ плиз напишшите алглритм выполнения этой бяки!!! А то я чёт сооброзить немогу. 1

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	17.06.2014, 12:42
	А это? https://www.cyberforum.ru/post784614.html Если нужны нули впереди, то я написал как сделать, если и после этого не можешь, армия тебя ждет,хоть рада и не будет. 0

@студент1235 74 / 48 / 27 Регистрация: 25.03.2014 Сообщений: 357 Записей в блоге: 1
	17.06.2014, 12:46
	вот такую картинку она мне дала Миниатюры 0

@студент1235 74 / 48 / 27 Регистрация: 25.03.2014 Сообщений: 357 Записей в блоге: 1
	17.06.2014, 12:54
	ладно спасибо и на этом 0

@студент1235 74 / 48 / 27 Регистрация: 25.03.2014 Сообщений: 357 Записей в блоге: 1
	17.06.2014, 13:11
	спасибо огромное выручил, а то седня написал и сдал ей 4 задания, а она такую пакость сделала. 0

@ProMaths 0 / 0 / 0 Регистрация: 26.11.2014 Сообщений: 28
	26.11.2014, 15:42
	Объясните, что за слова непонятные "Bin" и "Oct" в прогах у Demon-red??? 0

@Puporev Почетный модератор 64320 / 47616 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	26.11.2014, 15:49
	Да просто обозначения что бы понятно было Bin двоичная, Oct восьмеричная.. Dec десятичная... почитай как называются цифры в латыни и в греческом... 0