Array-Problem

[Mysterio08]

Guten Morgen,
ich möchte ein Programm schreiben, das durch Eingabe einer Zahl (Integer-Zahl) alle Teiler errechnet, die keinen Rest haben und in eine ListBox schreibt.
So sieht mein Quelltext aus:

Delphi-Quellcode:

procedure TForm1.Button_PruefenClick(Sender: TObject);
var
  Zahl, ErrorCode, i: Integer;
  Teiler: Array of Integer;
begin
  Val(Edit_Zahl.Text, Zahl, ErrorCode);
  if (ErrorCode = 0) and (Zahl >= 2) then
  begin
    for i := 1 to Zahl -1 do
    begin
      Teiler[i+1] := Zahl mod i;  //Zeile1
      if Teiler[1] = 0 then ListBox_Teiler.Items.Add(IntToStr(i))  //Zeile2
    end;
  end
end;

Wenn ich nun eine Zahl eingebe, und die Teiler wissen möchte, bekomme ich eine Warnung mit folgendem Inhalt:
"Acces Violation at address 0045B8C5 in module 'Vollkommen.exe' (Mein Projektname). Write of address 00000008."
Es muss an dem Array liegen, denn ohne die Zeile1 und 2 (gekennzeichnit im Quelltext) kommt die Meldung nicht.

Ich bitte um schnelle Hilfe und
danke schonmal im Vorraus
Mysterio08

[DeddyH]

Für ein dynamisches Array musst Du zuerst mit SetLength Speicher reservieren.

[Mysterio08]

Also ich habe die Schleife jetzt noch um eine Zeile ergänzt:

Delphi-Quellcode:

for i := 1 to Zahl - 1 do
      begin
        SetLength(Teiler, i+1);
        Teiler[i] := Zahl mod i;
        if Teiler[i] = 0 then ListBox_Teiler.Items.Add(IntToStr(i));
      end;

Jetzt klappt es wunderbar.
Danke!

[DeddyH]

Effizienter ist es allerdings, SetLength einmalig vor der Schleife aufzurufen, die Anzahl der Elemente ist ja bekannt.

[Billa]

.. außerdem genügt (wg. des Kommutativgesetzes??!) die Suche bis SQRT(Zahl)....

[Mysterio08]

Zitat:

Zitat von DeddyH

Effizienter ist es allerdings, SetLength einmalig vor der Schleife aufzurufen, die Anzahl der Elemente ist ja bekannt.

Nein, die Anzahl der Zahlen, die durch die Anfangszahl teilbar sind, steht noch nicht fest. Ich habe ja bei 10.000 mehr Teiler als bei 6 und ich halte es für Verschwendung, wenn ich schreibe:

Delphi-Quellcode:

var Teiler: Array[1..9999] of Integer

Nur in der Hoffnung, dass die 9999 auch nicht überschritten werden.

Zitat:

Zitat von Billa

.. außerdem genügt (wg. des Kommutativgesetzes??!) die Suche bis SQRT(Zahl)....

Mhm, dazu kann ich nichts sagen, ich dachte mit SQRT zieht man die Quadratwurzel einer Zahl und was hat das Kommutativgesetz damit zu tun?

[DeddyH]

Wenn Du eine for-Schleife verwendest, muss die Anzahl ja feststehen.

Delphi-Quellcode:

SetLength(Teiler, Zahl - 1); //müsste doch stimmen
for i := 1 to Zahl - 1 do
      begin
        Teiler[i - 1] := Zahl mod i;
        if Teiler[i - 1] = 0 then ListBox_Teiler.Items.Add(IntToStr(i));
      end;

[Klaus01]

Zitat:

Zitat von Mysterio08

Zitat:

Zitat von Billa

.. außerdem genügt (wg. des Kommutativgesetzes??!) die Suche bis SQRT(Zahl)....

Mhm, dazu kann ich nichts sagen, ich dachte mit SQRT zieht man die Quadratwurzel einer Zahl und was hat das Kommutativgesetz damit zu tun?

.. angenommen Deine Zahl ist 12
sqrt(12) -> 3.46

1 * 12 = 12 (Teiler 1 und 12)
2 * 6 = 12 (Teiler 2 und 6)
3 * 4 = 12 (Teiler 3 und 4)

alle Teiler gefunden.

Grüße
Klaus

[TonyR]

Wow, das war mir so noch nie bewusst, dass man sich das Verfahren so abkürzen kann :shock:

Für die Zahl: 25.000.000 braucht mein Rechner für die For-Schleife ungefähr 32 sec.
Wenn man aber nur bis zu 5000 durchlaufen lässt, was ja die Wurzel aus der genannten zahl ist, dauert der Vorgang satte 0 ms :-D

Edit: Das Ergebnis ist natürlich das gleiche...