arturins5 Ierakstīts Novembris 30, 2012 Share Ierakstīts Novembris 30, 2012 (labots) 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; Labots Novembris 30, 2012 - arturins5 Link to comment Share on other sites More sharing options...
Recommended Posts