Viertelkreis

\(\(Anzahl = 1000000; 
ImKreis = 0; 

    For[i = 1, i < Anzahl + 1, \(i++\), 
	
      If[\((\((Random[Real, {0, 1}, 10])\)\^2 + 
              \((Random[Real, {0, 1}, 10])\)\^2)\) <= 1, \(ImKreis++\), 0]]; 
    

N[4*ImKreis\/Anzahl, 27]
\)\)