Gryno formulė: Skirtumas tarp puslapio versijų

242 pridėti baitai ,  prieš 8 metus
end.
:duoda atsakymą m=84,503119936731021 po 23 sekundžių su 2,6 GHz procesoriumi. Dar labiau optimizuotas jo variantas:
var
 
a:longint;
:duoda atsakymą m=84,5031199367086 po 23 sekundžių su 2,6 GHz procesoriumi.
c:real;
begin
for a:=1 to 1000000000 do
c:=c+sqrt(1+4*sqr(0.000000005*a))*a;
writeln(c*sqr(5/1000000000));
readln;
end.
:duoda atsakymą m=84,503119936731021 po 17 sekundžių su 2,6 GHz procesoriumi (vadinasi, 1000000000 dalybos operacijų padaroma per 23-17=6 sekundes su 2,6 GHz procesoriumi).
 
== Taip pat skaitykite ==
5 067

pakeitimai