Gryno formulė: Skirtumas tarp puslapio versijų
Ištrintas turinys Pridėtas turinys
374 eilutė:
readln;
end.
:duodantis atsakymą m=84,5031199367086 po 25 sekundžių su 2,6 GHz procesoriumi. Optimizuotas jo variantas:
var
a:longint;
c:real;
begin
for a:=1 to 1000000000 do
c:=c+sqrt(1+4*sqr(5.0*a/1000000000))*a;
writeln(c*sqr(5/1000000000));
readln;
end.
:duoda atsakymą m=84,5031199367086 po 34 sekundžių su 2,6 GHz procesoriumi.
== Taip pat skaitykite ==
| |||