Programm Hilfe

[DeddyH]

Zitat von himitsu:

Wobei es andersrum einfacher/übersichtlicher gewesen wäre.

Das ist eine subjektive Einschätzung, oder? Ob ich nun erst überzählige Stellen abschneide und dann "verschiebe" oder andersherum, es liegt im Auge des Betrachters, wie er es besser findet. Aber das spielt ja auch jetzt keine Rolle mehr.

[himitsu]

Zitat von DeddyH:

Zitat von himitsu:

Wobei es andersrum einfacher/übersichtlicher gewesen wäre.

Das ist eine subjektive Einschätzung, oder? Ob ich nun erst überzählige Stellen abschneide und dann "verschiebe" oder andersherum, es liegt im Auge des Betrachters, wie er es besser findet. Aber das spielt ja auch jetzt keine Rolle mehr.

OK, mehr subjektiv, aber mehmen wir mal die 12 Dezimalstelle ... welcher Zeile wäre richtig?

Delphi-Quellcode:

Result[1] := Wert mod 100000000000 div 1000000000;

Result[1] := Wert mod 100000000000 div 100000000000;

Result[1] := Wert mod 1000000000000 div 100000000000;

Result[1] := Wert mod 1000000000000 div 1000000000000;

1: liefert zwei Dezimalstellen
2: liefert keine Dezimalstelle (immer 0)
3: liefert eine Dezimalstelle
4: wie 2

+ mehr (doppelt soviele) Zahlen zu Prüfen und diese müssen auch noch untereinander verglichen werden
= mehr als doppeltet so große Fehlerrate

Dagegen dann dieses?

Delphi-Quellcode:

Result[1] := Wert div 100000000000 mod 10;

Result[1] := Wert div Power(10, 12) mod 10;

Und Jupp, für boxer123 ist eh alles zu spät/umsonst, aber es soll ja auch andere Schüler geben, welche etwas mehr Eigeninitiative zeigen.

PS: Vielleicht erbarmt sich noch ein Mod für eine schönere Überschrift?
Der Ersteller wird und kann sie nun eh nicht mehr selber ändern.

[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