Einzelnen Beitrag anzeigen

Gehstock

Registriert seit: 28. Jan 2006
Ort: Görlitz / Sachsen
489 Beiträge
 
Delphi 2007 Professional
 
#1

Brauch hilfe bei Mathematischer formel

  Alt 6. Okt 2006, 21:22
also in ein Tmaskedit wird eine imei eingegeben (14 stellig) dabei soll dann automatisch die 15. stelle berechnet werden

die berechnung funktioniert so-
{Beispiel-IMEI: 49 06 49 40 31 41 72
Jede 2. Ziffer verdoppeln (beginnend bei 2.):
9, 6, 9, 0, 1, 1, 2
verdoppelt: 18, 12, 18, 0, 2, 2, 4
Alle einzelnen Ziffern addieren1 + 8) + (1 + 2) + (1 + 8) + 0 + 2 + 2 + 4 =
28
Jede 2. Ziffer addieren (beginnend bei 1.):
4 + 0 + 4 + 4 + 3 + 4 + 7 =
27
Beide Ergebnisse addieren:
28 + 27 =
55
Ergebnis modular 10*:
55 mod 10 = 5, Rest =
5
* 10 so oft subtrahieren, wie möglich
Differenz zu 10:
10 - 5 = 5 Ergebnis = 5}

nur wie pack ich das am besten in einen Code
Marcel
  Mit Zitat antworten Zitat