[es] - Algoritam za kontrolu JMBG-a

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

^{21.09.2009. u 20:38 - pre 177 meseci}

Netko je na drugom forumu postavio pitanje o validaciji JMBG-a, pa rekao da dam ja svoj algoritam (nije baš moj, već sam bio dobio dva prijedloga za izmjenu i njih sam ubacio :-) ). Zanima me da li se može bolje/brže?

Code:
function KontrolaJMBG(s: string): Boolean;
var
   a: array[2..14] of integer;
   iKont, iZbroj, i: integer;
begin

   for i := 2 to 14 do
     a[i] := StrToInt( s[i - 1] );

   for i := 1 to 6 do
   begin
     iKont := (8 - i) * (a[i + 1] + a[i + 7]);
     iZbroj := iZbroj + iKont;
   end;

   iZbroj := 11 - (iZbroj mod 11);

   Result := (iZbroj = a[14]);
end;

Odgovor na temu

rambo
Dejan Petković
Beograd

Član broj: 6095
Poruke: 190
*.dynamic.sbb.rs.

+6 Profil

Re: Algoritam za kontrolu JMBG-a

^{22.09.2009. u 05:38 - pre 177 meseci}

Možda i ovo nekome pomogne.

http://en.wikipedia.org/wiki/JMBG

"There is a theory which states that if ever anybody discovers exactly what the
Universe is for and why it is here, it will instantly disappear and be replaced by
something even more bizarre and inexplicable. There is another theory which states
that this has already happened."
-- Douglas Adams

Odgovor na temu