[OBERON] Eigene Funktionen einbinden

MODULE Nutz; (* Sammlung nützlicher Prozeduren *)

IMPORT Utils;

VAR z: LONGINT;


PROCEDURE Delay*(s:INTEGER); (* Pause von s Sekunden *)
VAR i,j:LONGINT;
BEGIN
 FOR i:=1 TO s*2000 DO
 FOR j:=1 TO 50000 DO
 
 END;
 END;
END Delay;


 
PROCEDURE RandomInt*(zahl:LONGINT): LONGINT;
(** Es wird eine Longint-'Zufallszahl' zwischen 0 und <zahl>-1 erzeugt.*)
(** *)
(** Aufruf z.B. x:= Zufall.RandomInt(6)+1; *)
(** -> Hier wird eine Zufallszahl zwischen 1 und 6 ermittelt. *)
(** *)
(** Im Normalfall braucht man nur INTEGER-Werte statt LONGINT-Zahlen. 
 Dann muss der Aufruf noch mit SHORT(...) umklammert werden, z.B. *)
(** x:= SHORT(Zufall.RandomInt(6)+1); *)
 CONST a=16807;
 m=2147483647;
 q=m DIV a;
 r=m MOD a;
 VAR g: LONGINT;
 BEGIN
 g:=a*(z MOD q)-r*(z DIV q);
 IF g>0 
 THEN z:=g
 ELSE z:=g+m
 END;
 (* z*(1.0/m) zw. 0 und 1 *)
 RETURN ENTIER(z*(1.0/m)*zahl)
END RandomInt;

PROCEDURE RandomReal*(): REAL;
(** Es wird eine Real-'Zufallszahl' zwischen 0 und 1 erzeugt.*)
(** *)
(** Aufruf z.B. a:= Zufall.RandomReal(); *)
 CONST a=16807;
 m=2147483647;
 q=m DIV a;
 r=m MOD a;
 VAR g: LONGINT;
 BEGIN
 g:=a*(z MOD q)-r*(z DIV q);
 IF g>0 
 THEN z:=g
 ELSE z:=g+m
 END;
 (* z*(1.0/m) zw. 0 und 1 *)
 RETURN z/m
 END RandomReal;
 
PROCEDURE Init*;
(** Initialisiert den Zufallsgenerator. Dies müssen Sie im Normalfall nicht tun. 
 Nur wenn Sie bei mehreren Programmläufen jedes Mal dieselben "Zufallszahlen" 
 erhalten möchten, müssen Sie einmal bei Programmstart <Init> aufrufen. *)
BEGIN
 z:=314159; (* Zufallsgenerator initialisieren *)
END Init;

PROCEDURE Randomize;
(* Diese Prozedur gehört zur Initialisierung des Zufallsgenerators. 
 Sie ist nicht öffentlich *)
VAR i: LONGINT;
 min,std,sek: INTEGER;
 zufi : REAL;
BEGIN
 Utils.GetTime(sek,min,std);
 FOR i:=1 TO sek*(min+sek) DO
 zufi:=RandomReal();
 END;
END Randomize;

BEGIN
 Init;
 Randomize;


END Nutz.