[fpc-pascal] How can I write a multithread program as simple as possible?
Géza Kovacs Géza
kg0231 at gmail.com
Tue May 26 18:12:35 CEST 2015
Hi!
I read the Wiki about this article, it's looks like very complicated for me. :-(
Can anybody show me a very simple example?
Below is a code, i would like to run it multithread both under Windows
and Linux.
Program Sorting;
const
n = 999000;
var
data : array [1..n] of integer;
i, j, t: LongInt;
begin
for i := 1 to n do
data[i]:=random(32768);
for i := 1 to n-1 do
begin
for j:=i+1 to n do
begin
if data[i]<data[j] then
begin
t:=data[i];
data[i]:=data[j];
data[j]:=t;
end;
end;
end;
end.
Best regards, G
More information about the fpc-pascal
mailing list