Programm Hilfe

[boxer123]

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

[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.

[himitsu]

Zum Code in Beitrag #29:
Mit einer halbwegs ordentlichen Codeformatierung wären alleine schon die total falschen Begin-End-Verschachtelungen aufgefallen.

Zitat von 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]

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

Delphi-Quellcode:

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

DIV um sich die Dezimalstelle rauszusuchen und das MOD um die eine Stelle rauszufiltern.

Für die Umkehrung kann man das MOD weglassen, muß nur noch das DIV invertieren und alles zusammenaddieren.

Zitat:

Gewiss habt ihr vom Lehrer auch eine IDE gekriegt, irgend ein alten Scheiß wie Delphi 5 bis 7, oder?
Damit hätte man ja mal ein bisschen üben, nachvollziehen und verstehen können.

Sich die neuste Trial (Testversion) vom Delphi zu laden oder Lazarus und selbst das alte Turbo Pascal gibt es kostenlos von Emba zum Download ... zum Üben gäbe es genug Möglichkeiten.


Und nein, das war jetzt keine Antwort für boxer123 ... aber vielleicht gibt es ja doch noch ein paar Lernwillige, denen ein paar Tipps helfen könnten.

[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.