|
(Moderator)
Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
Delphi 2007 Enterprise
|
Re: Kundennummer aus Buchstaben und Zahlen erstellen
9. Jun 2005, 10:33
Wie lernt man in der Schule zu addieren?
Code:
1. Von rechts anfangen. (i=1)
2. Wenn i> Länge(Nummer) dann
Hänge ein 'A' vorne an die Nummer an
Sonst Wenn Nummer[i]=höchste Ziffer dann
Nummer[i] := Kleinste Ziffer
inc (i)
Wiederhole Schritt 2
sonst
inc (Nummer[i])
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
|