» »

TURBO PASCAL: Merjenje časa za izvedbo neke operacije?

TURBO PASCAL: Merjenje časa za izvedbo neke operacije?

Dr X ::

Pozdravljeni!


V šoli sem pri vajah iz pascala naletel na vajo pri kateri moram izmeriti čas za izvedbo neke operacije. Zato se obračam na vas v upanju, da mi boste lahko pomagali. :D

OBRAZLOŽITEV:

Recimo, da imamo sledečo zanko:

for i:=1 to 500 do begin
writeln('SLO-TECH - Pomoč');
end;

Sedaj pa bi moral izmeriti čas za izvedbo te zanke npr. v mili sekundah. Če se komu sanja kako bi se dalo to narest naj pls pove.


Že v naprej se vam zahvaljujem za odgovor.
Nič ni nemogoče.

Lith ::

tole sem našel v GETTIME.PAS examples in če sem ga izvedel mi je napisalo trenutni čas v računalniku - torej si preden izvedeš funkcijo zapomniš čas v eno spremenljivko in potem ko končaš še enkrat, potem pa odšteješ ? mislim da toliko pa boš lahko naredil sam, jaz že doooooolgo nisem


***********************************************************************************

{* WARNING WARNING WARNING WARNING WARNING WARNING WARNING
In order to use the Intr procedure in Turbo Pascal you
must be familiar with interrupts and have access to a
technical reference manual.

The following program uses the Intr function in Turbo to
get the time. Registers have to be set correctly according
to the DOS technical reference manual before the function
is called.

The program simply returns the time in a string at the top
of the screen.*}

program TimeInterrupt;
type
TimeString = string[8];

function time: TimeString;
type
regpack = record
ax,bx,cx,dx,bp,si,di,ds,es,flags: integer;
end;

var
recpack: regpack; {assign record}
ah,al,ch,cl,dh: byte;
hour,min,sec: string[2];

begin
ah := $2c; {initialize correct registers}
with recpack do
begin
ax := ah shl 8 + al;
end;
intr($21,recpack); {call interrupt}
with recpack do
begin
str(cx shr 8,hour); {convert to string}
str(cx mod 256,min); { " }
str(dx shr 8,sec); { " }
end;
time := hour+':'+min+':'+sec;
end;

begin
writeln(time);
end.

*********************************************************************************
¤ black holes rule; I like the speed, speed kills ¤


Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

Windows XP Black screen

Oddelek: Pomoč in nasveti
123220 (2960) Twix
»

[bat datoteke] Trenutni datum in ura

Oddelek: Programiranje
112490 (2247) darkolord
»

Turbo Pascal

Oddelek: Programiranje
91118 (949) r5r
»

[Turbo Pascal] Pomoč...

Oddelek: Programiranje
131469 (1371) Grey
»

Naloga iz Pascala

Oddelek: Programiranje
5898 (832) Vesoljc

Več podobnih tem