Search the Community

Pievienots Pirms 2 minūtēm Uzdevums: Aprēķināt funkcijas y= (1+x)e-x vērtības pie argumenta x vērtībām no –6 līdz 6 ar soli 0.5. Aprēķinu veikt pēc augstāk dotās formulas un izvirzījuma rindā! <..............................KODS.........................................> Program RINDA; uses crt; var X, S, Y, A : real; k : integer; begin writeln(' Rekinam funkcijas y= x * Exp(-2*x) '); writeln(' Vertibas diapazona -3 ... 3 ar soli 0.25 '); writeln(' x Rinda Standartfunkcija Loc. skaits rindaa'); x:= -3; while x<= 3 do // veertibu intervals no -3 lidz 3 begin S:=1-2*x*x; // n2 vertiba ar +1 elements A:= -2*x*x; // tikai n2 vertiba k:=3; while ABS (A)> 0.0001 do begin A:= -A*(2*x/(k-1)); //Algoritms, kas apreekina nakamo A vertibu S:=S+A; //Summeejums S+ algortims A k:=1+k; //N vertiba +1 End; y:=x*Exp(-2*x); writeln(x:6:2, S:18:6, Y:18:6, k:12); x:=x+0.25 // SOLIS pa cik iet vertibas End; readkey; End. <..............................KODS.........................................> Lai pārbaudītu rindas aprēķina pareizību ir nepieciešams salīdzināt rezultātus, kurus iegūstam, pielietojot standartfunkcijas un rindas aprēķinu. Abas augšminētās vērtības tiek izvadītas kā Y un S. Y un S vērtībām ir jāsakrīt ar uzdoto precizitāti. Esmu izburies kodam cauri... Aprēķini sanāk pareizi, formula arī. bet tests nesakrīt. Es kaut ko padzirdēju kko par tekošo "K" , bet nesapratu konkrēti. Mani interesē vai esmu kļūdjies forumla, vai kodā. Un kas ir ar to "K" Pievienoju pielikumā programmas rezultātu, jeb testu!