Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата

20     FOR i := 1 TO N DO BEGIN

21       Task.a := Task.b;

22       Task.b := i * 1.0 / N;

23       importDemandList.Receive (WrkId, SizeOf(WrkId));

24       exportWorker[WrkId].Send (Task, SizeOf(Task));

25     END;

26     Task.N := 0;

27     FOR i := 1 TO exportWorker.NChannels DO

28       exportWorker[i-1].Send (Task, SizeOf(Task));

29   END;

  Файл Manager.frm : тело процесса Manager

Переменная Task описывает задание для рабочего процесса:  a,b - границы, N - число интервалов. Константа N, описанная в строке 15, равна числу разбиений отрезка [0;1].

В начале работы посылаем процессу Summer число разбиений N (строка 17) . В строке 23 ждем запроса от одного из рабочих процессов. Запрос представляет собой идентификатор запрашивающего процесса. Получив запрос, отсылаем очередное задание соответствующему рабочему (строка 24).

После того, как задания распределены, нужно сообщить об этом всем рабочим процессам. Для этого служат строки 26-28: по всем каналам порта exportWorker посылаем задание с нулевым числом интервалов - сигнал о завершении работы.

30 PROCEDURE WorkerBody;

31   VAR

32     Task : RECORD N:word; a,b:real; END;

33     S : real;

34     i : word;

35   FUNCTION f(x:real):real;

36     BEGIN

37       Result := 4 / (1 + x*x);

38     END;

Рекомендуем скачать другие рефераты по теме: бесплатные курсовые работы, диплом.





Предыдущая страница реферата | 1  2  3  4  5  6  7 | Следующая страница реферата