18 lines
377 B
ObjectPascal
18 lines
377 B
ObjectPascal
// Сравнение скорости работы глобальных и внутриблочных переменных.
|
||
// См. также файл BlockVars.pas
|
||
uses Utils;
|
||
|
||
var
|
||
s: real := 0;
|
||
i: real := 1;
|
||
|
||
begin
|
||
while i<10000000 do
|
||
begin
|
||
s += 1/i;
|
||
i += 1;
|
||
end;
|
||
writeln(s);
|
||
writeln('Время расчета = ',Milliseconds/1000,' с');
|
||
end.
|