Modus
program data_sering_muncul;
uses wincrt;
var i,n,j,modus:integer;
a,frek:array[1..100] of integer;
begin
write ('banyaknya data:');readln(n);
for i:=1 to n do
readln(a[i]);
writeln;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if a[i]=a[j] then
frek[i]:=frek[i]+1;
end;
modus:=1;
for i:=1 to n do
begin
if frek[modus]<frek[i] then
modus:=i;
end;
write('modus: ',a[modus],' sebanyak ',frek[modus]+1);
end.
Hasil :
Rata-rata,Varian, Standar Deviasi, Nilai max min dan Range
Program :
program plus2;
uses wincrt;
var i,n:integer;
rata,vars,jml,jml1, sd, max, min, range:real;
x:array [1..100] of real;
begin
readln (n);
if n<0 then write ('tidak terdefinisi') else if n>0 then
begin
for i:=1 to n do
readln (x[i]);
begin
jml:=0;
for i:=1 to n do
jml:=jml+(x[i]);
rata:=jml/n;
writeln ('rata-rata= ',rata);
end;
begin
jml1:=0;
for i:=1 to n do
jml1:=jml1+((x[i]-rata)*(x[i]-rata));
vars:=jml1/(n-1);
writeln ('varian= ',vars);
end;
begin
sd:= sqrt (vars);
writeln ('standar deviasi= ',sd);
end;
begin
max:= (x[i]);
min:=(x[i]);
for i:=1 to n do
if (x[i]) > max then max:=(x[i])
else if (x[i]) < min then min :=(x[i]);
writeln ('nilai minimum= ',min);
writeln ('nilai maksimum= ',max);
range:= max-min;
writeln ('range= ',range);
end;
end;
end.
Hasil :
