Контрольная работа: Застосування методу Монте-Карло для кратних інтегралів

writeln('Userednenyy integral=',(integral/k):10:4);

readln;

END.

3.2Програма складена в Matematica program MonteCarlo;

{$APPTYPE CONSOLE}

uses

SysUtils;

const k=100;

Var a,b,c,d,ng,vg,x,y,s,integral : real;

n,i,j : integer;

integr:array[1..k]of real;

Function f(x,y:real):real;

Begin

f:=Sqrt(x+y);

end;

Function nm(x:real):real;

Begin

nm:=3*x;

end;

Function vm(x:real):real;

Begin

vm:=8*x;

end;

BEGIN

writeln('Vvedit znachennya granyts integruvannya ');

write('a='); readln(a);

write('b='); readln(b);

writeln('Vvedit chyslo vyprobuvan:');

readln(n);