Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Nein! Erstens gehen dynamische Arrays immer von 0 bis Count-1, und zweitens sollst Du das Ergebnis multiplizieren.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Einfache For-Schleife, das sollte ja wohl möglich sein.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Nehmen wir nochmal Dein Beispiel aus dem Ausgangspost. Wenn Du die Zahl 333 zerlegt hast, sollte Dein Array nun so aussehen:
Index | 0 | 1 | 2
=================
Wert | 3 | 3 | 3
Nun gehst Du von Index zu Index durch und multiplizierst Dein Ergebnis mit der Zahl, die am aktuellen Index als Wert eingetragen ist. Vergiss aber nicht, dem Ergebnis vorher einen Ausgangswert (1 bietet sich an)...
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Eine Schleife genügt doch bei einem eindimensionalen Array.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Dann halt mit Copy und ohne den Fehler, den ich vorhin gemacht habe.
var
Ziffern: array of integer;
i, dummy, Laenge: integer;
begin
if TryStrToInt(Edit1.Text, dummy) then
begin
Laenge := Length(Edit1.Text);
SetLength(Ziffern, Laenge);
for i := 1 to Laenge do
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Klar geht das auch mit Copy, dauert nur länger bei gleichem Ergebnis.
Sieht ganz danach aus.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Einfacher geht das aber direkt über den String. Ich will mal nicht so sein:
var
Ziffern: array of Byte; //oder auch integer, Byte reicht aber
i, dummy, Laenge: integer;
begin
if TryStrToInt(Edit1.Text, dummy) then
begin
Laenge := Length(Edit1.Text);
SetLength(Ziffern, Laenge);
for i := 1 to Laenge do
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Wie man eine Zahl in Ziffern zerlegt haben wir ja nun schon mehrfach durchgekaut. Fang doch erstmal damit an.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Das wäre dann Deine Aufgabe.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Bei welcher Zahl ist vollkommen wurscht. 1 div 10 ergibt 0, zahl mod 1 ergibt zahl. Im Ergebnis bedeutet das, dass Du Zahl durch 0 teilst.
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Wenn der Divisor 1 ist, was soll denn dann bei
herauskommen?
Forum: Programmieren allgemein
Delphi
by DeddyH,
6. Dez 2011
Was mir unklar ist: was ist Dir unklar?