§ 8. Вылічэнне значэння ліку π метадам Монтэ-Карла

8.5. Стварэнне камп'ютарнай разліковай мадэлі (этап 3)

У сістэме PascalABC.NET аб'явім пераменныя n і k тыпу integer для захоўвання колькасці пунктаў-пясчынак на базавым квадраце і на крузе адпаведна, а таксама пераменныя s, x і y тыпу real для захоўвання значэнняў плошчы круга і каардынатаў пунктаў-пясчынак адпаведна.

У асноўным раздзеле праграмы, задаем пачатковыя значэннi і арганізуем цыкл (пример 8.5). Далей падлічваем вынік, выводзім яго і дакладнае значэнне лiку p на экран:

s := 4 * k / n;
writeln('Вынiк pi = ',s);
writeln('Дакладна pi = ',pi);

Прыклад 8.5. Задаем пачатковыя значэннi:

n := 1000;
k := 0;

У цыкле for з пачатковым значэннем пераменнай цыклу 1 і канчатковым значэннем n надаем выпадковыя значэннi каардынатам чарговага пункту:

x := 2 * random();
y := 2 * random();

З дапамогай умоўнага аператара if арганізуем падлік колькасці k пунктаў, якія трапілі ў круг:

if sqr(x-1)+sqr(y-1)<=1 then k:=k+1;

Засталося падлічыць плошчу круга па асноўнай формуле метаду.