Pregunta2 PC3 2015-1

program project1;
Type ArrReal = array[1..1000] of Real;
const PRECISION = 0.0001;
var a,b,c,d,e,f,segmentos,i : Integer;
  area,areaAnt,limI,limS,delta,x,longi,aux : Real;
  coordX , coordY : ArrReal;
begin
  writeln('Ingrese los valores de los coeficientes');
  read(a,b,c,d,e,f);
  writeln('Ingrese el valor del limite inferior y limite superior del intervalo respectivamente');
  read(limI,limS);
  segmentos := 0;
  area := 0;
  areaAnt := 1;

  while abs(area-areaAnt)>PRECISION do begin
    areaAnt := area;
    inc(segmentos);
    delta := (limS-limI)/segmentos;
    for i:=1 to (segmentos+1) do begin
      coordX[i] := limI + delta*(i-1);
      x := coordX[i];
      coordY[i] := a*x*x*x*x*x + b*x*x*x*x + c*x*x*x +
                 d*x*x + e*x + f;
    end;
    area := 0;
    longi := 0;
    for i:=1 to segmentos  do begin
      aux := coordY[i] + coordY[i+1];
      aux := aux * delta/2;
      area := area + aux;
      aux := coordY[i] - coordY[i+1];
      aux := sqr(aux) + sqr(delta);
      aux := sqrt(aux);
      longi := longi + aux;
    end;
  end;
  writeln('El area es aproximadamente :',area:5:2);
  writeln('La longitud de arco es aproximadamente : ',longi:5:2);
  readln;
  readln;
end.