ulvis.paste.net

Paste Search Dynamic
Recent pastes
math
  1. program maths;
  2. uses Math;
  3. var z,n : integer;
  4. var x,y,S,i,k,CS : real;
  5. begin
  6.         n:=1;
  7.         k:=1;
  8.         i:=2;
  9.         x:=0.1;
  10.         while x<1 do
  11.                 begin
  12.                         S:=1;
  13.                         while n<10 do
  14.                                 begin
  15.                                         z:=2*n;
  16.                                                 while i<z do
  17.                                                         begin
  18.                                                                 k:=k*i;
  19.                                                                 i:=i+1;
  20.                                                         end;
  21.                                         S:=S+power(-1,n)*(power(x,2*n)/k);
  22.                                         n:=n+1;
  23.                                         k:=1;
  24.                                         CS:=cos(x);
  25.                                         writeln(CS:8:8,'  ',S:8:8);
  26.                                 end;
  27.                 x:=x+0.1;
  28.                 end;
  29. end.
Parsed in 0.003 seconds