Potrzebuje odmierzacz czasu, ale nie wiem jakiego kodu użyć. Proszę o pomoc !!
0
0
uses sysutils;
vat t:double;
begin
t:=time;
{...................}
writeln((time-t)*24*60*60:10:2, ' sekund');
end.
0
W FPC nie ma SysUtils :>
Skleciłem na szybko w FPC.
uses dos, crt;
type
TTime = record
h, m, s, s100 :Word;
end;
var
StartTime, EndTime :TTime;
St, Et :LongInt;
procedure Tm(var ATime :TTime);
begin
with ATime do GetTime(h, m, s, s100);
end;
{ lub }
function TimeToSec :LongInt;
var Temp :TTime;
begin
with Temp do
begin
GetTime(h, m, s, s100);
TimeToSec := h*24 + m*60 + s*60;
end;
end;
begin
ClrScr;
Tm(StartTime);
{... instrukje }
Tm(EndTime);
{ lub }
St := TimeToSec;
{ instrukcje }
Delay(2000);
Et := TimeToSec;
WriteLn('Instrukcje trway: ', Et-St, 'sekund');
ReadLn;
end.
0
Adam, a co to jest FPC?
W moim FreePascal’u mam SysUtils, wiem co mam.
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.