Programm Hilfe

[DeddyH]

Was soll es bringen, durch 120 zu teilen?

[himitsu]

War ich wohl doch noch nicht ganz wach
SHL kam mit unpassend vor, also dachte ich "ein * passt schon" (hoffentlich ist das Power jetzt richtig ... schade daß es keinen Expotentialoperator gibt)

[gammatester]

Spätestens bei diesen Größenordungen ist angebracht, zu der einer allgemein-gültigen Lösung mit einer Schleife zu wechseln:

Delphi-Quellcode:

for i:=n downto 1 do begin
  result[i] := wert mod 10;
  wert := wert div 10;
end;

Ist auch übersichtlicher und verständlicher.

PS: div und power passen doch wohl nicht ganz zusammen.

[DeddyH]

Naja, ich hatte bewusst auf Schleifen verzichtet, um den TE nicht noch mehr zu verwirren. Da es ja nur um 4-stellige Zahlen ging, kann man das IMO verschmerzen.

[p80286]

Ich geb zu das es nicht schön ist, aber es tut's:

Delphi-Quellcode:

var
  i : integer;
  liste: tstringlist;
  zahl1,zahl2,tmpzahl : string;
  zahlgros,
  zahlklein,
  differenz,
  altdifferenz : integer;
  cnt : integer;
begin
  liste:=tstringlist.Create;
  tmpzahl:=edit1.Text;
  differenz:=0;
  cnt:=0;
  repeat
    altdifferenz:=differenz;
    (*                            ** )
    liste.clear;
    ( * ************* *)  
    for i:=1 to length(tmpzahl) do
      dummy1.add(tmpzahl[i]);
    dummy1.Sort;
    zahl1:='';
    zahl2:='';
    for i:=0 to liste.Count-1 do begin
      zahl1:=zahl1+dummy1[i];
      zahl2:=dummy1[i]+zahl2;
    end;
    zahlgros:=strtoint(zahl2);
    zahlklein:=strtoint(zahl1);
    differenz:=zahlgros-zahlklein;
    memo1.Lines.Add(tmpzahl+' / '+zahl2+'-'+zahl1+' = '+inttostr(differenz));
    tmpzahl:=inttostr(differenz);
    inc(cnt);
  until (altdifferenz=differenz) or (cnt >20);
  liste.Free;
end;

Das geht ganz gut ohne mod und div und kann ach mit 2,3,4,5,... stelligen Zahlen umgehen.

Gruß
K-H

[Amateurprofi]

@p80286:

Zitat:

Das geht ganz gut ohne mod und div und kann ach mit 2,3,4,5,... stelligen Zahlen umgehen.

Hast du das denn wirklich mal probiert.
So, wie der Code in deinem Beitrag steht, wird er nicht funktionieren.
Warum?: Weil du auf eine StringList "dummy1" zugreifst, die nicht deklariert ist.

Ich hab das ganze auch mal durchgespielt und bemerkt, daß bei allen 4-stelligen Zahlen 6174 als sich wiederholende Differenz herauskommt.
Also hab ich mal Tante Google bemüht und bin auf diesen Link gestoßen.
http://en.wikipedia.org/wiki/6174_(number)

So sieht mein Code aus:
(das in meinem Code angesprochene "meResult" ist ein TMemo)

Delphi-Quellcode:

PROCEDURE TForm1.Work(ss:string);
var r,s,t:string; len,i,j,res,old:integer; h:char;
begin
   res:=-1;
   len:=Length(ss);
   SetLength(t,len);
   repeat
      old:=res;
      s:=ss;
      // s sortieren
      for i:=1 to len-1 do
         for j:=i+1 to len do
            if s[i]>s[j] then begin
               h:=s[i];
               s[i]:=s[j];
               s[j]:=h;
            end;
      // s reverse in t stellen
      for i:=1 to len do t[len+1-i]:=s[i];
      res:=StrToInt(t)-StrToInt(s);
      // res als String mit führenden Nullen in r
      Str(res:len,r);
      for i:=1 to len do if r[i]=' ' then r[i]:='0' else break;
      meResult.Lines.Add(ss+' : '+t+' - '+s+' = '+r);
      ss:=r;
   until (res=old) or (meResult.lines.count>30);
end;

[p80286]

Jo da hast Du recht,
mit copy und paste bekommst Du den nicht zum laufen.
Aber jeder der ein wenig mit Pascal umgehen kann findet den Fehler sofort.

Gruß
K-H

Edith:
interessant, der Link, wenn man's mit 5stelligen Zahlen macht hast Du eine Endlosschleife die sich um drei Werte bewegt.