Aptarimas:Matematika/Sinuso Integralas: Skirtumas tarp puslapio versijų

Ištrintas turinys Pridėtas turinys
603 eilutė:
End.
:duoda rezultatą 499999986.434272 po 25 sekundžių su 2.6 GHz procesorium.
 
== Teoretinis sinuso benchmark'as ==
 
:Šis ''Free Pascal'' kodas skaičiuoja teisingai visus skaitmenis tik skaičiamas nuo 0 iki 1.09, o skaičiams didesniems nei 1.09 tikslumas mažėja, o labai dideliems iš beveik iš vis prarandamas. Kodas yra toks:
var a:longint; c:real;
begin
for a:=0 to 1000000000 do
c:=c+(a-0.16666666666666667*a*a*a+0.0083333333333333333*a*sqr(sqr(a*1.0))-
0.00019841269841269841*a*sqr(a*1.0)*sqr(sqr(a*1.0))+
0.0000027557319223985891*a*sqr(sqr(sqr(a*1.0)))-
0.000000025052108385441718775*a*sqr(a*1.0)*sqr(sqr(sqr(a*1.0)))+
0.000000000160590438368216146*a*sqr(sqr(a*1.0))*sqr(sqr(sqr(a*1.0)))-
0.00000000000076471637318198164759*a*sqr(a)*sqr(sqr(a))*sqr(sqr(sqr(a*1.0)))+
0.000000000000002811457254345520763*a*sqr(sqr(sqr(sqr(a*1.0)))));
writeln(c);
Readln;
End.
Grįžti į "Matematika/Sinuso Integralas" puslapį.