Forum: Programmieren allgemein
Delphi
by Bjoerk,
23. Okt 2011
Wenn a und b integer sind kannst du a:=copy(zahltext,i,1) nicht schreiben.
Möchtest du jetzt mit strings oder integer arbeiten?
Forum: Programmieren allgemein
Delphi
by Bjoerk,
23. Okt 2011
In dieser Variante gibt es kein J.
Forum: Programmieren allgemein
Delphi
by Bjoerk,
23. Okt 2011
Das ist doch schon mal ganz gut. Schmeiß das repeat until raus und mach aus den a a, dann hast du den Selectionsort.
Edit: Und aus dem park ein integer und aus a, b array of integer statt string und StrToInt(Copy(..
Forum: Programmieren allgemein
Delphi
by Bjoerk,
23. Okt 2011
Hast du doch in #1 geschrieben, so oft wiederholen bis das Ergebnis der vorletzten Iteration dem Ergebnis der letzten Iteration entsprich (also 6174).
function GetFirstKaprekarsConstant(const Value: int64): int64;
var
T, MinValue, MaxValue, PrevResult: int64;
Number: array of int64;
I, J, N, Count: integer;
begin
Result:= 0;
Forum: Programmieren allgemein
Delphi
by Bjoerk,
23. Okt 2011
Hab‘s mal durchgespielt. Das wird so nicht funktionieren, da du die Differenz in einer repeat until Schleife immer neu berechnen und sortieren mußt und diese auch mal nur eine dreistellige Zahl sein kann. Die mod div Variante war da eleganter (speichert z.B. 483 als 0483) oder du überprüfst die Länge von Differenz selbst und füllst entsprechend mit Nullen auf.