Lūgums palīdzēt ar pascal kodu (Rindas aprēķins)

[arturins5]

Sveiki, vai kāds zinošs programmētājs spēj man pateikt kas man kodā nav pareizs? Problēma ir tāda, ka pēc idejas ir jāsanāk 2. un 3. ailē ļoti līdzīgiem cipariem(S un Y izvadē)

Uzdevums:

Program RINDA;
uses crt;
var X, S, Y, A : real;
k : integer;
begin
x:= -4;
while x< 13 do
begin
k:=1;
S:=1+x*Ln(2)/k;
A:= x*Ln(2)/k;
while ABS (A)> 0.0001 do
begin
A:= A*x*Ln(2)/k;
S:=S+A;
k:=k+1
End;
y:= Exp(x*Ln(2));
writeln(x:6:2,S:12,Y:12,k:6);
x:=x+1;
End;
readln();
End.

 

Vislielākās aizdomas, ka 7,8,11,12 rindiņās varētu kaut kas kaut kur būt nepareizs. :S

 

 

Update: ok, atradu pats kļūmi. vajadzēja šādi:

  S:=1+x*ln(2);
  A:= x*ln(2);
	 k:=2;
  while ABS (A)> 0.0001 do
  begin
	 A:= A*x*ln(2)/k;
	 S:=S+A;

Edited November 30, 2012 by arturins5