problema com area pascal

[Felipe Colombino]

PRECISO FAZER UM PROGRAMA EM PASCAL QUE CALCULE ESSA AREA QUE ESTA NO LINK!!

 

https://plus.google.com/photos/108236767034597732701/albums/6010385783649303073/6010385795062312626?pid=6010385795062312626&oid=108236767034597732701

 

O QUE EU FIZ FICOU ASSIM:

 

Program Pzim ; var passo,x1,x2,area1,area2:real; begin x1:=0;x2:=pi/4;area1:=0;area2:=area1;passo:=0,0001;  while x1<=pi/4 do begin; area1:=area1+abs(sin(x1))*passo; x1:=x1+passo; end;   while x2<=pi/2 do begin;  area2:=area2+abs(cos(x2))*passo;  x2:=x2+passo;  end;  write(area2:10:2); End.

porém ele n funciona, alguem pode me ajudar??

[rtk3752]

Cara, eu gostaria de te ajudar mas, não entendi bem sua imagem, a curva do primeiro quadrante é 1/4 de uma circunferência?