Gryno formulė: Skirtumas tarp puslapio versijų

432 pridėti baitai ,  prieš 8 metus
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 ==
5 067

pakeitimai