program rata2_stdev;
uses win=sqrt((k-n*sqr(rata))/(n-1));
writeln('nilai rata-ratanya = ',rata:2:3);
writeln('nilai variannya adalah = ',varian:2:3);
write('nilai standar deviasinya adalah = ',stdev:2:3);
end.
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop