Contoh Program Bahasa C MPI Visual Studio 2008 ~ altertek.net

Senin, 07 November 2011

Contoh Program Bahasa C MPI Visual Studio 2008

Posted by alterteknet 20.06 1 comment

Rules:

mpiexec -n 4 Nama Program 10 20 30 40
Buatlah program untuk menjalankan prorgram tersebut dengan ketentuan:
Soal A
1. P0
tampilkan nama dan nim anda
2. p1
ambil data nilai 10 yang diinput oleh user.
lakukan perulangan sampai 10 kali - >untuk isi data di array
3. p2
ambil data 20 dan 40
lakukan rumus phytagoras
4. ambil data 40
mendapatkan nilai kuadrat.
lakukan pengisian data (Array sampai 40 kali)
dan isi nilai tersebut dengan 1-40 =dikuadratkan.

Soal B
Untuk soal b sama dengan soal no A. ditambahkan tampilkan waktu proses perhitungan tersebut di P0.
p2 mengirim hasil data ke p0.

Source Code:

#include <stdio.h>
#include <mpi.h>
#include <stdlib.h>
#include <math.h>

int main ( int argc[], char *argv[] );

main(int argc, char *argv[])
{
   //inisialisasi
   int Processor, input, Masukkan1, Masukkan2, Masukkan3, Masukkan4,i,j,k,a,w;
   float phytagoras;
   char isipesan[10];
   int pesan1[50], pesan2[50];
   double first, last, time;
      
   MPI_Init(&argc,&argv);//function untuk inisialisasi var MPI
   MPI_Comm_rank(MPI_COMM_WORLD, &Processor);//Menyebarkan tugas ke smua komp. yg punya MPI
   
   first=MPI_Wtime();

if(argc !=5){
      if(Processor == 0)
        printf("Maaf anda memasukkan input yang salah!!\n ");
        printf("Silahkan Input Kembali.\nContoh mpiexec -n 4 <nama program> <nilai inputan>\n");
         MPI_Finalize();
         exit(0);
      }else{
       Masukkan1 = atof(argv[1]);
       Masukkan2 = atof(argv[2]);
       Masukkan3 = atof(argv[3]);
       Masukkan4 = atof(argv[4]);
   }

if(Processor == 0){
         printf("\nProcessor == %d :\n",Processor);
         printf("\nNama : Alter Gajah Mada\n");
         printf("\nNIM  : 108091000094 \n");
         printf("\nNilai input yang dimasukkan adalah %d %d %d %d \n",Masukkan1, Masukkan2, Masukkan3, Masukkan4);
       }
   
       if(Processor == 1){
         printf("\nProcessor == %d :\n",Processor);
         printf("\nAmbil Nilai %d\n",Masukkan1);
         printf("\n================================\n");
         a = atof(argv[1]);
         isipesan[a];
         
         for(j=0; j<a; j++){
            w=rand()%26;
            isipesan[j]=(char)(w+65);  
         }
         for (k=1; k<=a;k++){
            printf("\n\tData[%d] = %c ",k,isipesan[k]);
         }
       }

if(Processor == 2){
   printf("\n================================\n"); 
   printf("\nProcessor == %d :\n",Processor);
            printf("\nAmbil Nilai %d dan Nilai %d\n",Masukkan2, Masukkan4);
            phytagoras=sqrt((Masukkan2*Masukkan2)+(Masukkan4*Masukkan4));
            printf("\nHasil rumus phytagoras = %f\n",phytagoras);
   
       }
       
      if(Processor == 3){
   printf("\n================================\n");
            printf("\nProcessor == %d\n",Processor);
   printf("\nAmbil Nilai %d\n",Masukkan4);
   printf("\nJumlah data input = %d\n",Masukkan4);
   printf("\n================================\n");

for(i=1; i<=40;i++){
            pesan2[i]=i*i;         
         }     
         
         for(j=1;j<=40;j++){
            printf("\nNilai array[%d] = %d", j, pesan2[j]);
         }
         }
        last=MPI_Wtime();
   time=last-first;
   printf("\nSoal B\n\nSelang Waktu Proses %.12f\n\n\n\n", time);
   fflush(stdout);
   MPI_Finalize();//funcion untuk mengakhiri MPI
}

Screenshot: