sample - long loop.pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 18 行

unit U;

function main: Integer;
var
  I: integer;
begin
  Result := 0;
  for i := 1 to 1000 do
    Result := square(i);
end;

function square(P: Integer): Integer;
begin
  Result := P * P;
end;

end.