#2 07.05.11 13:36
Re: Не могу подсчитать время
timerStart := DateTimeToUnix(NOW);
// blablabla
timerStop := DateTimeToUnix(NOW);
timeSpent := timerStart - timerStop;
Как-то так может быть, не?
Offline
#3 07.05.11 14:35
Re: Не могу подсчитать время
procedure TForm2.Button3Click(Sender: TObject);
{$APPTYPE CONSOLE}
const
r=46340; r2=46340*46340;
var
i,pass,t,n : LongInt; x,y : real;
begin
n:=strtoint(Edit4.text);
t := GetTickCount;
Randomize;
pass:=0;
begin
for i:=1 to n do
begin
x:=Random(r+1);
y:=Random(r+1);
if ( x*x+y*y < r2 ) then INC(pass);
Write('PI: ',(pass/i*4):0:5); writeln(' n= ',i);
end;
end;
WriteLn('PI: ',(pass/i*4):0:5);
Edit3.text:=inttostr(GetTickCount - t );
end;
Offline
#5 09.05.11 20:23
Re: Не могу подсчитать время
Dron написал(а):
что то не очеь устраивает.
почему? вроде вполне нормально)
Offline
