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...
0 Komentar untuk "program menghitung mean median modus dengan delphi atau pascal"
Kami Menerima Saran dan Kritikan yang bersifat MEMBANGUN
Tinggalkan Komentar anda disini...