Gryno formulė: Skirtumas tarp puslapio versijų
Ištrintas turinys Pridėtas turinys
452 eilutė:
end.
:gauname atsakymą m=8083,48061127561 po 30 sekundžių su 2,6 GHz procesoriumi.
:Alternatyvus ''Free Pascal'' kodas, skaičiuojantis pagal formulę <math>m=\int_0^5 \gamma \sqrt{1+[y']^2} dx=\int_0^5 (x+x^2)^2 \sqrt{1+4x^2} dx</math> yra toks:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000 do
c:=c+sqrt(1+sqr(2*0.000000005*a))*sqr(0.000000005*a+sqr(0.000000005*a));
writeln(c*0.000000005);
readln;
end.
:ir duoda atsakymą m=8083,4806161241980 po 30 sekundžių su 2,6 GHz procesoriumi.
== Taip pat skaitykite ==
| |||