2015kino

data Q11e02;
 	do i=1 to 37; 
  	X=comb(36,i-1)*0.5**(i-1)*(1-0.5)**(37-i); /*問11計算*/
  	output;
	end;
	drop i;	/*i列の数値が表示されるので消す*/
run;     
proc print data=Q11e02;
run;

2015kino

data work1001;
	p=1/2;	/*確率*/
	m=36*p;  /*平均*/
	v=36*p*(1-p);  /*分散*/
	σ=sqrt(v);  /*標準偏差*/
	x=(24-0.5);
	p1=cdf('normal',x,m,σ);   /*正規分布の累積分布関数->CDF*/	
	p2=cdf('normal',25,m,σ);  /*(仮に半整数補正を行わなかった場合）正規分布の累積分布関数->CDF*/
	z=1-p1; /*問では超える確率としているので、正規分布の右側の面積の数値を求める*/
	z1=1-p2; /*(仮に半整数補正を行わなかった場合）*/