Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

13th
Сен

Функция перевода в двоичную систему счисления

Posted by micher under Delphi

lord2012

В массиве Х[0..9] чисел типа short обработать каждое число
согласно условиям:Поменять местами 1 и 3 биты с 4 и 6 битами каждого числа. Создается рандомный массив из которого берутся числа переводятся в двоичную систему и меняется 1 и 4; 3 и 6 биты например: число 3327
перевели в двоичную 110011111111 переставили биты 011110111111 переводим в десятичную 1983 и записать эти элементы в массив

denisbrain



функция перевода в двоичную систему счисления с поддержкой формата числа
function IntToBin(Value:integer;FormatStr:string='0'):string; двоичную систему

const

   stroka:string='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';

// список символов используемых в качестве чисел; максимальная строка 37 знаков

   var

     s:String;   { временная переменная}

     m:longint;  { временная переменная для целой части}

     n,l:real;  { временная переменная}

     r,i:integer;

     rdec:integer;

begin

    rdec:=2;

     n:=Value;

     r:=rdec;

     s:=''; { временная переменная  для вывода в строковом типе}

     m:=trunc(n);   { целая часть числа}

     repeat

        s:=stroka[(m mod r)+1]+s;

{ остаток от деления на rdec записываем  при 8 mod 3 = 8-(3*2)= 8-6=2}

        m:=m div r; { целочисленной деление  8 div 3 = trunc(8/3)=trunc(2.666666)=2}

     until m=0;    { продолжаем пока не 0}

     s:=formatfloat(FormatStr,strtoint(s));

     result:=s;

end;
function FromDec(Value:integer;rdec:integer):string;

// функция переводит Value:real в rdec - систему счисления

   var

     s:String;   { временная переменная}

     m:longint;  { временная переменная для целой части}

     n,l:real;  { временная переменная}

     r,i:integer;

begin

     n:=Value;

     r:=rdec;

     s:=''; { временная переменная  для вывода в строковом типе}

     m:=trunc(n);   { целая часть числа}

     repeat

        s:=stroka[(m mod r)+1]+s;

{ остаток от деления на rdec записываем  при 8 mod 3 = 8-(3*2)= 8-6=2}

        m:=m div r; { целочисленной деление  8 div 3 = trunc(8/3)=trunc(2.666666)=2}

     until m=0;    { продолжаем пока не 0}

     l:=frac(n); { получаем часть числа полсле запятой}

     result:=s;

end;

{ перевод из любого числа в десятичные }

  function ToDec(Value:string;Rdec:integer):integer;

{ ToDec перевод из StrtoReal из Rdec системы (10,8,2)  } {пример ToDec('ABC',16)}

  var

     i,p:longint; {}

     m:integer; { временная переменная }

     n:string;

     R:integer;

  begin

     n:=value;

     r:=rdec;

     m:=0;

     p:=length(n)+1; { p=длине тектса }

        for i:=1 to length(n) do

          if ip then

            if i<p then

              m:=m+round((pos(n,stroka)-1)*power(r,p-i-1));

 // ABC  (11*16^3)+(12*16^2)+(13*16^3)

           result:=m;

  end;