Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Danonya
0 / 0 / 0
Регистрация: 04.02.2013
Сообщений: 48
1

Проверить корректность знака

24.09.2014, 18:07. Просмотров 394. Ответов 3
Метки нет (Все метки)

Здрасвуйте. У меня такой вопрос, есть исходный код, проверяющий контрольный знак в РНН. Хотелось бы узнать что нужно прикрепить на форму,чтобы данный код работал, подскажите с чего начать? Куда дааный код прикрепить? Вставив его просто,вышло куча ошибок. Исправила ошибки,вышла пустая форма,которая ничего не отображает.Суть работы кода в том, что есть определнный номер, состоит из 12 цифр. Часть цифр означает, где проживает человек (область, район и так далее), 5 цифра означает (0 - юрид. лицо, 1 или 2 физ. лицо). Но в общем весь набор цифр имеет какую то контрольную сумму, которую определяет данный код. А вообще номер выдается генератором программно.В общем помогите разобраться.Если кто поймет,что я вообще хочу помогите))Если что то не понятно разъясню.Спасибо.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
function Check_RNN(rnn: string):boolean;
var
  i, j, k, s, t: integer;
begin
  for i:=1 to 10 do
    begin
      s:=0;
      t:=i-1;
      for j:=1 to 11 do
        begin
          inc(t);
          if t=11 then
            t:=1;
          s:=s+t*StrToInt(rnn[j]);
        end;
      k:=s mod 11;
      if k<10 then
        Break;
    end;
  Result:=(k=StrToInt(rnn[12]));
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.09.2014, 18:07
Ответы с готовыми решениями:

Сложить два числа, проверить корректность ввода
Есть задача сложить два числа, при этом проверять корректны ли исходные данные (числа не содержат...

Проверить корректность введения дробного числа в Edit
Здравствуйте. Нужно проверить корректность введённого пользователем в Edit дробного числа....

Проверить приведенный код на корректность
Здравствуйте, пишу программу и по ходу работы ее компилирую. написала маленький кусочек, с...

Проверить код на корректность
Сделал лабу, все работает отлично.... Но я не уверен что она написана нормально, может где то...

Проверить код на корректность
Привет,можете пожалуйста проверить файл на ошибки,если таковых нет(что маловероятно),то помогите...

3
Joy
Эксперт Pascal/Delphi
2198 / 1219 / 1445
Регистрация: 29.08.2014
Сообщений: 4,444
24.09.2014, 18:46 2
накапливается сумма произведений цифр инн на весовой разряд
s=s+1 цифра рнн*вес(1), 2 цифра * вес(2)...10цифра на вес(10)+11 цифра на вес(1)
берется остаток от деления суммы на 11, и если он равен 12 разряду рнн то все ок, но если остаток >10 то считается снова и вес начинается не с 1, а с 2 и т.д. повторяем увеличивая вес до 10, пока остаток отделения не станет меньше 10.
0
Danonya
0 / 0 / 0
Регистрация: 04.02.2013
Сообщений: 48
24.09.2014, 18:50  [ТС] 3
Я поняла, а куда этот код подкрепить в делфи и какие объекты нужны для формы, чтобы отображался результат?
0
Joy
Эксперт Pascal/Delphi
2198 / 1219 / 1445
Регистрация: 29.08.2014
Сообщений: 4,444
24.09.2014, 18:54 4
на форму кидаете edit1 и кнопку. копируете эту функцию в текст unit1 и в обработке нажатия кнопки (onclick) пишете
Delphi
1
if Check_RNN(Edit1.Text) then showmessage ('РНН верен') else showmessage ('не верен');
0
24.09.2014, 18:54
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.09.2014, 18:54

Проверить корректность определения
На арифметическом пространстве R4 {x1,x2,x3,x4} задано скалярное произведение: (x,y) = 2x1 y1 +...

Проверить код на корректность
Оставте своё мнение на счёт следующего

Проверить корректность ввода
Постройте функции для запроса и чтения ФИО, почтового адреса и даты, и проверьте корректность ввода.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru