n = 9;
digits = 80;
xz = NSolve[LaguerreL[n,x]==0,x,digits];
xvec = x /. xz;
wvec = {};
s[t_] := LaguerreL[n,t];
Do [{xx = xvec[[i]],w=- 1 / n / s'[xx] / LaguerreL[n-1,xx],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}];