обчислення означених інтегралів

menu(q);

if (ch==49)

{ re=r;

if (re==1)

{

setfillstyle(1,8);

bar(190,450,420,470);

setcolor(15);

outtextxy(235,460,"press 1 music off");r=2;}

if(re==2)

{

setfillstyle(1,8);

bar(190,450,420,470);

setcolor(15);

outtextxy(235,460,"press 1 music on");r=1; }

}

if(re==2) music(2);

}

m:

closegraph();

}

float f(float x)

{ float y;

y=sqrt(exp(x)-x*x);

return(y);