Площадь фигуры

[Koff]

Delphi
Помогите пожалуйста!
Необходимо найти площадь фигуры при пересечении y=sin(x) и y=cos(x).
Подскажите с чего лучше начать и как все это дело реализовать.
На интервале от 0 до pi

[digitalis]

Нет ничего проще. Для начала нарисовать для себя -как оно выглядит. Затем проинтегрировать - лучше по Симпсону, но и метод трапеций сгодится. Надеюсь, в вашем ... численное интегрирование проходили? Если нет - погуглить соответствующие темы, а мне лень.
Ладно, в честь праздника :

procedure TForm1.Button1Click(Sender: TObject);
var S,x,ds,dx : Extended ;
 i : integer ;
begin
  Memo1.Clear ;
  dx := pi/32 ;
  x := 0 ;
  Memo1.Lines.Add(Format ('dx=%12.6f',[dx])) ;
  S := Abs(cos(0)-sin(0)) + Abs(cos(pi)-sin(pi)) ;
  Memo1.Lines.Add(Format ('S0=%12.6f',[S])) ;
  for i := 1 to 31 do
    begin
      x := x + dx ;
      ds :=  Abs(cos(x)-sin(x)) ;
      S := S + ds * 2 ;
      Memo1.Lines.Add(Format
        ('%2d %6.4f %6.4f %6.4f ',[i,x,ds,S])) ;
    end;
    S := S * dx / 2.0 ;
  Memo1.Lines.Add(Format ('S := %12.6f',[S])) ;
end;

end.

Это - площадь желтой фигуры. Из этой невнятной формулировки задачи можно еще подумать, что нужна площадь "треугольника" выше оси х, в которую входят точки как внутри sin, так и внутри cos . Тогда ее надо интегрировать до pi/2 и немножко совсем иначе.

[digitalis]

"Мне бы только спросить, а ответ - до %%пы"