ich habe kürzlich spasseshalber ein paar Zeilen in FreePascal geschrieben, um große Primzahlen zu berechnen...
Code: Alles auswählen
program grosse_prim;
uses crt;
var i,j : qword;
prim : boolean;
begin
clrscr;
writeln;
writeln('Berechnung grosser Primzahlen');
writeln('-----------------------------');
i:=123456000;
repeat
prim:=true;
i:=i+1;
j:=1;
repeat
j:=j+1;
if i mod j=0 then prim:=false;
until j>= (i-1);
if prim=true then writeln(i,' ist Primzahl !');
until i = 123456789;
repeat until keypressed;
end.
Das Problem ist, dass ich anhand meines Conky's gesehen habe, dass das Programm nur einen Prozessorkern benutzt, egal, wie lange es rechnet. Ich hätte gerne, dass es alle vier Kerne nutzt.
Es gibt für FreePascal diese TThread-Unit, aber auch nach längeren Recherchen und anschauen einiger Examples sehe ich mich nicht in der Lage, das obige Programm so zu verändern, dass alle Kerne genutzt werden.
Kann mir da vielleicht jemand helfen?
Danke schon im Voraus!