Question

Используя генератор случайных чисел, придумайте и реализуй-
те способ экспериментального вычисления числа ПИ. РЕАЛИЗАЦИЯ - ЭТО ПРОГРАММА НА ПАСКАЛЕ.

Answer 1

Ответ:

Программа не моя, взял с сайта Маилру

uses

   crt;

const

   r: longint = 20000;

var

   n, no, x, y: longint;

   sum: real;

   run: boolean;

begin

   clrscr;

   randomize;

   run := true;

   n := 0;

   no := 0;

   sum := 0;

   writeln('press any key for stop');

   while run do begin

       inc(n);

       x := random(2 * r + 1) - r;

       y := random(2 * r + 1) - r;

       if sqrt(x * x + y * y) <= r then inc(no);

       sum := sum + 4.0 * no / n;

       if n mod 1000 = 0 then begin

           gotoxy(1, 2);

           write('num: ', n, '; current: ', 4.0 * no / n:0:6, '; mean: ', sum / n:0:6);

       end;

       if keypressed then run := false;

   end;

end.