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

29 END

30

31 PROCESS Summer

32   IMPORT:

33     num_iter;

34     part_sum;

35 END

Запись программы вычисления Пи на языке DGL

В строке 13 определяется константа NW - число рабочих процессов. Ее значение выбирается так, чтобы использовать для решения задачи все компьютеры сети.

В строке 23 описывается процесс Worker. Константа NW, расположенная в квадратных скобках после имени процесса, дает указание диспетчеру создать NW копий данного процесса. Причем, если значение NW меньше 1, то все равно создается одна копия. Все копии нумеруются, номер копии записывается в константу p, которая может быть использована при описании выходов процесса. Рассмотрим пример.

result à filter[2*p+1]:arg

Данная запись означает, что выход result р-й копии процесса будет связан со входом arg (2р+1)-й копии процесса filter.

Запись в строке 17 означает, что выход worker процесса Manager будет иметь NW каналов. Причем, если значение NW меньше 1, то все равно будет создан один канал. Все каналы нумеруются, номер канала записывается в константу С. В примере С-й канал выхода worker связан со входом arg  С-ой копии процесса Worker.

Написание тела для каждого процесса

Для каждого процесса нунжно создать файл-шаблон. Имя такого файла совпадает с именем процесса и имеет расширение frm (можно воспользоваться файлом Process.frm). В нашем случае имеем три файла: Manager.frm, Worker.frm и Summer.frm. В каждом файле есть процедура, имя которой заканчивается на Body. Внутри нее записывается тело процесса.

10 PROCEDURE ManagerBody;

11   VAR

12     Task    : RECORD N:cardinal; a,b:real; END;

13     i,WrkId : cardinal;

14   CONST

15     N : cardinal = 10;

16   BEGIN

17     exportNumIter[0].Send (N, SizeOf(N));

18     Task.N := 10*N;

19     Task.b := 0;

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





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