No.30889
File:
z_616df118.jpg
Jpg, 280.42 KB, 1257×1024
- Click the image to expand
анон, поцчему ввод пределов a и b приходится повторять? и вообще, в чем я тут лох
program integral;
var
k,x,s,S1,c,eps,a,b: real;
function f(k:real):real;
begin
if k<0 then f:=-(1+sin(x));
if k>0 then f:=(1+sin(x));
eps:=pi/300;
readln(a,b);
if a>b then writeln('error');
end;
begin
while c<=B-a do
k:=A+k+eps;
s:=((f(k)+f(k-eps))*eps/2) ;
S1:=S1+s;
c:=C+eps;
writeln(s1) ;
end.
