Tugas Final

1.      Membuat program statistik (data berkelompok).

2.       Membuat program perkalian matriks  : AB = C .

3.       Membuat program menghitung permutasi.

4.       Menggabungkan program-program diatas.

      Program digabungkan menggunakan procedure yang menggabungkan program rata-rata, perkalian matriks, dan perhitungan permutasi adalah sebagai berikut :

Program Prosedure;

Uses crt ;

var pilih : char;

Procedure rata_rata;

Var

   i,n : integer ;

   x,sum,mean : real;

begin

   write('banyaknya data = ');readln(n);

   sum:= 0;

   for i:= 1 to n do

begin

   write('data ke',i,'=');

   readln(x);

   sum := sum + x ;

   end;

   mean := sum/n;

   writeln('rata-rata = ',mean:9:4);

readln;

end;

Procedure Perkalian_Matriks;

var

   a,b,c : array [1..50,1..50] of integer;

   i,j,k,n,m,p : integer;

begin

     clrscr;

     writeln('Perkalian Matriks : AB = C');Writeln;

     write('Banyak baris matriks: m = '); readln(n);

     write('Banyak kolom matriks: n = '); readln(m);

     write('Banyak kolom matriks: r = '); readln(p);

     writeln;

     for i:=1 to n do

     for j:=1 to m do

     begin

          write('Elemen A[',i,',',j,'] : ');

          readln(a[i,j]);

     end;

     writeln;

     for i:=1 to m do

     for j:=1 to p do

     begin

          write('Elemen B[',i,',',j,'] : ');

          readln(b[i,j]);

     end;

     for i:=1 to n do

     for j:=1 to p do

     for k:=1 to m do

     c[i,j] := c[i,j] + a[i,k]*b[k,j];

     writeln;

     writeln;

     writeln('Didapat matriks C : ');

     Writeln;

     for i:=1 to n do

     begin

          for j:=1 to p do

          write(c[i,j],' ':5);

     writeln;

     end;

     writeln;

     readln;

end;

Procedure Kombinasi_Faktorial;

Var  Com,P:Real ;

     i,j,k,n,r,a,b,c:integer;

     begin

     clrscr;

     writeln('kombinasi dan permutasi');

     writeln;

     write('Nilai n = ');readln(n);

     write('Nilai r = ');readln(r);

     writeln;

     a:= 1;

     b:= 1;               ;

     c:= 1;

     for i:= 1 to n do

     a:=a*i;

     writeln('nilai n! = ',a:3);

     for j:= 1 to r do

     b:= b*j;

     writeln('nilai r! = ',b:3);

     for k:= 1 to (n-r) do

     c:= c*k;

     writeln('nilai (n-r)! = ',c);

     P:=a/c;

     com := a/(b*c);

     writeln;

     writeln(n,'Permutasi ',r,' = ',P:4:2);

     writeln(n,'Kombinasi ',r,' = ',com:4:2);

     readln;

end;

begin clrscr;

writeln('       MENU     ');

writeln;

writeln('1. Nilai rata-rata');

writeln('2. Perkalian matriks');

writeln('3. Menghitung Permutasi');

writeln;

write('pilih (1-3) : ');readln(pilih);

case pilih of

'1': rata_rata;

'2': Perkalian_Matriks;

'3': Kombinasi_Faktorial;

end;

readln;

End.

1.       Hasil run untuk Program Nilai rata-rata :

      

2.       Hasil run untuk Program Perkalian Matriks :

       

3.       Hasil run untuk Program Permutasi :