language: Pascal (fpc) (fpc 2.6.2)
date: 536 days 9 hours ago
link:
visibility: public 
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
29
30
31
32
33

        {   Laboratijas darbs #7  }
 
{ Funkcijas vertibu atrasana pec izvirzijuma rinda }
 
{Rekinam funkcijas y= ln(x)                     }
{Vertibas diapazona  0.1 ... 1.9 ar soli 0.1            }
 
Program  LAB7_1;
var X, S, Y, A : real;
    k : integer;
begin
writeln(' Rekinam funkcijas y= lnx       ');
writeln(' Vertibas diapazona  0.1 ... 1.9 ar soli 0.1  ');
writeln('  x            Rinda      Standartfunkcija    Loc. skaits rindaa');
 
   x:= 0.1;
   while x< 2.1 do
   begin
      S:=1-(x-1)*(x-1)/2;
      A:= -(x-1)*(x-1)/2;
      k:=3;
      while ABS (A)> 0.0001 do
      begin
         A:= -A*(x-1)*(k-1)/k;
         S:=S+A;
         k:=k+1
      End;
      y:=ln(x);
      writeln(x:6:2, S:18:2, Y:18:2, k:6);
      x:=x+0.1
   End
End.
 
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
Linking prog
32 lines compiled, 0.0 sec