Hallo und guten Tag!
Ich befasse mich erst seit kurzem mit DELPHI (Version2005) und habe dazu meine alten Ideen wieder herausgeholt, die ich vor langer Zeit mit Turbo Pascal gebastelt habe. Ich will natürlich jetzt einiges verfeinern.
Hier also ein Programm zur Primzahlprüfung und Primfaktorzerlegung.
So sollte das eigentlich funktionieren:
Teil I: Eine Funktion "primpruef(a)", die den kleinsten von 1 verschiedenen Primteiler ausgibt, im Primfall also a selber.
Teil II: Eine Prozedur, die diese Funktion so oft aufruft, bis auch der letzte (größte) untersuchte Teiler prim ist. Die kleineren werden jeweils nacheinander abgespalten und in "Zerlegung" aufgezählt. Danach schließlich die entsprechenden Ausgaben.
Das Dumme an der Sache ist nur, daß ich vom Compiler keine Fehlermeldung bekomme, das Programm auch fehlerfrei abläuft, aber falsche und höchst merkwürdige Ergebnisse bringt. Bei 67 z.B. sagt es richtig, das die Zahl prim ist, die Teiler von 34 seien aber 1 x 2 x 117 und die Primzahl 117 selber habe eine Zerlegung 1 x 3 x 3 x 113!
Delphi-Quellcode:
function primpruef(a:Int64):Int64;
{gibt den kleinsten Primteiler von a aus}
var b,i:Int64;
begin
b:= Trunc(Sqrt(a));
i:= 2;
While i<=b Do
begin
If a mod i = 0 Then
begin
primpruef:= a div i;
exit;
end
Else
i:= i+1;
end;
primpruef:= a;
end;
procedure TForm4.Button1Click(Sender: TObject);
{gibt, falls eine Zahl nicht prim ist,
die Primteiler aus}
var a,b,c,Primteiler:Int64;
Zerlegung:String;
begin
a:= StrToInt64(InputBox('Eingabe',
'Bitte hier die zu prüfende Zahl eingeben:',''));
b:= a;
Zerlegung:= '1';
Repeat
c:= b;
b:= primpruef(b);
If b=a Then
begin
ShowMessage('Die Zahl '+ IntToStr(a)
+' ist eine Primzahl!');
exit;
end
Else
begin
Primteiler:= c div b;
Zerlegung:= Concat(Zerlegung,' x ',IntToStr(Primteiler));
end;
Until b=c;
ShowMessage('Die Zahl '+ IntToStr(a)+
' hat die Primfaktorzerlegung '+Zerlegung+ IntToStr(c));
end;
end.
Ich finde bei diesen Ergebnissen nicht die Stelle, über welchen Befehl das Programm stolpert.
Habt Ihr eine Idee?
Vielen Dank im Voraus,
Euer Waldbärchen