ALGORITMA PEMROGAMAN

ALGORITMA PEMROGAMAN
Assalamualaikum,
Untuk tugas kedua matkul algoritma pemrogaman , kita diminta membuat program penghitungan standar deviasi. Langsung aja, check this out~

Program Menghitung_Standar_Deviasi;
Var
standar_deviasi:real;
xi1,xi2,xi3,xi4,xbar,jml,varia ns:real;
Begin
Write('data xi1=');Readln(xi1);
Write('data xi2=');Readln(xi2);
Write('data xi3=');Readln(xi3);
Write('data xi4=');Readln(xi4);
xbar:=(xi1+xi2+xi3+xi4)/4;
jml:=(xi1-xbar)*(xi1-xbar)+(xi2-xbar)*(xi2-                     xbar)+(xi3-xbar)*(xi3-xbar)+(xi4-xbar)*(xi4-                     xbar);
varians:=jml/3;
standar_deviasi:=sqrt(varians);
Writeln('xbar=',xbar);
Writeln('varians=',varians);
Writeln('standar_deviasi=',standar_deviasi);
Readln;
End.