Aptarimas:Matematika/Sinuso Integralas: Skirtumas tarp puslapio versijų
Ištrintas turinys Pridėtas turinys
691 eilutė:
End.
:duoda rezultatą <math>1.56192071091620\cdot 10^{146}</math> po 27 sekundžių su 2.6 GHz procesorium.
:Toks teisingas 'Free Pascal'' kodas:
var a:longint; c:real;
begin
//for a:=0 to 1000000000 do
a:=2;
c:=c+a*(1+
sqr(a*1.0)*(-0.16666666666666667+
sqr(a*1.0)*(0.0083333333333333333+
sqr(a*1.0)*(-0.00019841269841269841+
sqr(a*1.0)*(0.0000027557319223985891+
sqr(a*1.0)*(-0.000000025052108385441718775+
sqr(a*1.0)*(0.000000000160590438368216146+
sqr(a*1.0)*(-0.00000000000076471637318198164759+
sqr(a*1.0)*(0.000000000000002811457254345520763-
sqr(a*1.0)*0.000000000000000008220635246624329717)))))))));
writeln(c);
writeln(sin(2));
Readln;
End.
:duoda rezultatą:
:0.909297426825641 ir
:0.90929742682568170.
| |||