Методом ячеек вычислите приближенное значение двукратного интеграл.

Программа

program cells;

vara,b,c,d,hx,hy,xc,yc,v:real;

x,y:array[0..2000] of real;

i,j,n,m:integer;

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

begin

f:=sin(y)*exp(-x*x); {подынтегральная функция}

end;

BEGIN

writeln('Границы области интегрирования:');

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

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

write('c='); readln(c);

write('d='); readln(d);

writeln('Число разбиений по осям:');

write('n='); readln(n);

write('m='); readln(m);

hx:=(b-a)/n; hy:=(d-c)/m;

x[0]:=a; y[0]:=c;

v:=0;

for i:=1 to n do

beg...