Question

программа подсчета числа пи методом монте-карло pascal abc​

Answer 1

Ответ:

program pipi;uses crt;

var x,y:real;i,p:longint;

function pii:real;

begin randomize;

for i:=1 to 1000000 do begin

x:=random;//случайные вещественные числа от 0 до 1

y:=random;

if(x*x+y*y)<1 then inc(p);

end;

pii:=p/i*4;//умножаем на 4 так как мы якобы "стреляли" в 1-ю четверть координатной сетки

end;

begin clrscr;randomize;

writeln(pii);

end.

Объяснение:

Хз, вроде правильно