home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8609.d64 / lotto < prev    next >
Text File  |  1995-03-30  |  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.