Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#2

Re: Kundennummer aus Buchstaben und Zahlen erstellen

  Alt 9. Jun 2005, 09: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")
  Mit Zitat antworten Zitat