Program Mean & Modus
PROGRAM MEAN & MODUS
Sekarang saya akan berbagi pengetahuan tentang program pascal yang berhubungan dengan ilmu statistika.
Program pertama yang saya buat adalah program untuk menghitung modus, yaitu:
program menghitung_modus;
uses wincrt;
var
i,n,j,modus,modus1:integer;
data,frek:array[1..50] of real;
begin
{input nilai data}
for i:=1 to n do
begin
writeln;
write ('data ke-',i,':');readln(data [i]);
end;
{menghitung frekuensi nilai data}
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if data[i]=data[j] then
frek[i]:=frek[i]+1;
end;
{mencari data dengan frekuensi tertinggi}
modus:=1;
for i:=1 to n do
begin
if frek[modus]<frek[i] then
modus:=i;
begin
for j:=n-i to n do
if frek[modus]=frek[j] then
modus1:=j;
end;
end;
{mencetak modus}
writeln;
if frek[modus]=frek[i] then
write ('modus tidak ada')
else if frek[modus]=frek[modus1] then
begin
if data[modus]=data[modus1] then
write('modus data adalah ',data[modus]:0:0,' frekuensinya ',frek[modus]+1:0:0)
else
write('modus data adalah ',data[modus]:0:0,' dan ',data[modus1]:0:0,' frekuensinya ',frek[modus]+1:0:0);
end
else
write('modus data adalah ',data[modus]:0:0,' frekuensinya ',frek[modus]+1:0:0);
end.
Program ini dapat menghitung data yang memiliki dua modus.
Program kedua yang saya buat adalah untuk mencari mean, yaitu:
program menghitung_mean;
uses wincrt;
var
i,n:integer;
mean:real;
data:array[1..50] of real;
begin
write('berapa jumlah data yang dimasukkan? ');
readln (n);
{input nilai data}
for i:=1 to n do
begin
readln(data [i]);
end;
mean:=0;
{menjumlahkan semua nilai data}
for i:=1 to n do
begin
mean:=mean+data[i];
end;
{mencetak sekaligus menghitung rata-rata}
writeln ('mean=',mean/n:0:2);
end.
0 komentar:
Posting Komentar