Рубрика: Алгоритмы на Delphi

Установлен ли бит в числе?
Функция на 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…