Функция вычисления контрольной суммы

Delphi , Синтаксис , Математика

//Проверка ИНН

//Функция вычисления контрольной суммы
function TForm1.KontrSumINN(n:integer;inn:string):integer;
var
  s, i: integer;
  checksum: array [1..11] of integer;
begin
  s:=0;
  checksum[1] :=3;
  checksum[2] :=7;
  checksum[3] :=2;
  checksum[4] :=4;
  checksum[5] :=10;
  checksum[6] :=3;
  checksum[7] :=5;
  checksum[8] :=9;
  checksum[9] :=4;
  checksum[10]:=6;
  checksum[11]:=8;
  for i:=1 to n-1 do
    s:=s+(strtoint(copy(inn,i,1))*checksum[12-n+i]);

  Result:=s mod 11 mod 10;
end;

//Функция проверки ИНН, если ИНН правильный возвращает TRUE
function TForm1.INN(inn:string):boolean;
var
  len:integer;
begin
  len:=length(inn);
  Result:=false;
  if len = 10 then
    if strtoint(copy(inn,10,1))=KontrSumINN(10,inn) then
      Result:=true;
  if len = 11 then
    if strtoint(copy(inn,11,1))=KontrSumINN(11,inn) then
      Result:=true;
  if len = 12 then
    if strtoint(copy(inn,12,1))=KontrSumINN(12,inn) then
      Result:=true;
end;

//Пример:
procedure TForm1.Button1Click(Sender: TObject);
begin

  if Inn('5436100041') then
    label1.Caption:='ИНН Правильный!'
  else
    label1.Caption:='ИНН НЕ Правильный!';

// inn('5436100041')=true;
// inn('5436100042')=false;

end;

Программа на Delphi для расчета и проверки контрольной суммы индивидуального налогового номера (ИНН) в России. Программа состоит из трех основных частей:

1. Функция KontrSumINN для расчета контрольной суммы.
2. Функция INN для проверки корректности ИНН на основе его длины и рассчитанной контрольной суммы.
3. Обработчик события для клика кнопки, который вызывает функцию проверки с примером ИНН.

Разбивка каждой части:

KontrSumINN Функция принимает два параметра: n, представляющий длину ИНН, и inn, являющийся самим ИНН. Она рассчитывает контрольную сумму, умножая каждый символ ИНН (кроме последнего) на соответствующий коэффициент из массива checksum. Коэффициенты жестко закодированы в массиве. Функция затем суммирует эти продукты и возвращает результат модуль 11 и затем модуль 10.

INN Функция принимает ИНН как входной параметр и проверяет, является ли он корректным на основе его длины. Она вызывает функцию KontrSumINN с тем же ИНН и сравнивает рассчитанную контрольную сумму с последним символом ИНН. Если они совпадают, функция возвращает true, указывая, что ИНН является корректным.

Button1Click Обработчик события вызывается при клике кнопки на форме. Он вызывает функцию INN с примером ИНН ('5436100041') и отображает сообщение на метке в зависимости от того, является ли ИНН корректным или нет.

Предложения по улучшению кода Вот несколько предложений для улучшения кода:

• Вместо жесткого закодирования коэффициентов в массиве, рассмотрите более читаемый подход, например, определение их как констант.
• Рассмотрите добавление валидации входных данных для обеспечения корректности длины и формата ИНН перед расчетом контрольной суммы.
• Функция INN является quite повторительной. Вы можете ее рефакторить, используя цикл для проверки различных длин вместо множества if-операторов.
• Обработчик события использует магические строки ('5436100041'), которые можно заменить константой или переменной. В целом, код работает корректно и соблюдает хорошие практики в отношении структуры и наименований.

Функция вычисления контрольной суммы для ИНН - это алгоритм, который calculates the control sum of a given INN (individual taxpayer identification number) by multiplying each digit of the number by a corresponding coefficient and then calculating the rema

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Математика ::