Aptarimas:Matematika/Sinuso Integralas: Skirtumas tarp puslapio versijų
Ištrintas turinys Pridėtas turinys
545 eilutė:
End.
:kuris duoda atsakymą 55365,3072928836 po 71 sekundės su 2,6 GHz procesorium. Šitas kodas duoda sin(x) tą patį ką ir originali ''Free Pascal'' sinuso funkcija tik, kai 0<x<1.09, o su vis didesniais 1.09<x<6.283185307179586477 atsakymas gaunasi vis netikslesnis. Nes ko gero ''Free Pascal'' skaičiuoja sinusą ekonomiškai iki 45 laipsnių.
===Sinuso benchmark'as===
Uses math;
var a:longint; c:real;
begin
for a:=0 to 100000000 do
c:=c+sin(a);
writeln(c);
Readln;
End.
| |||