Меню сайта

Задача №48

Вычислить интеграл методом прямоугольника:

3
∫ -Sin2X2/lnX -dX, — — — -с шагом -h=0.5
2

Program Integral-

Uses crt-

Const a=1,b=3,h=0.5-

Var n,i:integer-

— — — — — -S,integ,y,x:real-

Begin

— — — — — — — Readln(a,b,h)-

— — — — — — — n:=(b-a)/h-

— — — — — — — x:=a- s:=0-

— — — — — — — for i:= 1 to 3 do begin

— — — — — — — y:=sqr(sin(sqr(x)))/lnx-

— — — — — — — s:=s+y-

— — — — — — — x:=a+i*h-

end-

integ:=((b-a)/(2*n))*s-

writeln(‘integ=’,integ:8:4)-

writeln(‘s=’,s:8:4)-

readkey-

end.

Категория: Циклы | Дата: 08.11.12

Меню раздела
Блок