Gryno formulė: Skirtumas tarp puslapio versijų

252 pridėti baitai ,  prieš 8 metus
:=400,16851213666371404624979029348-0,08333333333333333333333333333333=400,08517880333038071291645696014.
:''Free Pascal'' kodas:
var
 
a:longint;
:duoda atsakymą m=400,085179290551
c:real;
begin
for a:=1 to 1000000000 do
c:=c+sqrt(sqr(0.000000005)+sqr(sqr(0.000000005*a)-sqr(0.000000005*(a-1))))*(0.000000005*a+sqr(0.000000005*a));
writeln(c);
readln;
end.
:duoda atsakymą m=400,085179290551 po 27 sekundžių su 2,6 GHz procesoriumi.
 
 
5 067

pakeitimai