46 lines
1.3 KiB
ObjectPascal
46 lines
1.3 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.
|