1 2 3 4 5 6 7 8 9 10 | CLS INPUT "x0,xk="; x0, xk INPUT "x="; x FOR i = 1 TO n IF x0 <= x <= xk THEN y = y + (SIN(( 2 * i + 1 ) * x)) / ( 2 * i + 1 ) ^ 3 ELSE y = 0 NEXT i WHILE y = . 001 WEND PRINT "y=", y END |
Тестирование выполнено в программе QB64 ( Скачать )