Egy program futása jelentősen gyorsabb lehet, ha nem szedem szét függvényekre és eljárásokra a feladatot, hanem a főprogramban írom meg őket?

Értem, ennél részletesebb válaszra gondoltam. Én konkrétan tapasztaltam, hogy amikor a főprogramba írtam azt, amit az eljárásnak vagy függvénynek kellett volna elvégeznie, jelentősen több volt a futási idő.

Amint az 5-6 eljárást a főprogramban oldottam meg, felgyorsult.

Teljesen változó az időintervallum, de az eljáráshívásos mindig később fut le, nagyobb darabszámra átírva az "n" konstanst mégjobban kitűnik ez.

Lehet, hogy az FPC 3.0 RC2 alatt már nincs ez a hiba, kioptimalizálták esetleg, de ez nem biztos.

{$OPTIMIZATION REGVAR,LEVEL3} {$R-} {$mode objfpc}{$h+}

program eljaras_eljarasnelkul;

uses SysUtils;

const

n = 99000;

var

tomb, tomb2 : array [0..n] of longint;

i, j, temp : longint;

DT, DT2 : TDateTime;

procedure csere;

begin

temp := tomb[i];

tomb[i] := tomb[j];

tomb[j] := temp;

end;

begin

randomize;

for i := 0 to n do

tomb[i]:=random(2100000000);

tomb2:=tomb;

dt := now;

for i := 0 to n -1 do

begin

for j := i +1 to n do

begin

if tomb[i] > tomb[j] then

begin

temp := tomb[i];

tomb[i] := tomb[j];

tomb[j] := temp;

end;

end;

end;

dt2 := now;

WriteLn('Eljáráshívás nélkül: Eltelt idő: ',(DT2-DT)*24*3600:0:2,' sec');

tomb:=tomb2;

dt := now;

for i := 0 to n -1 do

begin

for j := i+1 to n do

begin

if tomb[i] > tomb[j] then csere;

end;

end;

dt2 := now;

WriteLn('Eljáráshívással: Eltelt idő: ',(DT2-DT)*24*3600:0:2,' sec');

ReadLn;

end.