Aptarimas:Matematika/Sinuso Integralas: Skirtumas tarp puslapio versijų
Ištrintas turinys Pridėtas turinys
→Sinuso Free Pascal kodas bet kokiems skaičiams: naujas skyrius |
|||
523 eilutė:
:1.89188842905109;
:1.8918884196934454.
== Sinuso ''Free Pascal'' kodas bet kokiems skaičiams ==
Uses math;
var a:longint; c:real;
begin
for a:=0 to 100000000 do
c:=c+6.283185307179586477*frac(a*0.159154943091895336)-
0.16666666666666667*sqr(6.283185307179586477*frac(a*0.159154943091895336))*6.283185307179586477*frac(a*0.159154943091895336)+
0.0083333333333333333*6.283185307179586477*frac(a*0.159154943091895336)*sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336)))-
0.00019841269841269841*6.283185307179586477*frac(a*0.159154943091895336)*sqr(6.283185307179586477*frac(a*0.159154943091895336))*sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336)))+
0.0000027557319223985891*6.283185307179586477*frac(a*0.159154943091895336)*sqr(sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336))))-
0.000000025052108385441718775*6.283185307179586477*frac(a*0.159154943091895336)*sqr(6.283185307179586477*frac(a*0.159154943091895336))*sqr(sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336))))+
0.000000000160590438368216146*6.283185307179586477*frac(a*0.159154943091895336)*sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336)))*sqr(sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336))))-
0.00000000000076471637318198164759*6.283185307179586477*frac(a*0.159154943091895336)*
sqr(6.283185307179586477*frac(a*0.159154943091895336))*sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336)))*
sqr(sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336))))+
0.000000000000002811457254345520763*6.283185307179586477*frac(a*0.159154943091895336)*sqr(sqr(sqr(sqr(6.283185307179586477*frac(a*0.159154943091895336))))); // 1/(2*3.14)=0.159
writeln(c);
Readln;
End.
| |||