modular 0.0?

[mkinzler]

In deinem Code ist aber 6 die erste Ziffer der 3 stelligen Zahl.

[Kuehter]

meinst du die rote 6 weil das wäre der falsche also die 633+33 soll nachher stehen wenn das so richtig ist 633+033

also er braucht nur die 33 auffüllen

[himitsu]

Zitat:

while numbers[counter] <> 0 do

Du brichts ab, sobald dort 0 drin steht, also sind dann alle höheren Dezimalstellen natürlich undefiniert.
* entweder du initialisiert voher gefälligst diese Werte (alles mit 0 füllen)
* oder du mußt die nichtbelegten Werte nachher noch mit 0 füllen
* oder du lässt immer alle gewünschten Dezimalstellen durchrechnen

Und nun rate auch mal was passiert, wenn da eine 4-stellige oder noch größere oder vielleicht sogar negative Zahl drin steht?
Du solltest dringend bei deinen Programmen immer die Bereichs- und vielleicht sogar die Überlaufprüfung aktivieren. (z.B. {$R+} an den Anfang aller deiner eigenen Units)

[Kuehter]

um zurück zukommen auf dieses Thema noch mal, kann mir bitte einer einen schnipsel programmcode für die Lösung zeigen, weil das mit dem null auffüllen bekomm ich einfach nicht hin und nein die zahlen werden nicht negativ und auch nicht 4 stellig das ist des weiterem im Programm abgefangen, dass geht nur darum das wenn ich ne 33 darin stehen habe, da 033 stehen habe oder nur 33

[DeddyH]

Erklär doch nochmal genau, was Deine Funktion eigentlich tun soll. Mir erscheint der Code viel zu kompliziert, aber solange wir nicht wissen, was er eigentlich bezwecken soll, kann man nur schlecht alternative Vorschläge machen.

[Bjoerk]

TE will wohl Zahlen splitten und wieder zusammensetzen. Scheint eine div mod Übungsaufgabe zu sein?
Ich habe die function auch nicht kapiert. Am besten du schreibst dir eine function die nur eine Zahl splittet. Und was auf alle Fälle schon mal fehlt:

Delphi-Quellcode:

  
  for I := Low(Result) to High(Result) do
    Result[I] := 0;

[Namenloser]

Alternative, einfache Lösung:

Delphi-Quellcode:

if Zahl > 99 then
  { Drei- oder mehrstellig }
else if Zahl > 9 then
  { Zweistellig }
else
  { Einstellig }
else
  { Null oder negativ }

Ich versteh aber den Sinn auch nicht. Ein Integer hat immer 32 Bit, die „unbenutzen“ Stellen sind automatisch mit 0 aufgefüllt. Natürlich im Binärsystem, aber damit rechnet ein Computer ja normalerweise auch.