OberonCore

MODULE TestSearch2D;

   IMPORT Log := StdLog, Services;

   CONST N = 1000;
      cpuClock = 2.21; (* частота моего процессора в гигагерцах *)

   VAR
      a: ARRAY 1000, 1000 OF INTEGER;
      i, j, v, n: INTEGER;
      t: LONGINT;
      dt: REAL;

   PROCEDURE FindInLine (IN a: ARRAY OF INTEGER; OUT pos: INTEGER): BOOLEAN;
      VAR i: INTEGER;
   BEGIN i := 0;
      WHILE (i < LEN(a)) & ~(a[i] = v) DO INC(i) END;
      pos := i;
      RETURN (i < LEN(a))
   END FindInLine;

BEGIN
   FOR i := 0 TO LEN(a, 0) -1 DO
      FOR j := 0 TO LEN(a, 1) -1 DO
         a[i, j] := 999
      END
   END;
   v := 1000;
   a[LEN(a, 0)-1, LEN(a, 1)-1] := v;

   (************************************)

   t := Services.Ticks();
   FOR n := 1 TO N DO
      i := 0; j := 0;
      LOOP IF (j < LEN(a, 1)) & ~(a[i, j] = v) THEN
         INC(j)
      ELSIF (j = LEN(a, 1)) & (i < LEN(a, 0)) THEN
         j := 0; INC(i)
      ELSE EXIT END END;
   END;
   dt := Services.Ticks() - t;
   Log.String("Симуляция цикла Дейкстры:"); Log.Ln;
   Log.String("i = "); Log.Int(i); Log.Ln;
   Log.String("j = "); Log.Int(j); Log.Ln;
   Log.Real(dt); Log.String(" секунд на весь тест"); Log.Ln;
   Log.Real(dt / N * 1000); Log.String(" микросекунд на один поиск"); Log.Ln;
   Log.Real(dt / N * 1000000 * cpuClock / (LEN(a, 0)*LEN(a, 1))); Log.String(" тактов на элемент"); Log.Ln;

   (************************************)

   t := Services.Ticks();
   FOR n := 1 TO N DO
      i := 0; j := 0;
      WHILE (i < LEN(a, 0)) & ~FindInLine(a[i], j) DO INC(i) END
   END;
   dt := Services.Ticks() - t;
   Log.String("Использование процедуры:"); Log.Ln;
   Log.String("i = "); Log.Int(i); Log.Ln;
   Log.String("j = "); Log.Int(j); Log.Ln;
   Log.Real(dt); Log.String(" секунд на весь тест"); Log.Ln;
   Log.Real(dt / N * 1000); Log.String(" микросекунд на один поиск"); Log.Ln;
   Log.Real(dt / N * 1000000 * cpuClock / (LEN(a, 0)*LEN(a, 1))); Log.String(" тактов на элемент"); Log.Ln
END TestSearch2D.

VAR
   arr: ARRAY N, M OF INTEGER;
   i, k: INTEGER;
   find,found: BOOLEAN;
BEGIN
   i := 0;  k := 0;
   find := TRUE;
   WHILE find DO
       found := arr [i, k] = x;
       IF found THEN
          find:=FALSE;
       ELSEIF i<N-1 THEN
            INC (i)
       ELSEIF k<M-1 THEN
            INC (k); i:=0
       ELSE
            find:=FALSE
       END
   END
END

      i := -1;
      REPEAT
         j := 0; INC(i);
         IF i < LEN(a, 0) THEN
            WHILE (j < LEN(a, 1)) & ~(a[i, j] = v) DO INC(j) END;
         END
      UNTIL j < LEN(a, 1);

      IF i < LEN(a, 0) THEN нашли ELSE не нашли END