sem1 homework

sem1/homework/task1/hello.c

@@ -0,0 +1,13 @@
+#include <mpi.h> 
+#include <stdio.h>
+int main(int argc, char *argv[]) {  
+    int commsize, my_rank;
+
+    MPI_Init(&argc, &argv);  
+    
+    MPI_Comm_size(MPI_COMM_WORLD, &commsize);
+    MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
+    printf ("Communicator size = %d; My rank = %d\n", commsize,my_rank);  
+    
+    MPI_Finalize();
+}

sem1/homework/task2/sum.c

@@ -0,0 +1,46 @@
+#include <mpi.h> 
+#include <stdio.h>
+int main(int argc, char *argv[]) {  
+	int N, k;
+	int my_rank, commsize;
+	double result, buf = 0;
+
+	MPI_Init(&argc,&argv);
+
+	MPI_Comm_size(MPI_COMM_WORLD, &commsize);
+	MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
+
+	/* Головной процесс */
+	if (my_rank == 0) { 
+		scanf("%d", &N);
+		k = N / commsize;
+
+		for (int i = 1; i < commsize; ++i)
+			MPI_Send(&k, 1, MPI_INT, i, 0, MPI_COMM_WORLD);
+
+		/* Считаем члены суммы, оставшиеся после распределения (в случае commsize < N - считаем всю сумму тут) */	
+		for (int i = k * (commsize - 1) + 1; i <= N; i++)
+			result += 1 / (double)i;
+		
+		/* Получаем результаты подсчета от всех процессов */
+		printf("[0] result = %f\n", result);
+		for (int i = 1; i < commsize; ++i) {
+			MPI_Recv(&buf, 1, MPI_DOUBLE, i, 0, MPI_COMM_WORLD, NULL);
+			printf("[%d] result = %f\n", i, buf);
+			result += buf;
+		}
+		
+		printf("result = %f\n", result);
+
+	}
+	else {
+		MPI_Recv(&k, 1, MPI_INT, 0, 0, MPI_COMM_WORLD, NULL);
+	
+		for (int i = (my_rank - 1) * k + 1; i < my_rank * k + 1; ++i)
+			result += 1 / (double)i;
+
+		MPI_Send(&result, 1, MPI_DOUBLE, 0, 0, MPI_COMM_WORLD);
+	}
+
+	MPI_Finalize();
+}

sem1/homework/task3/send.c

@@ -0,0 +1,30 @@
+#include <mpi.h> 
+#include <stdio.h>
+int main(int argc, char *argv[]){  
+	int commsize, my_rank;
+	int msg = 0;
+
+	MPI_Init(&argc,&argv);  
+	MPI_Comm_size(MPI_COMM_WORLD, &commsize);
+	MPI_Comm_rank(MPI_COMM_WORLD, &my_rank);
+	
+	if (my_rank == 0) {
+		printf("[%d] msg = %d\n", my_rank, msg);
+		if (commsize == 1)
+			goto finalize;
+		MPI_Send(&msg, 1, MPI_INT, 1, 0, MPI_COMM_WORLD);
+		MPI_Recv(&msg, 1, MPI_INT, commsize - 1, 0, MPI_COMM_WORLD, NULL);
+		printf("[%d] msg = %d\n", my_rank, ++msg);
+	}
+	else {
+		MPI_Recv(&msg, 1, MPI_INT, my_rank - 1, 0, MPI_COMM_WORLD, NULL);	
+		printf("[%d] msg = %d\n", my_rank, ++msg);
+		if (my_rank + 1 < commsize)
+			MPI_Send(&msg, 1, MPI_INT, my_rank + 1, 0, MPI_COMM_WORLD);
+		else
+			MPI_Send(&msg, 1, MPI_INT, 0, 0, MPI_COMM_WORLD);
+	}
+	
+finalize:
+	MPI_Finalize();
+}