Pascal:Mencari Mean, Median dan Modus: Difference between revisions

← Older edit

VisualWikitext

@@ Line 1: / Line 1: @@
-Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].
+Berikut adalah contoh program untuk mencari mean,median dan modul pada [[Pascal]].<syntaxhighlight lang="pascal" line="1">
+uses wincrt;
- {{Code|Pascal}}
+type
- uses wincrt;
+ larik=array [1..100] of integer;
- type
+var
-  larik=array [1..100] of integer;
+ a:larik;
- var
+ i,j,n:integer;
-  a:larik;
+Procedure input;
-  i,j,n:integer;
+begin
- Procedure input;
+ write('Berapa data : ');readln(n);
+ for i:=1 to n do readln(a[i]);
+end;
+Function mean:real;
+var x:real;
+begin
+ x:=0;
+ for i:=1 to n do
   begin
-  write('Berapa data : ');readln(n);
+ x:=x+a[i];
-  for i:=1 to n do readln(a[i]);
   end;
-  Function mean:real;
+  mean:=x/n;
- var x:real;
+end;
+Function median:real;
+var b:integer;
+begin
+ for i:=1 to n-1 do
   begin
-  x:=0;
+ b:=0;
-  for i:=1 to n do
+ for j:=n downto i do
-  begin
+ if a[j]<a[i] then
-  x:=x+a[i];
+ begin
-  end;
+ b:=a[i];
-  mean:=x/n;
+ a[i]:=a[j];
+ a[j]:=b;
   end;
-  Function median:real;
+  end;
- var b:integer;
+if n mod 2 = 0 then
+median:=(a[n div 2]+a[(n div 2)+1])/2
+else
+median:=a[(n div 2)+1];
+end;
+Function modus:integer;
+type dus=array [1..100] of integer;
+var mo:dus;
+begin
+ for i:=1 to n do
   begin
-  for i:=1 to n-1 do
+ mo[i]:=0;
-  begin
+ for j:=i+1 to n do
-  b:=0;
+ begin
-  for j:=n downto i do
+ if a[i]=a[j] then
-  if a[j]<a[i] then
+ mo[i]:=mo[i]+1;
-  begin
+  end;
-  b:=a[i];
-  a[i]:=a[j];
-  a[j]:=b;
-  end;
-  end;
- if n mod 2 = 0 then
- median:=(a[n div 2]+a[(n div 2)+1])/2
-  else
- median:=a[(n div 2)+1];
   end;
-  Function modus:integer;
- type dus=array [1..100] of integer;
+  for i:=1 to n do
- var mo:dus;
   begin
-  for i:=1 to n do
+  if mo[i]>0 then
-  begin
+ modus:=i;
-  mo[i]:=0;
-  for j:=i+1 to n do
-  begin
-  if a[i]=a[j] then
-  mo[i]:=mo[i]+1;
-  end;
-  end;
-  for i:=1 to n do
-  begin
-  if mo[i]>0 then
-  modus:=i;
-  end;
   end;
- begin
+end;
-  input;
+begin
-  mean;
+ input;
-  median;
+ mean;
-  modus;
+ median;
-  writeln('Mean : ',mean:3:2);
+ modus;
-  writeln('Median : ',median:2:1);
+ writeln('Mean : ',mean:3:2);
-  writeln('Modus : ',a[modus]);
+ writeln('Median : ',median:2:1);
- end.
+ writeln('Modus : ',a[modus]);
+end.
+</syntaxhighlight>
 ==Terkait==