Programm Hilfe

[boxer123]

wie heißt der befehl der eine 4stellige zahl zerhackt

[p80286]

vielleicht sollte man boxer zugute halten, daß er das Problem nicht verstanden hat, und es darum nicht ordentlich formulieren kann?

Gruß
K-H

[DeddyH]

Zitat von boxer123:

wie heißt der befehl der eine 4stellige zahl zerhackt

Es gibt nach meiner Kenntnis keinen. Du kannst das aber schnell selbst durch Division erledigen.

[edit] OK, ich will mal nicht so sein:

Delphi-Quellcode:

type
  TZiffern = array[1..4] of Byte;

function Zerlege(Wert: integer): TZiffern;
begin
  Result[1] := Wert mod 10000 div 1000;
  Result[2] := Wert mod 1000 div 100;
  Result[3] := Wert mod 100 div 10;
  Result[4] := Wert mod 10;
end;

Bevor jetzt aber Fragen kommen, schau in die Hilfe zu MOD und DIV und vollziehe den Code nach. [/edit]

[boxer123]

kann man es auch so machen.

Delphi-Quellcode:

/code zahl:array[1..4] of integer;
i:integer;
zahl[1] := Wert mod 10000 div 1000;
zahl[2] := Wert mod 1000 div 100;
zahl[3] := Wert mod 100 div 10;
zahl[4] := Wert mod 10;

[DeddyH]

Ja klar, probier es einfach mal.

[boxer123]

wie setzt ich dann wieder die ziffern zusammen.

zahl[1] := Wert mod 10000 * 1000;
zahl[2] := Wert mod 1000 * 100;
zahl[3] := Wert mod 100 * 10;
zahl[4] := Wert mod 10;

würde das so gehen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
zahl[1..4]:=0;
zahl[1] := Wert mod 10000 div 1000;
zahl[2] := Wert mod 1000 div 100;
zahl[3] := Wert mod 100 div 10;
zahl[4] := Wert mod 10;
for i:= 1 to 3 do
for j:=i+1 to 4 do
if zahl[i]>=zahl[j]:=zahl[j]];zahl[j]:=park;
zahl[1] := Wert mod 10000 * 1000;
zahl[2] := Wert mod 1000 * 100;
zahl[3] := Wert mod 100 * 10;
zahl[4] := Wert mod 10;
end;
edit2.text:=inttostr(zahl[1..4]);

;

[DeddyH]

Das ist doch derselbe Code wie vorhin. Nach dem Zerlegen hast Du doch ein Array mit Zahlen im einstelligen Bereich. Sagen wir mal, das sieht dann so aus:

Code:

Index:   1 | 2 | 3 | 4
        =============
Inhalt: 3 | 4 | 5 | 6

Was muss man nun also tun, um die Zahl 3456 zu erhalten? Ich denke, mit Multiplizieren und Addieren bekommt man das hin. Man muss nur wissen, für welchen Index man welchen Multiplikator verwenden muss.

[boxer123]

Ich habe mal eine Frage. Haben Sie das Programm geschrieben?

Ok und weiter. Ich verstehe es nicht, weil ich probiere hier schon 3 Stunden und ich schaffe es einfach nicht.

[DeddyH]

Ich hab das Programm garantiert nicht geschrieben, mir aber Gedanken gemacht. Übrigens duzen wir uns im Allgemeinen hier.

[boxer123]

Kann man es auch mit copy zerlegen, wenn ja Wie? Oder kannst du mit mit Teamviewer helfen