Alpro - mencari standar deviasi dengan pascal
kali ini kita akan membahas tentang cara mencari STANDAR DEVIASI di pascall .....
ini adalah rumus bakunya :
flowchart nya:
Program Pascal nya :
Program Menghitung_Standar_Deviasi_Sepuluh_Data;
var
a,b,c,d,e,f,g,h,i,j,r,y,s,SD:real;
{a-j = data}
{r = rata-rata sepuluh data}
{y = sigma (x-r) yang dikuadratkan}
{SD = Standar Deviasi nya}
begin
writeln(‘Menghitung Standar Deviasi Sepuluh Data’);
writeln(‘Masukkan data anda’);
write(‘a=’);readln(a);
write(‘b=’);readln(b);
write(‘c=’);readln(c);
write(‘d=’);readln(d);
write(‘e=’);readln(e);
write(‘f=’);readln(f);
write(‘g=’);readln(g);
write(‘h=’);readln(h);
write(‘i=’);readln(i);
write(‘j=’);readln(j);
r:=(a+b+c+d+e+f+g+h+i+j)/10;
y:=(a-r)*(a-r)+(b-r)*(b-r)+(c-r)*(c-r)+(d-r)*(d-r)+(e-r)*(e-r)+(f-r)*(f-r)+(g-r)*(g-r)+(h-r)*(h-r)+(i- r)*(i-r)+(j-r)*(j-r);
s:=y/10;
SD:=SQRT(s);
writeln(‘Standar Deviasi=’,SD);
readln;
end.
Sekian dan terima kasih,,semoga bermanfaat.... :)
ini adalah rumus bakunya :
flowchart nya:
Program Pascal nya :
Program Menghitung_Standar_Deviasi_Sepuluh_Data;
var
a,b,c,d,e,f,g,h,i,j,r,y,s,SD:real;
{a-j = data}
{r = rata-rata sepuluh data}
{y = sigma (x-r) yang dikuadratkan}
{SD = Standar Deviasi nya}
begin
writeln(‘Menghitung Standar Deviasi Sepuluh Data’);
writeln(‘Masukkan data anda’);
write(‘a=’);readln(a);
write(‘b=’);readln(b);
write(‘c=’);readln(c);
write(‘d=’);readln(d);
write(‘e=’);readln(e);
write(‘f=’);readln(f);
write(‘g=’);readln(g);
write(‘h=’);readln(h);
write(‘i=’);readln(i);
write(‘j=’);readln(j);
r:=(a+b+c+d+e+f+g+h+i+j)/10;
y:=(a-r)*(a-r)+(b-r)*(b-r)+(c-r)*(c-r)+(d-r)*(d-r)+(e-r)*(e-r)+(f-r)*(f-r)+(g-r)*(g-r)+(h-r)*(h-r)+(i- r)*(i-r)+(j-r)*(j-r);
s:=y/10;
SD:=SQRT(s);
writeln(‘Standar Deviasi=’,SD);
readln;
end.
Sekian dan terima kasih,,semoga bermanfaat.... :)
Comments
Post a Comment