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
 writeln('Berapa jumlah data yang akan dimasukkan?(max 50)  '); readln (n);
{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.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS
Read Comments

0 komentar:

Posting Komentar