Найти площади (Паскаль)

[Serge_Bliznykov]

А какой вид функции на промежутке [0;1] ?

нет, судя по всему это часть окружности.

для диапазона x от 0 до 1
f(x) = 1 - корень(1 - x*x);

поэтому

if ((x >= 0) && (x<1))
{
  y_razrez = 2 * (1 - Math.sqrt(1-x*x) );
}

[ura_111]

У меня вот, что получилось. (только я сделал когда функция от 0 до 1 имеет вид параболы х*х):

4.jpg

а вот в маткаде точное решение:

5.jpg

[Serge_Bliznykov]

ну, у меня для x=1.2 получилось площадь правая s_right равна 1.173479

код по методу прямоугольников такой:

				x = 1.2;
				var ss = 0.0;
				var dx = 0.00001;
				var tempy = 0.0;
				while(x<=(2.0-dx)) {
					var tmpx = x + ( dx / 2);
					if (tmpx<1) {
						tempy = 1-Math.sqrt(1-tmpx*tmpx);	
					}
					else {
						tempy = Math.sqrt(1-(tmpx-1)*(tmpx-1));	
					}					
					ss += dx * tempy;
					x += dx;
				}
				ss *= 2;

BTW, полная площадь всей фигуры s_left + s_rigth получилась равной 2
что, впрочем, следует из

Сообщение от ARTEN

S1 = 2 - Math.PI / 2;
S2 = Math.PI / 2;

[newerow1989]

function f(x:real):real;
begin
   Result:=0;
   If (x>=0) and (x<1) then
      Result:=1-Sqrt(1-x*x) else
   If (x>=1) and (x<=2) then
      Result:=Sqrt(1-(x-1)*(x-1));
   Result:=Result*2;
end;

const dx=0.01;
var y_razrez,s_left,s_right,x,xx:real;
begin
   Write('x = ');Readln(x);
   y_razrez:=f(x);
   Writeln('y_razrez = ',y_razrez:5:5);
   s_left:=0;
   s_right:=0;
   xx:=-dx;
   Repeat
      xx:=xx+dx;
      If xx<=x then
         s_left:=s_left+f(xx) else
         s_right:=s_right+f(xx);
   Until xx>=2;
   Writeln('s_left = ',s_left:5:5);
   Writeln('s_right = ',s_right:5:5);
   Readln;
end.