kleines Mathe problem in Delphi

[SnGtKs]

Hallo ihr da...

als erste mal vorweg ... ich bin gelegenheits - Delphianer also entschuldigt diese n00b frage ;)

ich habe eine ein kleines projekt am laufen das soll folgendes machen

eine siebenstellige zahl addieren z.B. 1234567 soll er also 1+2+3+4+5+6+7 dann soll das ergebnis durch 7 geteilt werden also 28:7 es kommt 4 raus Rest 0 soweit ja alles klar doch mein problem ist ein zufallsgenerator erstellt mir diese sieben-stellige zahl wie kann ich die wieder zerlegen und dann addieren usw... irgendwie fällt mir da nix so richtig ein wie ich dies machen könnte

[mkinzler]

Entweder per DIV+MOD in die Ziffern Zerlegen oder Zahl in String wandeln, Ziffern per Index holen und diese in Zahl zurückwandeln und summieren.

[Corpsman]

Also mal Blind gecoded, kann sein das du hier und da noch was ändern must. Aber als Grundlage könnte es dienen

Delphi-Quellcode:

const Range = 100000;
      Basis = 10;

var Ergebnis1,Ergebnis2,tmp,rest,ln,Number:integer;

Begin

// Besimmen deiner Zufahlszahl, Randomize nicht vergessen
Number := Random(Range +1);

// initialisieren
ln:=0;
tmp:= 0;
rest:=0;

// berechnen des LN und gleichzeitig aufaddieren der einzelnen Ziffern
while Number > 0 do begin
  Rest:= Number mod Basis;
  tmp:= tmp + Rest;
  Number:= Number div Basis;
  inc(ln);
end;

// Fehler Abfangen ;)
ln:=max(1,ln); 

// Berechnen deines Ergebnisses
Ergebnis1 := rest div ln;
Ergebnis2 := rest mod ln;

[SnGtKs]

hey cool ... danke ... nun schreitet mein projekt vorran ;)

[Corpsman]

np
dafür ist die DP ja da.

[dino]

für copy and paste???

naja ok nett von corpsman, dass er sich die mühe gemacht hat und SnGtKs hats ja auch nicht verlangt, dass wir die arbeit für ihn machen, von daher ist der threat ein musterbeispiel der DP :D