{* Задача9 *}

REM basic

'


20 INPUT "Введите промежуток интегрирования: ", a, b
30 INPUT "Введите n: ", n
40 d=(b+a)/n
50 Za=a*EXP(a)*SIN(a)
60 Zb=b*EXP(b)*SIN(b)
70 Z =(Za+Zb)/2
80 Fb=(EXP(b)/2)*(b*SIN(b)+(1-b)*COS(b))
90 Fa=(EXP(a)/2)*(a*SIN(a)+(1-a)*COS(a))
100 Zt=Fb-Fa
110 x=a
120 For i=1 To n-1
130 x=x+d
140 Zx=x*EXP(x)*SIN(x)
150 Z=Z+Zx
160 Next i
170 Z=Z*d
180 Dz=ABS((Zt-Z)/Zt)*100
190 PRINT "Приближённое значение Z="; Z
200 PRINT "Точное значение Zт="; Zt
210 PRINT "Относительная точность: "; Dz; ""
220 End