home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 September / 64er_Magazin_86-09_1986_Markt__Technik_de.d64 / lotto < prev    next >
Text File  |  2022-10-26  |  471b  |  29 lines
  1. PROGRAM LOTTO;
  2. CONST K0=10;
  3. VAR A:PACKED ARRAY[1..49] OF BOOLEAN;
  4.     I,K: INTEGER;
  5. FUNCTION RND(ZAHL:INTEGER):REAL;
  6. CONST A=13;
  7.       B=29;
  8.       M=63;
  9. BEGIN
  10.   ZAHL:=(A*ZAHL+B) MOD M;
  11.   RND:=ZAHL/M;
  12. END;
  13. BEGIN
  14.   FOR I:=1 TO 49 DO A[I]:=FALSE;
  15.   K:=K0;
  16.   WRITELN('DIE LOTTOZAHLEN: ');
  17.   I:=0;
  18.   WHILE I<6 DO
  19.   BEGIN
  20.     K:=TRUNC(RND(K)*48+0.5)+1;
  21.     IF A[K]=FALSE THEN
  22.     BEGIN
  23.       WRITE(K:4);
  24.       I:=I+1;
  25.       A[K]:=TRUE
  26.     END;
  27.   END; (* WHILE-SCHLEIFE *)
  28. END.
  29.