Programm Hilfe

[himitsu]

Was ist für dich der Sinn?

Bzw., wo ist das Problem?




Schonmal etwas von Codeformatierung/Codeausrichtung gehört?

Dabei würde dir auffallen, daß dir absteigende sortierung nicht sortieren kann, da sie sich nicht innerhalb der Schleife befindet.

Und wozu zahltexteins:=zahltext und das Andere innerhalb der Schleife?
Es verändert sich darin doch garnicht.



Was machst du mit den Werten in a und b? (nach der Sortierung)



Und warum die globalen Variablen, wo sie doch nur lokal (innerhalb der Prozedur) gnutzt werden

[boxer123]

Ich denke es gibt kein problem in dem quelltext, aber wenn ich starte und eine 4stellige zahl im edit fenster eingebe, dann kommt project1 fehler oder so.

ich habe es mir so vorgestellt, wenn er was in zahltext drin ist geordnet hat,das soll er in zahltexteins speichern.

[DeddyH]

Hast Du Dir einmal angeschaut, welchen Wert i nach der ersten Schleife hat?

[boxer123]

ah ja ihn wurde noch kein wert zugewiesen

[DeddyH]

Das bedeutet also, dass Dein Vergleich falsch ist.

[Bjoerk]

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.

[himitsu]

Mit "oder so" können wir nichts anfangen.

Eine ordentliche Fehlermeldung wäre schon angebracht.

Zitat:

Das bedeutet also, dass Dein Vergleich falsch ist.

Man könnte ja mal im Debugger das Ganze Schritt für Schritt durchgehen.
Und mit einer ordentlichen Codeausrichtung sagt es eigentlich auch schon alles.

[DeddyH]

Ich empfehle folgende Lektüre: http://de.wikipedia.org/wiki/Bubblesort. Da ist sogar eine kleine Animation zum Nachvollziehen dabei. Alternativ gibt es auch in der DP entsprechende Codes/Tutorials zum Thema Sortieren.

[boxer123]

ich versteh eins nicht wir wissen ja das ist eine 4stellige zahl ist. Wieso also repeat machen wir das doch mit der for schleife

[Bjoerk]

Hast du doch in #1 geschrieben, so oft wiederholen bis das Ergebnis der vorletzten Iteration dem Ergebnis der letzten Iteration entsprich (also 6174).

Delphi-Quellcode:

function GetFirstKaprekarsConstant(const Value: int64): int64;
var
  T, MinValue, MaxValue, PrevResult: int64;
  Number: array [1..10] of int64;
  I, J, N, Count: integer;
begin
  Result:= 0;
  N:= Length(IntToStr(Value));
  if (N in [3, 4, 6, 8, 9, 10]) and (Value > 0) then
  begin
    Result:= Value;
    Count:= 0;
    repeat
      PrevResult:= Result;
      for I:= 1 to N do
      begin
        *** Number[I] berechnen;
      end;
      *** Number sortieren
      *** MinValue und MaxValue berechnen
      Result:= MaxValue-MinValue;
    until (Result = PrevResult) or (Count > 1000);
    if Count > 1000 then Result:= 0; // Kein Ergebnis gefunden
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  Value: int64;
begin
  Edit2.Text:= '';
  if TryStrToInt64(Trim(Edit1.Text), Value) then
    Edit2.Text:= IntToStr(GetFirstKaprekarsConstant(Value));
end;