16 lines
375 B
ObjectPascal
16 lines
375 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.
|