22 PRINT “Aniq integralni to‘gri to‘rtburchak usulida”
24 PRINT “ taqribiy hisoblash.”
28 REM Aniq integral chegaralari a,b va aniqlikni kiritish
30 READ A, B, EPS
50 N=10
60 H=(B-A)/N
70 S=0
80 FOR I=1 TO N
90 X=A+H*I
100 S=S+FNF (X)
110 NEXT I
120 S=S*H
122 REM Aniq integral qiymatini baholash
130 IF N><10 THEN 150
140 N=N+10:Z=S:GOTO 60
150 IF ABS (S-Z)>EPS THEN 140
160 N=N-10:H=(B-A)/N
170 FOR I=0 TO N
180 X=A+H*I
190 PRINT “X (“;USING “###.####”;I
200 PRINT “)=“;USING “###.####”;X;
210 PRINT “ F(“;USING “###.####”;I;
220 PRINT “)=”;USING “###.####”;FNF(X)
230 NEXT I
240 PRINT
250 PRINT “Integralning kiymati=”;USING “##.####”;S
252 REM Aniq integral chegaralari a,b va aniqlik qiymatlari
260 DATA 2, 3.5, 0.01
270 END
Aniq integralni to‘gri to‘rtburchak usulida
taqribiy hisoblash.
X(0)=2,000 F(0)=0,3333
X(1)= 2,075 F(1)= 0,3334
X(2)= 2,150 F(2)= 0,3338
X(3)= 2,225 F(3)= 0,3343
X(4)= 2,300 F(4)= 0,3350
X(5)= 2,375 F(5)= 0,3360
X(6)= 2,450 F(6)= 0,3371
X(7)= 2,525 F(7)= 0,3386
X(1)= 2,600 F(1)= 0,3402
X(9)= 2,675 F(9)= 0,3421
X(10)= 2,750 F(10)=0,3443
integralning kiymati=0.3249
10>
Do'stlaringiz bilan baham: |