Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Delphi.Narium,
4. Mär 2019
Also fragen wir mal so:
Wofür brauchst Du das?
Dann kann man eventuell bei der Suche / Implementierung der erforderlichen Variante helfen.
Die verlinkte Seite beschreibt halt den Algorithmus für eine bestimmte Implementierung für einen konkreten Sachverhalt.
Weitere Info:
https://de.wikipedia.org/wiki/Luhn-Algorithmus
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Delphi.Narium,
4. Mär 2019
Ich schrieb analog zu https://www.activebarcode.de/codes/checkdigit/modulo10.html
Und daraus dann die Zeile Multiplikation 1 3 1 3 1 3 1 3 1 3 1 3 ergibt die Gewichtung. Will man die nicht, dann lässt man's halt ;-) und kommt auf Deine Variante.
Welche man wählt ist eigentlich egal, solange man sich dann an die gewählte Version hält und nicht (bei der Kommunikation mit anderen Systemen)...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Delphi.Narium,
4. Mär 2019
Analog zu https://www.activebarcode.de/codes/checkdigit/modulo10.html eventuell sowas?
function Modulo10FromString(s : String) : Integer;
var
i : Integer;
begin
Result := 0;
for i := 1 to Length(s) do begin
case i mod 2 of
0 : Result := Result + (Ord(s) * 3);