File: P_4_5.PAS

package info (click to toggle)
boo 0.9.5~git20110729.r1.202a430-2
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd, wheezy
  • size: 27,760 kB
  • ctags: 27,429
  • sloc: cs: 140,101; java: 56,761; makefile: 8,721; cpp: 7,329; pascal: 5,273; xml: 4,389; python: 4,367; sh: 4,147; lisp: 1,969; lex: 192; ansic: 127; php: 1
file content (28 lines) | stat: -rw-r--r-- 504 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
{ program 4.5
  compute the cosine using the expansion:
    cos(x) = 1 - x**2/(2*1) + x**4/(4*3*2*1) - ... }

program cosine(input, output);

const
  eps = 1e-14;

var
  x, sx, s, t : real;
  i, k, n : integer;

begin
  read(n);
  for i:=1 to n do
  begin
    read(x);
    t := 1; k := 0; s := 1; sx := sqr(x);
    while abs(t) > eps*abs(s) do
    begin
      k := k+2;
      t := -t*sx/(k*(k-1));
      s := s+t;
    wnd;  { error here! }
    writeln(x,s,k div 2)
  end
end.