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

39   BEGIN

40     exportDemand[0].Send (FloLib.CopyNumber, SizeOf(cardinal));

41     WHILE (true) DO WITH Task DO BEGIN

42       importArg.Receive (Task, SizeOf(Task));

43       IF (Task.N = 0) THEN EXIT;

44       h := (b-a)/N;

45       S := 0;

46       FOR i := 1 TO N DO

47         S := S + f(a+(i-0.5)*h);

48       S := h*S;

49       exportPartSum[0].Send (S, SizeOf(S));

50       exportDemand[0].Send (FloLib.CopyNumber,SizeOf(cardinal));

51     END;

52   END;

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

Бесконечный цикл 41-51 обеспечивает работу процесса до получения сигнала завершения от распределителя работ Manager.

В строке 42 ждем очередное задание Task.  Если число интервалов в задании равно 0, то завершаем работу. В противном случае вычисляем частичную сумму на интервале (Task.a; Task.b) и отсылаем ее суммирующему процессу (строки 44-49). В строке 50 обращаемся к распределителю работ за очередным заданием.

53 PROCEDURE SummerBody;

54   VAR

55     N, i : cardinal;

56     F    : TextFile;

57     TotalSum, S : real;

58   BEGIN

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





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