MODULE KnyshMyTime ["Kernel32.dll"];
PROCEDURE QueryPerformanceCounter* (OUT lpPerformanceCount: LONGINT): BOOLEAN;
PROCEDURE QueryPerformanceFrequency* (OUT lpFrequency: LONGINT): BOOLEAN;
END KnyshMyTime.


MODULE KnyshStroke;

IMPORT StdLog, KnyshMyTime;

CONST
   nMax = 1000000;

VAR
   constB: LONGINT;(*количество тиков в секунду*)

PROCEDURE TimeCalculation (lStart, lEnd: LONGINT);(*вычисление скорости записи/чтения*)
VAR
   a : REAL;
BEGIN
   a := (lEnd - lStart) / constB;(* - constC;*)
   StdLog.Real(a); StdLog.Ln;
END TimeCalculation;

PROCEDURE Start*;(**)
VAR
   i: INTEGER;
   lageStart, lageEnd: LONGINT;
   bool, a, b, c: BOOLEAN;
BEGIN
   bool := KnyshMyTime.QueryPerformanceFrequency(constB);(*количество тиков в секунду*)
   a := TRUE;
   b := TRUE;
(*измерение времени, потраченного на цикл без тела*)
   bool := KnyshMyTime.QueryPerformanceCounter(lageStart);
   FOR i  := 0 TO nMax  DO
   END;
   bool := KnyshMyTime.QueryPerformanceCounter(lageEnd);
   StdLog.String ("Время, потраченное на цикл без тела: ");
   TimeCalculation (lageStart, lageEnd);

(*измерение времени, потраченного на реализацию при помощи условного оператора*)
   bool := KnyshMyTime.QueryPerformanceCounter(lageStart);
   FOR i  := 0 TO nMax DO
      IF a THEN
         IF b THEN
         (*1 1*)
            c := FALSE
         ELSE
         (*1 0*)
            c := TRUE
         END
      ELSE
         IF b THEN
         (*0 1*)
            c := TRUE
         ELSE
         (*0 0*)
            c := TRUE
         END
      END
   END;
   bool := KnyshMyTime.QueryPerformanceCounter(lageEnd);
   StdLog.String ("Время, потраченное на цикл с условным оператором: ");
   TimeCalculation (lageStart, lageEnd);
   
(*измерение времени, потраченного на реализацию при помощи логических операций*)
   bool := KnyshMyTime.QueryPerformanceCounter(lageStart);
   FOR i  := 0 TO nMax DO
      c := ~ a OR ~b
   END;
   bool := KnyshMyTime.QueryPerformanceCounter(lageEnd);
   StdLog.String ("Время, потраченное на цикл с выражением из логических операторов: ");
   TimeCalculation (lageStart, lageEnd);
   StdLog.Ln
END Start;

END KnyshStroke.