Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- a,b,h,y,s,z,x,a1,a2,sn:Real;
- n,k,i:Integer;
- begin
- Writeln('x ot...do...s shagom...');
- Readln(a,b,h);
- x:=a;
- while x<=b do
- begin
- y:=0;
- s:=Sin(x)/2;
- n:=2;
- k:=4;
- z:=x;
- while abs(s)>=0.0001 do
- begin
- a1:=z;
- i:=2;
- sn:=x; a2:=1;
- while Abs(a1)>=0.0001 do
- begin
- a2:=a1*(-z)*z/(i*(i+1));
- sn:=sn+a2;
- i:=i+2;
- a1:=a2;
- Writeln(a2:3:5);
- end;
- y:=y+s;
- s:=n*sn/k;
- inc(n);
- k:=k*2;
- z:=z*n;
- end;
- Writeln('x = ',x:5:8,' y = ',y:5:8);
- x:=x+h;
- end;
- readln
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement