program menghitung mean median modus dengan delphi atau pascal

Assalamualaikum Wr. Wb.
Langsung ke TKP aja yaa,,, udah ngantuk neh, lagi malas bikin kata-kata :D
Source codenya bisa ditengok dibawah neh.. :

program modus_median_mean;
{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 arr = array [1..100]of integer;
var
 a : arr;
 i,n : integer;
 min , max , modus : integer;
 mean , med : real;

  procedure tukar (var a,b : integer);
 var
         temp : integer;
 begin
  temp := a;
  a:= b;
  b:= temp;
 end;

  procedure selectionsort (var a : arr; n : integer);
  var
   i,j,imax : integer;
  begin
   for i:=n downto 2 do
   begin
    imax := 1;
    for j:= 2 to i do
    if(A[j] > A[imax]) then
     imax := j;
     tukar (A[imax] ,A[i]);
   end;
  end;

  procedure hitungmodus (A:arr; n:integer; var modus : integer);
  var
   i : integer;
   sama : boolean;
   frekmod,kanmod,frekkan : integer;
  begin
   frekmod :=0;
   i:=1;
   while (i<=n) do
    begin
     kanmod := a[i];
     frekkan := 1 ;
     i:=i+1;
            sama :=true;
            while (sama) and (i<=n) do
             begin
              if (a[i] = kanmod ) then
       frekkan := frekkan+1
       else
       sama :=  false;
       i:=i+1;
      end;
      if (frekkan>=frekmod) and (kanmod >modus ) then
       begin
        modus := kanmod;
        frekmod := frekkan;
       end;
     end;
           end;

begin
        mean :=0 ; modus := 0;
 write ('masukkan banyak data : ');
 readln (n);
 writeln ('masukkan data : ');
        for i:=1  to n do
  read (a[i]);
        writeln ('Data terurut : ');
        selectionsort (A,n);
 for i:=1 to n do
  begin
   write (A[i],' ');
   mean :=mean+A[i];
  end;
        if (n mod 2 = 0 ) then
                med:= (a[n div 2+1]+a[n div 2+2])/2
                else
                med:= (a[n div 2+1]);
        mean := mean /n;
 min :=a[1];
 max := a[n];
 hitungmodus (a,n,modus);
        writeln ('Jadi nilai Minimal : ',min);
        writeln ('Jadi nilai  Maksimal : ',max);
        writeln ('Jadi nilai Mean : ',mean :0:2);
        writeln ('Jadi nilai Median : ',med :0:2);
        writeln ('Jadi nilai Modus : ',modus);
        readln;
        readln;
end.
 

Selamat beraktifitas...
Have Fun...

Related Posts:

Tweet