guiller130292,
Cita:
|
Empezado por guiller130292
...tengo un problema en Delphi que al hacer una función...para calcular la integral definida de y=(x^2)*cos(2x)+3 en un intervalo (a,b) el programa se queda pegado...
|
Te comento:
1- El problema del código del
Msg #1 el cual hace que entre en un loop infinito,
esta en la condición de la estructura de control repeat-until :
Como fue señalado en el
Msg #6,
Msg #10 y
Msg #11 por
variación de decimales en la comparación de números de punto flotante.
2- El código funciona (
No entra en un loop infinito) con la siguiente modificación:
Código Delphi
[-]
repeat
...
until CompareValue(x1, b, 0.0000001) = 0;
Revisa esta información:
Espero sea útil
Nelson.