- , 0,01%, n . . .
.1
.2
1
.4
ⅅ...4
充...6
..6
充.6
............7
8
充.8
充...9
1 腅.10
2 QuickBASIC11
3 . ..12
酅...13
酅....14
- . . XVII ., , , . , , . , .. ,
, . . : ??
. , . . , , , -.
IRINA. bas. . Basi QB. EXE . Windows.
n - . .
|
|
.
.
:
- ;
b - ;
e (0,01 %)
1) n
h=(b-a)/(n).
2) [x0,x2], [x2,x4],[xn-1,xn], i
3) :
|i-i1|<e (1)
, e (1) , h (. . n , h, )
4) , (1)
1.
( 2).
IBM , . Window xp, QuickBASIC.
:
- ;
b - ;
n -
e
:
n
3.
2
CLS
PRINT : a - , b - , n - , e -
INPUT a, b, n, e
h = (b - a) / n
i1=0
FOR x=a TO (b-h) STEP h
i=i+h*SQR(2*x+1)
k=k+1
PRINT k, i
NEXT
8: i=0
x=a
4: i=i+h*SQR(2*x+1)
x=x+h
IF x<=b THEN
GOTO 4
ELSE
IF ABS(i-i1)<0 then
PRINT , i
ELSE
n=n*2
h=(b-a)/n
i1=i
GOTO 8
END IF
END IF
3
1.
k ( /) | i | k ( /) | i | ||
0.025 | 0.6396381 | ||||
5.061738-02 | 0.6754327 | ||||
0.0768376 | 0.7116611 | ||||
0.1036471 | 0.7483183 | ||||
0.1310332 | 0.7853993 | ||||
0.1589841 | 0.8228993 | ||||
0.1874885 | 0.8608137 | ||||
0.2165359 | 0.899138 | ||||
0.2461163 | 0.9378679 | ||||
0.2762202 | 0.976999 | ||||
0.3068388 | 1.016528 | ||||
0.3379636 | 1.056449 | ||||
0.3695863 | 1.096761 | ||||
0.4016994 | 1.137458 | ||||
0.4342954 | 1.178537 | ||||
0.4673674 | 1.219995 | ||||
0.5009084 | 1.261828 | ||||
0.534912 | 1.304033 | ||||
0.5693722 | 1.346606 | ||||
0.6042828 | 1.389545 |
|
|
1.398656
.
, .
() y0dx0+y1dx1++yn-1dxn-1, . (, - )
bas Q.Basic
1. 19.701-90
2. . ., . ., . . ,
. ., , 1988
3. .., .., .., .. . . - ,
() | () . | . | . | ||||||
, -.
ENTER.
(. 2) . 1.