DataMuseum.dk

algol<
begin
_____
integer m,n,i;
_______
real gn1,gn2,T,sp1,sp2,s;
____
select(8);writecr;
i:=0;
for gn1:=read real while gn1|0 do
___                _____    =  __
 begin
 _____
 sp1:=read real;m:=read integer;gn2:=read real;
 sp2:=read real;n:=read integer;i:=i+1;
 s:=sqrt(((m-1)⨯sp1∧2+(n-1)⨯sp2∧2)/(m+n-2));
                   |           |
 T:=(gn1-gn2)/(s⨯sqrt(1/m+1/n));
 writetext(|< test number: |);write(|dd|,i);writecr;
           <               >        <  >
 writetext(|< t= |);write(|dd.ddd|,T);writecr;
           <     >        <      >
 writetext(|< degrees of freedom: |);
           <                      >
 write(|ddd|,m+n-2);writecr;
       <   >
 writetext(|< level of significans:|);writecr;
           <                       >
 writetext(|< s= |);write(|ddd.ddd|,s);
           <     >        <       >
 writecr;writecr;writecr;
 end
 ___
end; t<
___