Ĺadny brzuch
Jak obliczyć czas działania jakiejś procedurki ?
gettime(a,b,c,d);
czas := 100*60*60*a+100*60*b+100*c+d;
a później
d := czas
... procedurka ...
e := czas;
writeln ('czas trwania: ',e-d,' setnych sekundy');
Coś takiego ?
Tjaa....uses crt, dos; var e:word; function getmst:word; var a, b, c, d:word; begin gettime(a,b,c,d); getmst:=a*60*60*60+b*60*60+c*60+d; end; begin e:=getmst; procka; writeln(getmst-e); readkey; end.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
gettime(a,b,c,d);
czas := 100*60*60*a+100*60*b+100*c+d;
a później
d := czas
... procedurka ...
e := czas;
writeln ('czas trwania: ',e-d,' setnych sekundy');
Coś takiego ?
Tjaa....uses crt, dos; var e:word; function getmst:word; var a, b, c, d:word; begin gettime(a,b,c,d); getmst:=a*60*60*60+b*60*60+c*60+d; end; begin e:=getmst; procka; writeln(getmst-e); readkey; end.