Рубрика: Алгоритмы на Delphi
function sqr2(n: Byte): Int64; var b, c: Int64; begin if (n <= 62) then begin if (n < 32) then sqr2 := 1 shl n else begin b := int64(1…
Функция на Delphi, которая проверяет, установлен ли бит (двоичная система счисления) в числе: function IsBit(N: Longint; nBit: Byte): Boolean; {N — число nBit — номер бита} begin result := ((1…
function TranslitRus2Lat(const Str: String): String; const RArrayL = ‘абвгдеёжзийклмнопрстуфхцчшщьыъэюя’; RArrayU = ‘АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЫЪЭЮЯ’; colChar = 33;…
Function NOK(a, b: Longint): Longint; var n, m: Longint; begin result := 0; n :=…
Данная функция возвращает представление десятичного Decimal в виде другой системы счисления с основанием Base (в промежутке от 2 до 16) function DecToBase(Decimal: LongInt; const Base: Byte): String; const Symbols: String[16]…
function SumDig(n: String): Longint; var i, z, l: Byte; begin result := 0; z := ord(‘0’); l := length(n); for i := 1 to l do result := result +…
procedure BitOff(var N: Longint; nBit: Byte); begin N := N and ((1 shl nBit) xor $FFFFFFFF); end;
Процедура на Delphi SetBit устанавливает указанный бит в числе procedure SetBit(var N: Longint; nBit: Byte); {N — число nBit — номер бита} begin N := ((1 shl (nBit — 1))…
function NOD(a, b: Longint): Longint; begin while (a <> 0) and ( b<> 0) do…