Guys, berikut saya bagikan coding program mencari nilai modus menggunakan turbo pascal.
Untuk penjelasan lebih mendetail tentang coding tersebut, berikut saya lampirkan dokumennya. Dokumen ini berisi perintah yang dilakukan komputer terhadap coding yang diberikan dan penjelasan mengenai coding-coding program mencari nilai modus.
program nilaimodus;
uses crt;
var n,i,j: integer;
ftinggi:
real;
fx:
array[1..100]of integer;
begin
clrscr;
write
('masukan banyak data: '); readln (n);
for i:=1 to n
do
begin
write ('data
ke-',i,' : '); readln(x[i]);
fx[i]:=1;
end;
for i:=1 to
n-1do
for j:=i+1
to n do
if
x[i]=x[j] then fx[i]:=fx[i]+1;
ftinggi:=1;
for i:=1 to n
do
if
fx[i]>ftinggi then ftinggi:=fx[i];
writeln;
writeln
('Frekuensi tertinggi adalah: ',ftinggi:0:0);
writeln;
j:=0;
for i:=1 to n
do
if
fx[i]=ftinggi then
begin
j:= j+1;
modus[j]:=x[i];
end;
writeln;
if j=n then
writeln('Tidak
ada Modus')
else
if ftinggi=n
div j then
writeln('Tidak
ada Modus')
else
begin
writeln
('Banyak modusnya ',j,' buah, yaitu: ');
for i:=1 to j
do
writeln
(modus[i]:0:0);
end;
end.
Selamat mencoba :) Semoga bermanfaat ^_^
Sign up here with your email
ConversionConversion EmoticonEmoticon