Program Pascal Edisi Spesial Statistika
PROGRAM PASCAL EDISI SPESIAL STATISTIK
Kalo sebelumnya aku posting tentang program pascal edisi khusus matrik, kali ini aku mau posting tentang program pascal khusus operasi statistik. Disini ada beberepa program yang dapat mempermudah operasi hitung dalam mengerjakan soal statistika. Diantaranya untuk menghitung statistika deskriptif seperti varian, rata-rata, modus, nilai maksimum dan minimum, jangkauan, dsb. Selain itu juga ada program factorial, pemangkatan, dan binomial. So, let’s check it out!
program statistika_deskriptif;
uses wincrt;
var
a,frek : array[1..100] of real;
i,n,j,modus : integer;
max,min,jang,total,mean, sigma, varian,sd : real;
begin
writeln ('masukkan banyaknya data:'); readln(n);
max:=-9999;
min:=9999;
clrscr;
for i:=1 to n do begin
writeln ('data ke: ',i); readln (a[i]);
if max<(a[i]) then max := a[i];
if min>(a[i]) then min := a[i];
end;
jang:= max-min;
{ngitung modus}
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;
{ngitung mean}
total :=0;
for i:= 1 to n do
begin
total:= total+ a[i];
end;
mean:=total/n;
{ngitung varian dan standar deviasi}
sigma:=0;
for i:=1 to n do
begin
sigma:=sigma+sqr(a[i]-mean);
end;
varian:=sigma/n;
sd:=sqrt(varian);
begin
writeln ('jumlah data yang barusan anda masukkan adalah ',n);
writeln ('total nilai data adalah ',total:6:2);
writeln;
writeln ('mean nilai data adalah ',mean:6:2);
writeln;
writeln ('nilai maksimum data adalah ',max:6:2);
writeln;
writeln ('nilai minimum data adalah ',min:6:2);
writeln;
writeln ('nilai jangkauan data adalah', jang:6:2);
writeln;
writeln ('nilai modus data adalah ',A[modus]:6:2,' sebanyak ',frek[modus]+1:6:2);
writeln;
writeln ('nilai varian data adalah', varian:6:2);
writeln;
writeln ('nilai standar deviasi data adalah', sd:6:2);
end;
end.
program faktorial;
uses wincrt;
var
i,n:longint ;
f:real;
begin
readln (n); f:=1;i:=0 ;
if (n=0) then
writeln(1)
else
writeln (2);
repeat
i:= i+1;
f:=f*i;
until i=n ;
writeln (n, 'Factorial=',f);
end.
program binomial;
uses wincrt;
var
n,x,i: integer;
f,g,n_x,c,px,qx,b,p,q,r:real;
begin
write ('n='); read(n); write ('x='); read(x);write ('p='); read(p);
f:=1;
g:=1;
q:=(1-p);
r:=n-x;
n_x:=1;
for i:=2 to n do
f:=f*i;
for i:=2 to x do
g:=g*i;
for i:=2 to (n-x)do
n_x:=n_x*i;
c:=f/(g*n_x);
px:=1;
for i:=1 to abs (x) do
px:=p*px;
qx:=1;
for i:=1 to abs (n-x) do
qx:=q*qx;
b:=c*px*qx;
write (c,px,qx);
writeln('b=',b);
end.
program pangkat3;
uses wincrt;
var i,n,j:integer; k:longint;
begin
write ('masukkan nilai! ');readln (n);
for i:=1 to n do
begin
for j:=1 to i do
k:=1;
begin
k:=j*j*j;
write (k); write(' ');
end;
end;
end.
program perpangkatan;
uses wincrt;
var
i,o,p,hasil:longint;
begin
writeln ('a pangkat b');
write('masukkan a='); read (o);
write ('masukkan b=');read (p);
hasil:=1;
for i:=1 to abs(p) do
hasil:=o*hasil;
if (p<0) then
begin
write (1/hasil);
end
else
begin
write('hasil= ', hasil);
end
end.
0 komentar:
Posting Komentar