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;