46 lines
1.1 KiB
ObjectPascal
46 lines
1.1 KiB
ObjectPascal
uses
|
|
System, System.Net, System.Threading.Tasks;
|
|
|
|
type
|
|
Int = class
|
|
N: int64;
|
|
constructor(NN: int64);
|
|
begin
|
|
N := NN;
|
|
end;
|
|
|
|
function IsPrime: boolean;
|
|
begin
|
|
Result := True;
|
|
for var i: int64 := 2 to round(sqrt(N)) do
|
|
if N mod i = 0 then
|
|
begin
|
|
Result := False;
|
|
exit;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
type
|
|
BTask = Task<boolean>;
|
|
|
|
begin
|
|
var ss: array of int64 := (1265713689122381, 1265713689122461, 1265713689142451, 1265713689542501); // Âñå ÷èñëà - ïðîñòûå
|
|
var tb := new BTask[4];
|
|
// Çàïóñê 4 ïîòîêîâ èç ïóëà ïîòîêîâ
|
|
// Ó êàæäîãî tb[i] ñâîé Result!
|
|
for var i := 0 to ss.Length - 1 do
|
|
tb[i] := Task.Factory.StartNew((new Int(ss[i])).IsPrime);
|
|
|
|
// Åñëè ïîòîê íå çàêîí÷èëñÿ, òî îáðàùåíèå ê tb[i].Result ïðèîñòàíàâëèâàåò îñíîâíóþ ïðîãðàììó
|
|
for var i := 0 to tb.Length - 1 do
|
|
writeln(tb[i].Result);
|
|
//  ýòó òî÷êó ìû ïîïàäåì òîëüêî ïîñëå îêîí÷àíèÿ âñåõ ÷åòûðåõ ïîòîêîâ
|
|
writeln(Milliseconds);
|
|
|
|
// Ïîñëåäîâàòåëüíîå âûïîëíåíèå
|
|
var t := Milliseconds;
|
|
for var i := 0 to ss.Length - 1 do
|
|
writeln((new Int(ss[i])).IsPrime);
|
|
writeln(Milliseconds - t);
|
|
end. |