[alexan0308]

Сообщение от Bargest

Сначала ты говоришь, что не хочешь писать свои циклы, а потом говоришь, что хочешь сделать свои циклы. Может для начала определишься с тем, что конкретно хочешь сделать, и сформулируешь толком?

Код:

Вот замечтался о потоках, которые программист создает, ничего не зная о потоках:

s1:=0; s2:=0; s3:=0;

// ключевое слово Threads означает начало объявления потоков.
// все потоки выполняются одновременно. Конструкция завершает работу, 
// когда все потоки закончили свои вычисления.

Threads a of 
  a = 1 
      begin
          fok k:=1 to 1000000 do s1:=s1+0.0001;
      end;
  a = 2 
      begin
          fok k:=1 to 1000000 do s2:=s2+0.001/k;
      end;
  a = 3 
      begin
          fok k:=1 to 1000000 do s3:=s3-0.01/k;
      end;
end;

s:=s1+s2+s3;