... 9 , 2010 MPI/OpenMP 60 1 2 3 ( PARALLEL) #pragma omp parallel [ [ [, ] ] ...] : default(shared | ... include stdio.h int main () { int n =100000, i; double pi, h, sum , x; h = 1.0 / ( double ) n; sum = 0.0; for (i = 1; i = n; i ++) { x = h * (( double )i - 0.5); sum += (4.0 / (1.0 + x*x)); } pi = h * sum ; printf( pi is approximately %.16f , pi); return 0; } 9 , 2010 MPI / OpenMP 84 1 2 3 OpenMP int main () { int n =100, i; double pi, h, sum , x; h = 1.0 / ( double ) n; ...

383. http://www.kosmofizika.ru/buri/pansyketal.pdf