n = 5;
alpha = 2.0;
digits = 80;
xz = NSolve[LaguerreL[n,alpha, x]==0,x,digits];
xvec = x /. xz;
wvec = {};
s[t_] := LaguerreL[n,alpha,t];
Do [{xx = xvec[[i]],w=Gamma[n+alpha]*xx/n! /(n+alpha)/ (LaguerreL[n-1,alpha,xx])^2,wvec = Append[wvec,w]},{i,1,n,1}];
Do [ 
      Print["    x(",i,") = ",N[xvec[[i]],30] ],{i,1,n,1}];
Do [   
      Print["    w(",i,") = ",FortranForm[N[wvec[[i]],30]] ],{i,1,n,1}];