Program modus
Download as DOCX, PDF0 likes112 views
Program ini menghitung modus data yang diinputkan pengguna. Program menyimpan data ke dalam array, menghitung frekuensi setiap data, dan menentukan data mana yang memiliki frekuensi tertinggi untuk ditetapkan sebagai modus. Jika lebih dari satu data memiliki frekuensi tertinggi, maka data-data tersebut ditetapkan sebagai modus.
1 of 2
Download to read offline
![Program Modus
program nilaimodus;
uses wincrt;
var
n,i,j: integer;
ftinggi: real;
fx: array[1..100]of integer;
modus,x: array[1..100]of real;
begin
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-1 do
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
write ('Banyak modusnya ',j,' buah, yaitu : ' );
for i:=1 to j do](https://image.slidesharecdn.com/programmodus-160317163528/85/Program-modus-1-320.jpg)
![writeln (modus[i]:0:0);
end;
end.](https://image.slidesharecdn.com/programmodus-160317163528/85/Program-modus-2-320.jpg)
More Related Content
Viewers also liked (6)
Ad
More from linda_rosalina (20)
Ad
Recently uploaded (20)
Program modus
- 1. Program Modus program nilaimodus; uses wincrt; var n,i,j: integer; ftinggi: real; fx: array[1..100]of integer; modus,x: array[1..100]of real; begin 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-1 do 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 write ('Banyak modusnya ',j,' buah, yaitu : ' ); for i:=1 to j do