16 lines
294 B
ObjectPascal
16 lines
294 B
ObjectPascal
// Ñðàâíåíèå ñêîðîñòè ðàáîòû ãëîáàëüíûõ è âíóòðèáëî÷íûõ ïåðåìåííûõ.
|
|
// Ñì. òàêæå ôàéë GlobalVars.pas
|
|
uses Utils;
|
|
|
|
begin
|
|
var s := 0.0;
|
|
var i: real := 1;
|
|
while i<10000000 do
|
|
begin
|
|
s += 1/i;
|
|
i += 1;
|
|
end;
|
|
writeln(s);
|
|
writeln('Âðåìÿ ðàñ÷åòà = ',Milliseconds/1000,' ñ');
|
|
end.
|