Fatorisierung - Ablauf korrekt, aber falsche Ergebnisse

[Klaus01]

Delphi-Quellcode:

  ShowMessage('Die Zahl '+ IntToStr(a)+
  ' hat die Primfaktorzerlegung '+Zerlegung+ IntToStr(c));  // <--- hier stolperts

Hier ist der Workaround:

Delphi-Quellcode:

 begin
      Primteiler:= c div b;
      if primteiler <> 1 then
        Zerlegung:= Concat(Zerlegung,' x ',IntToStr(Primteiler));
    end;

An sich hättest Du da auch selber drauf kommen können.
Haltepunkt setzen, F8 benutzen und Variablen anschauen (Strg-F5).

Grüße
Klaus