DataMuseum.dk

algol<
begin
_____
integer antal,i;
_______
real x,sum,kvadratsum;
____
boolean abc;
_______
select (8);writecr;
i:=0;x:=read real;abc:=x|0;
                        =
for i:=i+1 while abc do
___        _____     __
 begin
 _____
 antal:=0;sum:=0;kvadratsum:=0;
 for x:=x,read real while x|0 do
 ___                _____  =  __
  begin
  _____
  antal:=antal+1;sum:=sum+x;kvadratsum:=kvadratsum+x⨯x;
  end;
  ___
 if antal|read integer then
 __      =             ____
  begin
  _____
  writetext(|<        fejl på datastrimmel.|);writecr;
            <                              >
  end else
  ___ ____
  begin
  _____
  if i=1 then writetext(|<        middelværdi        spredning|);writecr;
  __     ____           <                                     >
  write(|________dddd.ddddd|,sum/antal,sqrt((kvadratsum-sum∧2/antal)/(antal-1)))
        <,,,,,,,,          >                               |
;
  writecr;
  end;
  ___
 x:=read real;abc:=x|0;
                    =
 end
 ___
end;t<
___