Составить программу по вычислению площади (в выделенной области) методом Монте-Карло (график y=sinx (фото ниже)).

Большое спасибо

const n=10000;var x,y,s,h:real; i,k:integer;begink:=0;for i:=1 to n do begin x:=pi/2*random; y:=random; if y<sin(x) then k:=k+1; end;s:=pi/2*k/n;writeln('s = ',s:7:5);// Проверка (можно убрать)h:=pi/2/n;x:=0-h;s:=0;for i:=1 to n do begin x:=x+h; s:=s+sin(x); end;s:=s*h;writeln('s = ',s:7:5);end.Пример:s = 0.99479s = 0.99992QBasic:Dim x As doubleDim y As doubleDim s As doubleDim h As doubleDim p2 As doubleDim n As integerDim i As integerDim k As integerp2=3.1415926535/2n=10000k=0for i=1 to n x=p2*rnd y=rnd if y<sin(x) then k=k+1next is=p2*k/nprint "s = ";sREM Проверка (можно убрать)h=p2/nx=0-hs=0for i=1 to n x=x+h s=s+sin(x)next is=s*hprint "s = ";s

MS DOS QBasic 1.0RANDOMIZE TIMERCONST n = 100000k = 0: pi2 = 2 * ATN(1)FOR i = 1 TO n   x = pi2 * RND: y = RND   IF y <= SIN(x) THEN k = k + 1NEXT iPRINT pi2 * k / nРезультаты (несколько вызовов) 1.000078925210238 1.002717863112688 1.00188534103632 .9981782616019249 1.00315768609643 1.000094633173943 1.004634234684706