Gracias por responder... ya hice lo que me dijiste y no funciona.-
Que cosa puede ser mira yo tengo este codigo en c: y lo quiero pasar a c Builder.: que estoy pasando mal en el codigo.......
/*Este programa implememta el algoritmo de integración de simpson 1/3
//librerias a utilizar
#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <iostream.h>
#include <math.h>
//definicon de la funcioon
float f(float x);
//programa principal
void main()
{
int n;
float a,b,h,s,s2,s4,x,ts2,ts4,s13,suma;
char opc;
do
{
a=b=h=s=x=s13=suma=0;
clrscr();
gotoxy(27,1);
cout<<"METODO DE SIMPOSON 1/3 \n\n\n";
cout<<"\t\tPrporcione los valores del intervalo [a,b] \n\n";
cout<<"Propocione el valor de a: ";
cin>>a;
cout<<"Propocione el valor de b: ";
cin>>b;
do
{
cout<<"\nPropocione el numero de puntos: ";
cin>>n;
if(n%2 !=0)
cout<<"\n\n!!!! ERROR n DEBE SER UN NUMERO PAR !!!!";
}while(n%2 !=0);
h=(b-a)/n;
s=f(a)+f(b);
cout<<"\n\nPor lo tanto...";
cout<<"\n f(a) = "<<f(a);
cout<<"\n f(b) = "<<f(b);
cout<<"\n h= "<<h;
cout<<"\n s= "<<s;
cout<<"\n x= "<<x;
/****************************SIMPSON 1/3**********************************/
//se evaluan los valor de x donde x=x+h en el intervalo (a,b)
clrscr();
gotoxy(10,1);
cout<<"EVALUACION DE f(x) CON x=x+h en el intervalo abierto
("<<a<<","<<b<<")\n\n";
cout<<"x \t\t\t f(x)\n\n";
x=a+h;
cout<<x<<"\t\t\t"<<f(x)<<"\n";
for(int i=1; i<=n-2; i++)
{
f(x);
x+=h;
cout<<x<<"\t\t\t"<<f(x)<<"\n";
}
getch();
//segun el metodo simpson 1/3 algunos valores seran 2*f(x) o 4*f(x)
clrscr();
x=a+h;
gotoxy(10,1);
cout<<"RESULTADOS DEL PRODUCTO 2*f(x) 0 4*f(x) PARA x=x+h \n\n\n";
cout<<"x\t\t\tf(x)\n\n";
for(i=1; i<=n-1; i++)
{
if(i%2 == 0) //2*f(x)
{
s2=2*f(x);
cout<<x<<"\t\t\t"<<"2*f(x)= "<<s2<<"\n";
ts2+=s2;
}
else //4*f(x)
{
s4=4*f(x);
cout<<x<<"\t\t\t"<<"4*f(x)= "<<s4<<"\n";
ts4+=s4;
}
x+=h;
}//for
suma = (f(a)+f(b))+(ts2+ts4);
s13=(suma*h)/3;
/*************************************************************************/
getch();
clrscr();
gotoxy(30,1);
cout<<"RESULTADOS \n\n\n";
cout<<" SUMA = "<<suma;
cout<<"\n\n SIMPOSON 1/3 = "<<s13;
cout<<"\n\n\n ¨ Desea evaluar la funcion en otro intervalo (s/n)?: ";
cin>>opc;
}while(opc !='n' && opc!='N');
}//main
//funcion
float f(float x)
{
return pow(x,4);
}
Ojala ,me puedas ayudar
Gracias de antemano